copier coller d un classeur avec le nom qui change

[noon]

bonjour
ci-dessous
ma macro me permet d ouvrir un fichier excel
sans connaitre le nom (vu que ce n est jamais le meme nom il faut que j aille le chercher moi meme d ou ma premiere ligne qui m ouvre l explorateur de fichier)
ensuite je fais un copier coller

mais voila j ai besoin de refaire un copier coller de ce meme fichier
mais etant donner que je l ai ouvert avec l explorateur de fichier
il n a pas de nom
alors comment le reouvrir sans que je passe encore
par 'Application.Dialogs(xlDialogOpen).Show' au miliey de ma macro

merci

Application.Dialogs(xlDialogOpen).Show
Sheets('Week End').Select
Range('A1:C56').Select
Selection.Copy
Windows('CantineNo.xls').Activate
Sheets('Week End').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range('A1').Select
Sheets('cantine').Select
Range('Z5').Select
Application.Dialogs(xlDialogOpen).Show
Sheets('fiche de base').Select
Range('A1😛59').Select
Selection.Copy
Windows('CantineNo.xls').Activate
Sheets('fiche de base').Select
Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

 

[galopin01]

bonsoir,
bien sur qu'il a un nom ton classeur puisque tu l'as ouvert.
Après...
Application.Dialogs(xlDialogOpen).Show
mettre...
wbNam = ActiveWorkbook.Name

wbNam stockera le nom de ce classeur
ensuite...

Workbooks(wbNam).Sheets('Week End').Range('A1:C56').Copy
Windows('CantineNo.xls').Activate
Sheets('Week End').Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks(wbNam).Sheets('fiche de base').Range('A1:p59').Copy
Workbooks('CantineNo').Sheets('fiche de base').Range('A1').Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Bon je t'ai fait ça en téléphoné à l'aveuglette mais... ça devrait faire l'affaire. Sinon tu reviens !
Ok ?

 

[noon]

bonjour galopin01
et tout d abord merci de ton aide

j ai essayer ce que tu m as donné

Application.Dialogs(xlDialogOpen).Show
Workbooks(wbNam).Sheets('Week End').Range('A1:C56').Copy

le code workbooks(wnam) pose un probleme

doit je faire autre choses ?

 

[galopin01]

Re:
Oui mon explication était complète mais peu claire...

Application.Dialogs(xlDialogOpen).Show
wbNam = ActiveWorkbook.Name
Workbooks(wbNam).Sheets('Week End').Range('A1:C56').Copy
....

Ok ?

 

[noon]

impeccable
merci encore galopin01