Copie de classeur sous un nom different via un bou

[yorrickb]

Bonsoir,

J'aimerais savoir si selon vous il est possible
via un bouton et donc une macro de lancer une copie du classeur en cours dans un repertoire
X sous un autre nom de ficher sans modifier
le nom de mon fichier sur lequel je travail.

Par exemple:

J'ouvre le fichier 'monclasseur.xls' et je clique
sur le bouton de sauvegarde que j'ai crée.

Le resultat est le suivant mon fichier actuel(monclasseur.txt) n'est pas enregistré mais
mon clique à créer un fichier du style monclasseur_monclient.xls dans le repertoire sauvegarde.

Je ne suis pas sur d'etre assez precis

merci de votre aide.

 

[gex1403]

Salut yorick, le forum
Voici un code que Charly m'a donné, je sauvegardes mon fichier sous le nom, SUIVI_ATELIER suivi du texte qui se trouve sur la feuille 1 en G2, je penses que tu peux l'adapter pour ton appli
J'ai rajouté Application quit, pour fermer le fichier apres l'avoir renomé, puis réouvrir ton fichier source.

@micalement

Option Explicit
' le nom du répertoire est en constante, on peut également
Const Repertoire As String = 'L:\\'
Sub Sauvegarde()
'
Dim Nomfichier As String
' première partie du nom du fichier sans extension
Nomfichier = 'SUIVI_ATELIER'
With Application
.DisplayAlerts = False
' puis on enregistre le fichier en lui ajoutant le
' contenu de G2 (feuille MENU) et l'extension .xls
With .ThisWorkbook
.SaveAs Filename:=Repertoire & Nomfichier & _
.Sheets('MENU').Range('G2') & '.xls', _
addtomru:=True
End With
.DisplayAlerts = True
Application.Quit
End With
End Sub

 

[Issam]

Bonjour,

Ca tombe bien, c'est ce que je cherchais aussi entre autre.

Merci beaucoup yorrickb.

 

[yorrickb]

Re:Copie de classeur sous un nom different via un

Merci beaucoup pour tes elements qui m'on beaucoup servit pour modifier ma macro.

Cordialement

Yorrick