Bonjour, je suis débutant en vba.
J'ai plus de 400 fichier excel situés dans le même répertoire dont je dois copier/coller une ligne.
Les lignes copiées doivent se retrouver dans un nouveau classeur les une à la suite des autres (l'ordre m'importe peu)
Pour le moment j'arrive à copier quelque chose mais pas ce que je veux. Je m'explique: quand je lance ma macro, cela effectue bien un copier / coller mais il y a un décalage par rapport à la formule source...
Pour plus de compréhension, je vous joins mon code:
Sub modif()
numligne = 1
Set sh = ThisWorkbook.ActiveSheet
repertoire = "C:\test_fiches_affaires\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
Workbooks.Open repertoire & mesfichiers
With ActiveWorkbook
.Sheets("Calculs").Rows(4).Copy Destination:=sh.Range("A" & numligne)
numligne = numligne + 1
.Close
End With
End If
mesfichiers = Dir
Loop
End Sub
Voilà, j'espère avoir été assez clair. Merci d'avance
J'ai plus de 400 fichier excel situés dans le même répertoire dont je dois copier/coller une ligne.
Les lignes copiées doivent se retrouver dans un nouveau classeur les une à la suite des autres (l'ordre m'importe peu)
Pour le moment j'arrive à copier quelque chose mais pas ce que je veux. Je m'explique: quand je lance ma macro, cela effectue bien un copier / coller mais il y a un décalage par rapport à la formule source...
Pour plus de compréhension, je vous joins mon code:
Sub modif()
numligne = 1
Set sh = ThisWorkbook.ActiveSheet
repertoire = "C:\test_fiches_affaires\"
mesfichiers = Dir(repertoire)
Do While mesfichiers <> ""
If InStr(mesfichiers, "FICHE AFFAIRE") <> 0 Then
Workbooks.Open repertoire & mesfichiers
With ActiveWorkbook
.Sheets("Calculs").Rows(4).Copy Destination:=sh.Range("A" & numligne)
numligne = numligne + 1
.Close
End With
End If
mesfichiers = Dir
Loop
End Sub
Voilà, j'espère avoir été assez clair. Merci d'avance
