Charger une feuille Excel à partir d'une chaîne de caractères String

Bonjour,

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

Code:

---

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:

---

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 :(

Citation:

---

Envoyé par Moutaanni

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:

---

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

---

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