Erreur 1004 : Nous ne trouvons pas C

Bonjour,

J'ai l'erreur 1004 avec ce bout de code ci-dessous, l'erreur se situe à la ligne Workbooks.Open "C:\Temp\" & Monclasseur.

Le but est d'ouvrir 200 classeurs qui se trouverons dans un folder ici Temp pour le test et de changer le nom de la première feuille active.

Sub OuvertureTousClasseurs() 
'Étape 1: Déclaration des variables
Dim MesFichiers As String
'Étape 2: Indication du répertoire cible
MesFichiers = Dir("C:\Temp\*.xlsx")
Do While MesFichiers <> ""
'Étape 3: Ouvrez plus de classeurs
Workbooks.Open "C:\Temp\" & Monclasseur
'Exécution de certains codes
MsgBox ActiveWorkbook.Name
ActiveSheet.Name = "Order"
ActiveWorkbook.Close SaveChanges:=True
'Étape 4: Le fichier suivant du dossier
MesFichiers = Dir
Loop
End Sub

Pourriez-vous m'aider ?

Merci,

David

Bonjour,

Voici un exemple de code qui boucle sur tous les fichiers d'un dossier.

Essaie de t'en inspirer, de faire un mix des 2, et reviens ici si jamais ça coince ;)

Sub BoucleFichiers()
    Dim Chemin As String, Fichier As String

    'Définit le répertoire contenant les fichiers
    Chemin = "C:\dossier\"

    'Boucle sur tous les fichiers xlsx du répertoire.
    Fichier = Dir(Chemin & "*.xlsx")
    'Utilisez la syntaxe suivante pour boucler sur tous les types de fichiers :
    'Fichier = Dir(Chemin & "*.*")

    Do While Len(Fichier) > 0
        'écrit le résultat dans la fenêtre d'exécution (Ctrl+G).
        Debug.Print Chemin & Fichier
        Fichier = Dir()
    Loop
End Sub

Bonjour,

Tu déclares MesFichiers

et tu veux ouvrir Monclasseur

Un peu bizarre non ?

Sub OuvertureTousClasseurs() 
'Étape 1: Déclaration des variables
Dim MesFichiers As String
'Étape 2: Indication du répertoire cible
MesFichiers = Dir("C:\Temp\*.xlsx")
Do While MesFichiers <> ""
'Étape 3: Ouvrez plus de classeurs
Workbooks.Open "C:\Temp\" & MesFichiers
'Exécution de certains codes
MsgBox ActiveWorkbook.Name
ActiveSheet.Name = "Order"
ActiveWorkbook.Close SaveChanges:=True
'Étape 4: Le fichier suivant du dossier
MesFichiers = Dir
Loop
End Sub