Bonjour, je suis un primo débutant en VBA!
j'ai fait une macro qui marche sur un seul classeur et je voudrai boucler sur l'ensemble des classeurs .xlsx d'un dossier. voici la macro:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub EssaiSynth()
ChDir "M:\MARC\Facture-Gab\Fact-Synth\"
DossierFactures = Dir("M:\MARC\Facture-Gab\Fact-Synth\*.xlsx")
'ouverture dossier facture
    Workbooks.Open "M:\MARC\Facture-Gab\Fact-Synth\" & DossierFactures
Do While Len(DossierFactures) > 0
'traitement data fait par forumDo
    Dim plage As Range, desti As Range, i As Integer
    Set desti = Workbooks("Synth-Test.xlsm").Worksheets("Feuil1").Range("B12")
    Set plage = Range("G6, H33,I34, J35")
    For i = 1 To plage.Areas.Count
     desti.Offset(0, i - 1).Value = plage.Areas(i).Value
    Next
 DossierFactures = Dir
 Loop
 
End Sub
Pourriez-vous m'aider à trouver pourquoi ça ne boucle pas??
Merci.