Problème macro qui fait un même code sur plusieurs classeurs

Bonjour,

L'objectif de ma macro est d'effectuer un même code sur un grand nombre de classeur que l'on appellera ici classeur1, classeur2, classeur3, ... , classeurX-1, classeurX. On prendra pour test sur 3 classeurs.

Ma macro doit permettre à l'utilisateur d'aller chercher lui-même le classeur à chaque boucle.

La macro test avec erreur est la suivante (en gras les erreurs) :

Sub code_multiple()

Dim classeur1, classeur2, classeur3 As Workbook

Dim chemin1, chemin2, chemin3 As Variant

For i = 1 To 3

chemin & Cstr(i) = Application.GetOpenFilename (Title:="Emplacement classeur numéro : " & Cstr(i))

If chemin & Cstr(i) = False Then Exit Sub

Set classeur & Cstr(i) = Workbooks.Open(chemin & Cstr(i))

classeur & Cstr(i).Activate

CODE SUR LE CLASSEUR

classeur & Cstr(i).Close

Next

End Sub

En gros quand i=1, j'aimerai que classeur & i = classeur1, idem pour chemin & i = chemin1 et utiliser classeur1 comme Workbook et chemin1 comme Variant.

Je vous remercie d'avance et espère avoir été clair..

PS: macro suivante fonctionne chemin1 = Application.GetOpenFilename (Title:="Emplacement classeur 1")

If chemin1 = False Then Exit Sub

Set classeur1 = Workbooks.Open(chemin1)

Bonjour,

Fait un essai avec ce code ...

Sub code_multiple()
Dim Classeur As Workbook
Dim Chemin As String

    For i = 1 To 3
        Chemin = Application.GetOpenFilename(Title:="Emplacement classeur numéro : " & CStr(i))

        If Chemin = "" Then Exit Sub
        Set Classeur = Workbooks.Open(Chemin)
        Classeur.Activate

        ' CODE SUR LE CLASSEUR

        Classeur.Close
    Next
End Sub

ric

Le problème est résolu !

Je te remercie Ric