Bonjour,
à partir d'un fichier excel d'entrée je récupéré un certain nombre de données
ces données représentes des noms des feuilles dans le fichier excel d'entrée
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Do While Not IsEmpty(w2.Worksheets("Tableau EC AL").Range("A" & Lig)) w2.Worksheets("Tableau EC AL").Range("A" & Lig).Copy w1.Worksheets("TargetSheet").Range("P" & Lig + 1)
par suite je voudrais récupérer des données qui existent sur les feuilles en question, pour cela j'ai utilisé l'astuce suivante:
mais ça ne fonctionne pas ça donne toujours un message d'erreur
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 Dim SheetFlag As String SheetFlag = w2.Worksheets("Tableau EC AL").Range("A" & Lig) w2.Worksheets("SheetFlag").Range("C5").Copy w1.Worksheets("TargetSheet").Range("Q" & Lig + 3)![]()
Partager