Bonjour à tous,
Je rencontre un soucis avec mon code VBA et j'ai besoin de vos lumières
Je souhaite, à l'aide d'un commandbutton qui est dans le classeur A ouvrir plusieurs fichiers excel (se trouvant dans le dossier "Test"), copier la feuille nommé "Form TT" (présente dans tous les fichiers excel du dossier "Test") et les coller dans le classeur "Recensement formation".
Classeur A et le fichier Recensement formation sont dans le même dossier
Voici le code que j'ai :
Private Sub CommandButton2_Click()
Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet
Dim myPath As String, myfile As String
Set wkbDest = Workbooks.Open("S:\Situations\Budget 2016\Construction\Recensement formation.xlsm")
myfile = "Recensement formation.xlsm"
ChDir "S:\Situations\Budget 2016\Construction\test"
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Workbooks.Open ("S:\Situations\Budget 2016\Construction\Recensement formation.xlsm")
myfile = Dir()
Workbooks(monfichier).Sheets("Form TT").Copy _
after:=Workbooks(myfile).Sheets("Feuil2") 'Copie-colle le fichier
Workbooks(monfichier).Close
Wend
End Sub
J'ai comme erreur : l'indice n'appartient pas à la selection à ce niveau :
Workbooks(monfichier).Sheets("Form TT").Copy _
after:=Workbooks(myfile).Sheets("Feuil2") 'Copie-colle le fichier
Quand je laisse mon curseur sur "myfile" il m'indique myfile = ""... je suppose que le problème est ici..
Pouvez-vous m'aider, je m'arrache les cheveux dessus
Merci
Je rencontre un soucis avec mon code VBA et j'ai besoin de vos lumières
Je souhaite, à l'aide d'un commandbutton qui est dans le classeur A ouvrir plusieurs fichiers excel (se trouvant dans le dossier "Test"), copier la feuille nommé "Form TT" (présente dans tous les fichiers excel du dossier "Test") et les coller dans le classeur "Recensement formation".
Classeur A et le fichier Recensement formation sont dans le même dossier
Voici le code que j'ai :
Private Sub CommandButton2_Click()
Dim wkbSource As Workbook
Dim wkbDest As Workbook
Dim shtToCopy As Worksheet
Dim myPath As String, myfile As String
Set wkbDest = Workbooks.Open("S:\Situations\Budget 2016\Construction\Recensement formation.xlsm")
myfile = "Recensement formation.xlsm"
ChDir "S:\Situations\Budget 2016\Construction\test"
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Workbooks.Open ("S:\Situations\Budget 2016\Construction\Recensement formation.xlsm")
myfile = Dir()
Workbooks(monfichier).Sheets("Form TT").Copy _
after:=Workbooks(myfile).Sheets("Feuil2") 'Copie-colle le fichier
Workbooks(monfichier).Close
Wend
End Sub
J'ai comme erreur : l'indice n'appartient pas à la selection à ce niveau :
Workbooks(monfichier).Sheets("Form TT").Copy _
after:=Workbooks(myfile).Sheets("Feuil2") 'Copie-colle le fichier
Quand je laisse mon curseur sur "myfile" il m'indique myfile = ""... je suppose que le problème est ici..
Pouvez-vous m'aider, je m'arrache les cheveux dessus
Merci
Dernière édition: