Désolé, effectivement sa ne fonctionne pas et je n'ai aucun message d'erreur juste la première ligne qui est en surbrillance Jaune.
Pour Wb.activate j'ai vu qu'elle n'était pas déclarer dans la première ligne :
Sub OuvertureFichiers(RepertoireFichier, NomFichier)
je l'ai rajouter après pour voir mais ce n'est pas mieux .
Pour le code c'est une personne du forum qui me l'a donné donc je ne sais pas spécialement à quoi sert Wb.activate
Normalement ce code VBA a pour but d'ouvrir un classeur excel via un autre classeur afin d'y copier la "feuil1"
L'ouverture du fichier fonctionne très bien c'est juste la copie de la feuille qui plante le code.
Workbooks(NomFichier).Sheets(1).Copy Before:=Workbooks.Sheets(1)
j'ai essayé de mettre Workbooks.activate mais ne fonctionne pas non plus toujours la première ligne en surbrillance. Je ne vois pas quelle indice lui indiquer pour copier la feuil du classeur " a extraire" dans le classeur " exrtaction".
Cordialement
Partager