Discussion :

[Moutaanni]

Bonjour,

à partir d'un fichier excel d'entrée je récupéré un certain nombre de données

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)

ces données représentes des noms des feuilles dans le fichier excel d'entrée

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:

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)

mais ça ne fonctionne pas ça donne toujours un message d'erreur

[Menhir]

mais ça ne fonctionne pas ça donne toujours un message d'erreur

Quel est ce message d'erreur <,
Que contient EXACTEMENT w2.Worksheets("Tableau EC AL").Range("A" & Lig) au moment de l'erreur ?

Si SheetFlag est une variable, il ne faut pas mettre de guillemets lorsqu'on l'utilise.
Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

w2.Worksheets(SheetFlag).Range("C5").Copy w1.Worksheets("TargetSheet").Range("Q" & Lig + 3)

[Moutaanni]

Oui c'est exactement ça, fallait enlever les guillemets,
Merci bcp pour votre aide