Discussion :

[dimitri70]

Bonjour à tous

J'essai de copier un onglet excel de mon fichier d'origine sur un autre fichier excel que je choisi avec openGetFile.
Mon problème est que en fait il copie l'onglet sur mon fichier d'origine.

Voici le code que j'ai créé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub AAAAAAAAAAAAAAAAA()
'
' AAAAAAAAAAAAAAAAA Macro
'
Name = ThisWorkbook.Name
Worksheets("Suivi nb navette").Select
 
Workbooks.Open Filename:=Application.GetOpenFilename("Excel Files (*.xlsx),*.xlsm"), UpdateLinks:=False
Destination = ThisWorkbook.Name
 
Workbooks(Name).Worksheets("Suivi nb navette").Activate
Worksheets("Suivi nb navette").Cells.Select
Selection.Copy
Workbooks(Destination).Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
 
'
End Sub

Je trouve pas d'ou vient le problème, est ce qu'un exper du forum peut m'aider?
Merci

[verredewhisky]

L'erreur est que le nom de la destination est le nom de ton classeur actuel, ThisWorkbook prend le classeur sur lequel s’exécute la macro.

faux :

Code :

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

1
2
 
Destination = ThisWorkbook.Name

juste :

Code :

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

1
2
3
 
Set classeurDestination = Workbooks.Open(Filename:=Application.GetOpenFilename("Excel Files(*.xlsx),*.xlsm"))
            Destination = classeurDestination.Name

[dimitri70]

Merci verredewhisky

Ca marche nickel!

[verredewhisky]

Tout le plaisir est pour moi! Mets sujet résolu si c'est bon.

[mercatog]

Si l'utilisateur décide d'annuler le choix du fichier?

Je ne sais pas pourquoi des mêmes sujets restent ouverts
http://www.developpez.net/forums/d13...omme-variable/