[RESOLU] Excel : macro qui marche, mais boutton qui marche pas !

Excel : macro qui marche, mais boutton qui marche pas ! [RESOLU] - VB/VBA/VBS - Programmation

Marsh Posté le 05-09-2005 à 11:06:37    

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 ... :fou:  
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 :
  1. Private Sub CommandButton4_Click()
  2.     Workbooks.OpenText Filename:= _
  3.         "C:\*******\dossier.txt", Origin:= _
  4.         xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
  5.         xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
  6.         Comma:=False, Space:=True, Other:=False, FieldInfo:=Array(Array(1, 1), _
  7.         Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
  8.         Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1))
  10.     Columns("A:A" ).Select                       'Inseres des colones et des lignes    /!\ BLOQUE ICI  /!\
  11.     Selection.Insert Shift:=xlToRight
  12.     Selection.Insert Shift:=xlToRight
  13.     Rows("1:1" ).Select
  14.     Selection.Insert Shift:=xlDown
  15.     Cells.Select
  16.     With Selection
  17.         .HorizontalAlignment = xlCenter
  18.         .VerticalAlignment = xlBottom
  19.         .WrapText = False
  20.         .Orientation = 0
  21.         .AddIndent = False
  22.         .ShrinkToFit = False
  23.         .MergeCells = False
  24.     End With
  25.     Range("A1" ).Select                          'Ajoute les commentaires aux colones
  26.     ActiveCell.FormulaR1C1 = "Temps Connexion"
  27.     Range("B1" ).Select
  28.     ActiveCell.FormulaR1C1 = "Annee"
  29.     Range("C1" ).Select
  30.     ActiveCell.FormulaR1C1 = "Date"
  31.     Range("F1" ).Select
  32.     ActiveCell.FormulaR1C1 = "Nom Firewall"
  33.     Range("H1" ).Select
  34.     ActiveCell.FormulaR1C1 = "conn."
  35.     Range("I1" ).Select
  36.     ActiveCell.FormulaR1C1 = "Identifiant"
  37.     Windows("tableaudebase.xls" ).Activate
  38.     Windows("dossier.txt" ).Activate
  39.     Range("J1" ).Select
  40.     ActiveCell.FormulaR1C1 = "IP Identifiant"
  41.     Range("L1" ).Select
  42.     Windows("tableaudebase.xls" ).Activate
  43.     Windows("dossier.txt" ).Activate
  44.     ActiveCell.FormulaR1C1 = "IP exterieur"
  45.     Range("N1" ).Select
  46.     ActiveCell.FormulaR1C1 = "IP Firewall"
  47.     Range("A1" ).Select                         
  48.     Columns("A:A" ).ColumnWidth = 14.86
  49.     Columns("B:B" ).ColumnWidth = 7.86
  50.     Columns("C:C" ).ColumnWidth = 5.14
  51.     Columns("D:D" ).ColumnWidth = 2.71
  52.     Columns("E:E" ).ColumnWidth = 8.43
  53.     Columns("G:G" ).ColumnWidth = 4
  54.     Columns("H:H" ).ColumnWidth = 6.29
  55.     Columns("I:I" ).ColumnWidth = 22.43
  56.     Columns("J:J" ).ColumnWidth = 15.57
  57.     Columns("K:K" ).ColumnWidth = 4
  58.     Columns("L:L" ).ColumnWidth = 16
  59.     Columns("M:M" ).ColumnWidth = 2.57
  60.     Columns("N:N" ).ColumnWidth = 15
  61.     Columns("O:O" ).ColumnWidth = 3.57
  62.     Columns("P:P" ).ColumnWidth = 10
  63.     Rows("1:1" ).RowHeight = 37.5               
  64.     Selection.AutoFilter                       
  65.     Selection.AutoFilter Field:=9
  66. End Sub


Message édité par wfs-tibal le 09-09-2005 à 16:33:17
Reply

Marsh Posté le 05-09-2005 à 11:06:37   

Reply

Marsh Posté le 05-09-2005 à 12:41:08    

euh... comment ca tu peux pas ajouter de colonne?

Reply

Marsh Posté le 05-09-2005 à 12:45:03    

bonjour,
Essaie de faire :
 
Private Sub CommandButton4_Click()  
Call TaMacroDansUnAutreModuleStandart
End Sub
 
A+

Reply

Marsh Posté le 05-09-2005 à 13:40:45    

Merci sa marche nikel !!! :wahoo:  
 
je le saurais pour la prochaine fois ... ^^

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed