Macro sauvegarde

roy -  
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   -
merci de bien vouloir me depanner commme la plupart des débutant ....
"probleme" pour moi
je voudrais trouver une macro qui d'un clic sur le bouton (ca je sais faire;;;le bouton)
me sauvegarde le fichier SOUS UN AUTRE NOM automatiquement
A voir également:

3 réponses

deuche72 Messages postés 518 Statut Membre 44
 
Bonjour,

Merci de préciser le logiciel utilisé !!!!!

A+

Thierry
0
roy
 
salut thierry

j utilise excel 2002 et toute les macro que je trouve dans les forums ne foonctionne pas, ou sont des bakup

moi je souhaiterais une macro qui me copirais mon modèle
enregistrerais cette copie sous le non d'une cellule de référence
style facture
enregistrement copie faite qu il me réouvre le modèle vierge
merci a +
roy
0
deuche72 Messages postés 518 Statut Membre 44
 
Bonsoir,

essaie ça :

Sub Test()
'
' Test Macro
'

'

ActiveWorkbook.SaveAs Filename:=ActiveCell.Value, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub


En espérant que ça te convienne.

A+

Thierry

PS : un grand merci à mon frangin pour la réponse !!!!
0
gbinforme Messages postés 15481 Date d'inscription   Statut Contributeur Dernière intervention   4 730
 
bonjour

je te propose plutôt cette instruction qui te permet de sauver ta facture,
et de continuer à travailler sur le même classeur de base :

ActiveWorkbook.SaveCopyAs ActiveCell.Value

tu peux ainsi faire une série de factures sans avoir à changer
de classeur et en les sauvegardant au fur et à mesure.

si tu mets cette macro dans ta feuille, tu n'a même pas besoin de bouton,
car lorsque tu changes la valeur de ton nom de classeur il est sauvé.

Private Sub Worksheet_Change(ByVal sel As Range)
Select Case sel.address
Case "$A$1" ' la cellule qui contient ton nom de classeur
ActiveWorkbook.SaveCopyAs sel.Value
End Select
End Sub


il te suffit de choisir l'enplacement de la cellule qui contient le nom.

0