Instances de classeurs

8-) Bonjour AlainTech

Suite à cette discussion, j'ai utilisé ton code, car je suis interessé par les instances des fichiers, mais j'ai obtenu "erreur d'exécution '9' l'indice n"appartient pas à la sélection" D'où vient le problème ? Merci pour ta réponse

Cordialement

Pour savoir d'ou vient ton erreur, il faudrait que tu montre ton code ainsi que la ligne ou l'erreur s'est produite :)

8-) Bonjour

Voici mon code. C'est l'exemple d'AlainTech avec mes noms de fichier. Toutes mes excuses pour l'interférence avec une autre discussion. On apprend tous les jours!

Code:

---

1 2 3 4 5 6 7 8 9

Sub Essai1()   Dim wbkSource As Workbook Dim wbkDest As Workbook Set wbkSource = Workbooks("Essai001") Set wbkDest = Workbooks("Essai01") wbkSource.Sheets("Feuil1").[a1].Copy _ Destination:=wbkDest.Sheets("Feuil1").[a1] End Sub

---

L'erreur se trouve sur cette ligne

Code:

---

Set wbkSource = Workbooks("Essai001")

---

"Essai001" est ouvert et contient la macro ci-dessus
"Essai01" est ouvert aussi.
J'ai également essayé de mettre le nom complet de Essai001.
Merci pour l'aide que je reçois

Cordialement

bonjour

refait un essai en remplaçant

Code:

---

Set wbkSource = Workbooks("Essai001")

---

par

Code:

---

Set wbkSource = Workbooks("Essai001.xls")

---

idem pour

Code:

---

Set wbkDest = Workbooks("Essai01.xls")

---

michel

8-) Bonjour

Merci Michel pour ton aide précieuse. Le code fonctionne comme sur des roulettes! J'ai essayé une variante que je propose aux membres interessés par les instances des fichiers.

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Essai1()   Dim fs As Worksheet Dim fd As Worksheet   Set fs = Workbooks("Essai001.xls").Sheets("Feuil1") Set fd = Workbooks("Essai01.xls").Sheets("Feuil1")   fs.[a1].Copy Destination:=fd.[a1:a9]   End Sub

---

Ce code recopie le contenu d'une cellule d'un classeur source dans 9 cellules d'un classeur destination.
Cordialement