Sauvegarde avec un nom automatique

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

Bonsoir,

Que fait le Range("c6") ?

tu veux enregistrer avec le nom en Range("B4") ?

Précise stp

Amicalement

Claude.

Non je veu juste que la valeur de C6 soit le nom du fichier

re,

pas compris le B4 !

essaye

Sub essai()
Dim chemin As String, fichier As String
    chemin = "C:\Documents and Settings\Medland\Mes documents\Fiche Parc Rambot"
    fichier = chemin & "\" & Range("c6") & ".xls"
    ActiveWorkbook.SaveAs Filename:=fichier
End Sub

Claude.

Bonsoir,

Edit : erreur de post

Dan

J'ai essayé ta macro mais cela ne marche pas...

Désolé je ne suis pas très très fort...

J'aimerai juste créer une sauvegarde par une macro en prenant la valeur de la cellule B4.

Ca sera plus simple de faire copie de la cellule B4, enregistré sous (toujours dans le même répertoire et coller et ok....

Si cela peu aider un peu plus dans mes explications.

Bonjour,

un coup, tu dis:

Non je veu juste que la valeur de C6 soit le nom du fichier

après, tu dis:

J'aimerai juste créer une sauvegarde par une macro en prenant la valeur de la cellule B4.

dans mon code, essaye de replacer "C6" par "B4"

fichier = chemin & "\" & Range("c6") & ".xls" 

J'ai du mal à suivre !

Claude.

re,

désolé !, les cellules B4 et C6 sont vides,

faut-il y ajouter des formules et lesquelles ?

Où trouve t-on le nom du fichier à enregistrer ?

Si pas + clair, je laisse tomber !

Amicalement

Claude.

Re & bonjour Claude

Mais Claude t'a donné toutes les indications.

Soit tu sauves avec la valeur de la cellule C6 ou avec la valeur en B4.

Il te suffit de mettre C6 ou B4 dans le code en question.

Place le code dans un module en VBA puis associe lui un bouton dessiné sur ta feuille ou associe le raccourci CTRL + W comme le service technique de ta société te l'a fait.

Maintenant le tout est de voir surtout ce à quoi tu as pensé.

Amicalement

Dan

Edit Oublie pas de mettre RESOLU sur le fil si tu en as terminé. Merci de ta participation.