Comment modifier le Path (Chemin en cours)

[L_S]

Je vous explique,

Je souhaiterait généralisée cette macro qui a pour but de déplacer/copier un onglet dans un nouveau classeur:

Sub Macro1()

Sheets("Classeur1").Select
Sheets("Classeur1").Copy Before:=Workbooks("Classeur1.xls.xls").Sheets(1)
Windows("Classeur1.xls").Activate

End Sub

Seulement ce code ne fonctionne que pour deplacer/copier l'onglet du "Classeur1" au "Classeur1.xls".

Comment faire pour que le Path ne soit pas figé ?

Merci d'avance.

 

[Pierrot93]

Re : Comment modifier le Path (Chemin en cours)

Bonjour,

qu'entends tu par :

Comment faire pour que le Path ne soit pas figé ?

pour moi le "path" d'un classeur est son chemin d'accès....

bon après midi
@+

 

[L_S]

Re : Comment modifier le Path (Chemin en cours)

Oui, nous parlons bien de la meme chose;

En fait, je souhaiterais que cette macro s'adapte quelque soit le nom du fichier.

 

[Pierrot93]

Re : Comment modifier le Path (Chemin en cours)

Re,

remplace peut être :

Workbooks("Classeur1.xls.xls")

par :

ActiveWorkbook

mais "path" n'est pas le nom du fichier mais son chemin.....

 

[MJ13]

Re : Comment modifier le Path (Chemin en cours)

Bonjour L_S, Pierrot

L_S: Tu peux toujours tester ce fichier dans cette discussion facilement adaptable .

https://www.excel-downloads.com/threads/et-4-kilos-pour-mj13.158035/