pourquoi ça marche pas

[marie]

voici le code que j'ai mis

Option Explicit
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 23/06/2005 par FCI
'
Workbooks.Open ('G:\\COMPTA2005\\Transports\\Détail factures TNT 2005')
Application.ScreenUpdating = False
Dim X, Y, Z As Integer
For X = 1 To 65536
If Worksheets('Détail').Cells(X, 1) = '29905' Then
Z = Workbooks('TNT.xls').Worksheets('Feuil2').Range('A65536').End(xlUp).Row
For Y = 1 To 30
Workbooks('TNT.xls').Worksheets('Feuil2').Cells(Z, Y) = Workbooks('Détail factures TNT 2005').Worksheets('Détail').Cells(X, Y) Next
End If
Next
Application.ScreenUpdating = True
ActiveWindow.Close
End Sub


Ce qui est rouge j'ai erreur du type 9 il me dise d'utiliser for each next mais je sais pas comment faire


Merci

 

[marie]

Merci

mais désolé ça marche toujours pas

Workbooks('TNT.xls').Worksheets('Feuil2').Range('a' & MaLigne).Resize(UBound(MonTableauCible, 2), UBound(MonTableauCible, 1)) = Application.Transpose(MonTableauCible)

Arriver à cette ligne vba me dit erreur du type 13

 

[PascalXLD]

Re

Bizarre je viesn de faire un test avec 2 fichiers un nommmé TNT où se trouve la macro et une autre et ça a marché

Peux-tu préciser le nom de stes fichiers celui où il y a la macro et ainsi de suite

 

[marie]

Fichier TNT macro dans la feuil2 position 2
Fichier Détail factures TNT 2005 feuil détail (base) position 2

 

[PascalXLD]

Re

Peux-tu envoyer tes deux fichiers sans les données juste pour voir