wfs-tibal | Hello
Voila mon probleme :
je fais une macro qui me permet d'ouvrir un .txt et ensuite de le mettre dans un classeur bien comme il faut...
Tout marche tres bien mais, j'ais integré cette macro dans un boutton pour que ce soit plus pratique
mais rien a fair, il ouvre le document le met dans les colones mais il ne veux pas ajouté de colone ni de ligne il ce bloque ... Je comprend pas pourquoi le fais de mettre la macro dans le boutton fait qu'elle ne marche plus entierement...
voici le code de ma macro :
Code :
- Private Sub CommandButton4_Click()
- Workbooks.OpenText Filename:= _
- "C:\*******\dossier.txt", Origin:= _
- xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
- xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
- Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
- Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
- Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1))
- Columns("A:A" ).Select 'Inseres des colones et des lignes /!\ BLOQUE ICI /!\
- Selection.Insert Shift:=xlToRight
- Selection.Insert Shift:=xlToRight
- Rows("1:1" ).Select
- Selection.Insert Shift:=xlDown
- Cells.Select
- With Selection
- .HorizontalAlignment = xlCenter
- .VerticalAlignment = xlBottom
- .WrapText = False
- .Orientation = 0
- .AddIndent = False
- .ShrinkToFit = False
- .MergeCells = False
- End With
- Range("A1" ).Select 'Ajoute les commentaires aux colones
- ActiveCell.FormulaR1C1 = "Temps Connexion"
- Range("B1" ).Select
- ActiveCell.FormulaR1C1 = "Annee"
- Range("C1" ).Select
- ActiveCell.FormulaR1C1 = "Date"
- Range("F1" ).Select
- ActiveCell.FormulaR1C1 = "Nom Firewall"
- Range("H1" ).Select
- ActiveCell.FormulaR1C1 = "conn."
- Range("I1" ).Select
- ActiveCell.FormulaR1C1 = "Identifiant"
- Windows("tableaudebase.xls" ).Activate
- Windows("dossier.txt" ).Activate
- Range("J1" ).Select
- ActiveCell.FormulaR1C1 = "IP Identifiant"
- Range("L1" ).Select
- Windows("tableaudebase.xls" ).Activate
- Windows("dossier.txt" ).Activate
- ActiveCell.FormulaR1C1 = "IP exterieur"
- Range("N1" ).Select
- ActiveCell.FormulaR1C1 = "IP Firewall"
- Range("A1" ).Select
- Columns("A:A" ).ColumnWidth = 14.86
- Columns("B:B" ).ColumnWidth = 7.86
- Columns("C:C" ).ColumnWidth = 5.14
- Columns("D:D" ).ColumnWidth = 2.71
- Columns("E:E" ).ColumnWidth = 8.43
- Columns("G:G" ).ColumnWidth = 4
- Columns("H:H" ).ColumnWidth = 6.29
- Columns("I:I" ).ColumnWidth = 22.43
- Columns("J:J" ).ColumnWidth = 15.57
- Columns("K:K" ).ColumnWidth = 4
- Columns("L:L" ).ColumnWidth = 16
- Columns("M:M" ).ColumnWidth = 2.57
- Columns("N:N" ).ColumnWidth = 15
- Columns("O:O" ).ColumnWidth = 3.57
- Columns("P:P" ).ColumnWidth = 10
- Rows("1:1" ).RowHeight = 37.5
- Selection.AutoFilter
- Selection.AutoFilter Field:=9
- End Sub
|
Message édité par wfs-tibal le 09-09-2005 à 16:33:17
|