J'aimerai créer une macro pour, sauvegarder automatiquement la feuille de travail par rapport à une valeur de cellule.
Voila ce que j'ai fait.
J'aimerai remplacer 800109109 par la fonction copier et lors de l enregistrement par la fonction coller car la ca me sauvegarde toujours avec le même nombre.
Merci beaucoup de votre aide.
Sub sauvegarde()
'
' sauvegarde Macro
' Macro enregistrée le 23/11/2009 par Service Technique
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("B4").Select
ActiveCell.FormulaR1C1 = "800109109"
Range("C6").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Medland\Mes documents\Fiche Parc Rambot\800109109.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
Voila ce que j'ai fait.
J'aimerai remplacer 800109109 par la fonction copier et lors de l enregistrement par la fonction coller car la ca me sauvegarde toujours avec le même nombre.
Merci beaucoup de votre aide.
Sub sauvegarde()
'
' sauvegarde Macro
' Macro enregistrée le 23/11/2009 par Service Technique
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("B4").Select
ActiveCell.FormulaR1C1 = "800109109"
Range("C6").Select
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Medland\Mes documents\Fiche Parc Rambot\800109109.xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub