Sauvergarde

@

@Christophe@

Guest

• 12 Juin 2003

• #2

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@

 

Vote positif 0 Vote négatif

D

Didier

Guest

• 12 Juin 2003

• #3

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

 

Vote positif 0 Vote négatif

D

Didier

Guest

• 12 Juin 2003

• #4

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

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 12 Juin 2003

• #5

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

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 12 Juin 2003

• #6

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@

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 12 Juin 2003

• #7

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@

 

Vote positif 0 Vote négatif

A

Alexandre

Guest

• 13 Juin 2003

• #8

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 ?

 

Vote positif 0 Vote négatif

@

@Christophe@

Guest

• 13 Juin 2003

• #9

Bonsoir Alexandre,

Biensur que c'est possible

modifie le ligne suivante:

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


Et voila

bonne soirée

@Christophe@

 

Vote positif 0 Vote négatif

A

alexandre

Guest

• 13 Juin 2003

• #10

Merci à toi l'ami

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

 

Vote positif 0 Vote négatif