Executer copier/coller dans plusieur fichier Excel

Bonjour à tous ,

ma macro me donne une erreur mais je ne comprend pas d'ou cela peut venir!!

j'aimerai que ma macro applique un copier coller sur tous les fichiers excel contenu dans un dossier

Sub test()

Dim Fich As String

Const chemin = "C:\Documents and Settings\pc000592\Bureau\Nouveau dossier\"

Fich = Dir(chemin & "*.xls")

Do While Fich <> ""

Workbooks.Open chemin & Fich

Range("B3").Select

Selection.Copy

Sheets("Feuil2").Select

ActiveSheet.Paste

Workbooks(Fich).Close True

Fich = Dir

Loop

End Sub

cette macro me donne une erreur 400

je suis perdu

merci de votre aide

Greg

Bonjour,

Essaie ceci :

Sub test()
Dim Fich As String
Dim chemin As String
chemin = "C:\Documents and Settings\pc000592\Bureau\Nouveau dossier\"
Fich = Dir(chemin & "*.xls")
Do While Fich <> ""
Workbooks.Open chemin & Fich
With Sheets("?????")
    .Select
    .Range("B3").Copy Sheets("Feuil2").Range("????")
End With
Workbooks(Fich).Close True
Fich = Dir
Loop
End Sub

Remplace uniquement les ??? dans le code par les données exactes.

Amicalement

Bonjour,

Ca fonctionne merci pour t'on aide!!

Greg

ps: je sais pas ou on clique pour "résolu"