Discussion :

[Lexot2]

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

[illight]

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

[Lexot2]

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 :

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

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 :

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

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

[SilkyRoad]

bonjour

refait un essai en remplaçant

Code :

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

Set wbkSource = Workbooks("Essai001")

par

Code :

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

Set wbkSource = Workbooks("Essai001.xls")

idem pour

Code :

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

Set wbkDest = Workbooks("Essai01.xls")

michel

[Lexot2]

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 :

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

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