Sauvergarde

[Didier]

Bonjour le forum
Je souhaiterais enregistrer un fichier en remplaçant le nom par une date qui se trouve en H6

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False

strPath = "C:\mes documents\Honda" 'Archiv
ActiveWorkbook.SaveAs FileName:=strPath & "\" & .ActiveWorkbook.name
Application.DisplayAlerts = True
End Sub
si quelqu'un pouaarit m'aider ?
Merci à tous
Didier

 

[@Christophe@]

Bonjour

Ben tu ajoutes une variable et tu modifie sont formats, parce que dans l'enregistrement tu ne dois pas avoir de caractère spéciaux, donc:

Sub enregistre()
Dim DateEnreg as string

DateEnreg = range("H6").value

ActiveWorkbook.SaveAs FileName:=Format(DateEnreg, "ddmmyy")

end sub

Et voila

@Christophe@

 

[Didier]

Bonjour @Cristophe@
Y ' a un moment que je suis pas venu sur le forum j'ai un mal fou à me connecté il me dit toujours Ereur 504 ...
merci pour le code je vais essayer
A+Didier

 

[Didier]

Re bonjour @cristophe@
ça marche impec
Merci beaucoups
Didier

 

[Alexandre]

Bonjour,


J'ai un peu le même souci.

En fait, j'ai un classeur modèle nommé 'Heures - A-G', que je souhaiterias renommer à la fermeture en 'Heures - Janvier - A-G', sachant que la date a été définie par l'utilisateur sur une feuille nommée 'Liste Animateurs' en G17.


Un code est-il possible ?


Merci


Alexandre

 

[@Christophe@]

Bonjour,

Ben Alexandre, même procédure:

Sub enregistre()
Dim DateEnreg as string
Dim NomFichier as string

DateEnreg = Sheet("Liste Animateurs").range("G17").value
NomFichier = "Heures - " & Format(DateEnreg, "mmmm") & " - A-G"

ActiveWorkbook.SaveAs FileName:=NomFichier

end sub

Et voila

@Christophe@

 

[@Christophe@]

Re

Je viens de me corriger, il manque un petit 's' dans le sheet de la ligne suivante:

DateEnreg = Sheets("Liste Animateurs").range("G17").value


Ca arrive

@Christophe@

 

[Alexandre]

Bonjour,


merci pour la petite info. Cependant, je souhaiterais enregistrer le fichier par cette macro dans un autre dossier que le "classique" c:\mes documents

Par exemple, sur un deuxième disque dur (d:\gestion)


Est-ce possible ?

 

[@Christophe@]

Bonsoir Alexandre,

Biensur que c'est possible

modifie le ligne suivante:

ActiveWorkbook.SaveAs FileName:="D:\Mes Documents\" & NomFichier


Et voila

bonne soirée

@Christophe@

 

[alexandre]

Merci à toi l'ami

de quoi progresser encore pour moi... le temps de bien déchiffrer la macro