Sauvegarde Fichier + date

[Patrick Dominici]

Je viens sur ce site pour la première fois
Grosse qualité de travail, vraiment super, j'aimerai pouvoir en faire autant mais je suis "nul" en VBA.
En ce moment, je commence à rechercher, un moyen d'enregistrer un fichier, Word ou excel sous le meme nom avec la date à coté.
Ex
J'ouvre un fichier ou modéle Rapport hebdommadaire.
Quand je le ferme, j'aimerai qu'il s'enregistre sous Rapport hebdomadaire du 21/06/2003
et la semaine d'aprés, j'ouvre de nouveau mon fichier Rapport Hebdomadaire, je lui fait un reset et j'écris mon rapport.
Quiand je le ferme, j'aimerai qu'il s'enregistre sous Rapport Hebdommadaire du 28/06/2003 (date du jour)
Voila ce que j'aimerai savoir faire!! mais je m'accroche et si je peux avoir un coup de main, je le prendrai volontiers
Merci

 

[Schmail]

Bienvenue Patrick

On s'est croisé (je suis un peu long pour rédiger une réponse lol)

Tu la trouveras sur le lien ci-dessous :

<http://www.excel-downloads.com/html/French/forum/messages/1_37911_11738.htm>

@+

 

[Patrick Dominici]

Merci
Vraiment ravi d'avoir trouvé ce site.
Suis passionné mais j'ai vraiment des lacunes sur programation VBA.
J'ai éssayé le code, mais en vain aucun résultat.
Je dois loupé quelque chose en route.
Quand j'enregistre, tout (et rien) se passe en arriere plan, avant la fermeture du fichier, j'aimerai qu'une boite apparaisse et me demande voulez vous enregitrer " Rapport Hebdomadaire du "Jour" oui / Non (bouton).
J'ai des idées que je maitrise trop mal.

merci et à bientôt
Patrick

 

[Patrick Dominici]

Merci, J'ai éssayé sur excel, ça fonctionne à merveille.
Je n'arrive pas sur Word, est ce si différent que ça ??
encore merci

 

[Schmail]

Bonjour Patrick et le forum

la manip est similaire sauf que l'on ne parle plus de WorkBook mais de Document, donc ds VBEditor tu vas ds ThisDocument, à droite tu trouveras l'objet "Document" et la procédure "Close".
la macro devra ressembler à cela :

Private Sub Document_Close()
Dim jour As String
jour = Format(Date, "dd-mmm-yy")

ActiveDocument.SaveAs FileName:="Rapport hebdomadaire du " & jour, FileFormat:=wdFormatDocument, _
LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
End Sub

J'ai obtenu ActiveDocument.SaveAs.....en me servant de l'enregistreur de macro, c'est un outil très utile qd on démarre en VBA.
@+ et bonne journée