Corriger mon code pour Date & Enregistrer Sous

Bonjour à Tous,

J'ai pris ce code sur ce Forum et il y a deux modifs que je voudrais faire:

• Le fichier enregistre avec l'heure, j'ai besoin de la date aussi si possible.
• Le fichier s’enregistre ou il a été ouvert, j'ai besoin de pouvoir mettre l'adresse ou je veux le sauvegarder en VBA.

Je joins le fichier exemple.

Merci

Jean.

Bonsoir,

S'il te faut la date et l'heure, tu remplaces Time par Now, que tu mets au format souhaité...

Et pour l'enregistrement, tu modifie le chemin !

Mais mon conseil serait d'écrire la macro entièrement...

Cordialement.

Bonjour MFerrand,

Ça fonctionne pour la Date.

J'ai modifié le code comme ça:

Dim stHeureExport As String
stHeureExport = " " & _
Format((Now), "yyyy-mm-dd")
NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport

Pour l'enregistrement je vais chercher encore.

Merci Beaucoup du coup de main.

Jean

Tu n'utilises pas l'heure, donc tu n'as pas besoin de Now. Date renvoie la date !

C'est pour faire un effet de style que tu mets ta ligne de code sur 2 lignes alors qu'elle est plutôt courte !

Tu n'as pas défini ChDir, ni NomFichier...

Je conseillerais de changer ChDir comme nom de variable, il s'agit d'une instruction VBA et il n'est jamais conseillé d'utiliser des mots-clés du code, même si VBA ne les bloque pas.

Et n'oublie pas l'extension...

Tu peux intégrer le dernier antislash dans la définition du chemin si le mets en "dur". Et tu peux initialiser le nom de fichier en y intégrant la partie horaire et l'extension. Ce qui ramènera ta ligne d'enregistrement à :

    ThisWorkbook.SaveAs Chemin & NomFichier

si c'est le classeur qui contient la macro que tu enregistres (tu ne l'as pas précisé).

Cordialement.

Bonsoir MFerrand,

J'ai changé le code pour:

Dim stHeureExport As String
stHeureExport = " " & Format((Date), "yyyy-mm-dd")
NomCompletFichier = ChDir & "\" & NomFichier & stHeureExport

Et ça fonctionne très bien.

Je vais tester votre proposition pour la sauvegarde.

Merci de m'aider.

Jean

Pourquoi Date entre parenthèses ?

La mise d'un élément entre parenthèses à pour fonction en VBA de forcer le passage d'un argument par référence (quand ce n'est pas autorisé)...

Cela ne correspond pas à une telle situation, c'est sans effet mais pas utile...

Bonsoir MFerrand,

Je l'ai corrigé.

Encore une fois Merci et surtout pour les explications.

Jean

Sans explication, ça permet pas d'avancer !

Bonne suite...