hellocarioca
XLDnaute Occasionnel
Bonjour !
g un fichier qui comporte dans la colonne A un numéro de référence ! ça va de A-1 à A-2000.
Mon prob c que g une macro qui utilise les applications suivantes:
Dim Derli As Integer
Dim DerliS As Integer
Dim Racine As String
Dim i As Integer
Dim Tablo As Variant
Racine = "C:\Documents and Settings\mlehello\My Documents\Last chance\Collector\" 'Chemin à adapter
Tablo = Array("Dispute Reasons2.xls", "Dispute Reasons3") 'liste des classeurs à ouvrir
DerliS = 13
For i = 0 To UBound(Tablo)
Workbooks.Open Filename:=Racine & Tablo(i)
Derli = Sheets("Dispute_DB").Columns(2).Find("*", , , , , xlPrevious).Row
Sheets("Dispute_DB").Range("B2:T" & Derli).Copy Workbooks("Weekly Report - Resolver.xls").Sheets("All Products").Range("A" & DerliS)
DerliS = DerliS + Derli - 1
Next i
ThisWorkbook.Save
'
End Sub
le prob c que durant la phase copy j'aimerai qu'il me prenne que les lignes ou il y a la reference (colonne A) avec la condition que la colonne ne soit pas vide...une sorte de Copy If... en sachant qu'ensuite j'utilise la macro au dessus en bleu.
Je met un petit fichier en example...
Merci le forum !
Maud
g un fichier qui comporte dans la colonne A un numéro de référence ! ça va de A-1 à A-2000.
Mon prob c que g une macro qui utilise les applications suivantes:
Dim Derli As Integer
Dim DerliS As Integer
Dim Racine As String
Dim i As Integer
Dim Tablo As Variant
Racine = "C:\Documents and Settings\mlehello\My Documents\Last chance\Collector\" 'Chemin à adapter
Tablo = Array("Dispute Reasons2.xls", "Dispute Reasons3") 'liste des classeurs à ouvrir
DerliS = 13
For i = 0 To UBound(Tablo)
Workbooks.Open Filename:=Racine & Tablo(i)
Derli = Sheets("Dispute_DB").Columns(2).Find("*", , , , , xlPrevious).Row
Sheets("Dispute_DB").Range("B2:T" & Derli).Copy Workbooks("Weekly Report - Resolver.xls").Sheets("All Products").Range("A" & DerliS)
DerliS = DerliS + Derli - 1
Next i
ThisWorkbook.Save
'
End Sub
le prob c que durant la phase copy j'aimerai qu'il me prenne que les lignes ou il y a la reference (colonne A) avec la condition que la colonne ne soit pas vide...une sorte de Copy If... en sachant qu'ensuite j'utilise la macro au dessus en bleu.
Je met un petit fichier en example...
Merci le forum !
Maud
