Macro Enregistrer sous avec la date du jour

[Matjul]

Re bonjour,
J'ai créé une macro enregistrer sous, j'ai donc utilisé le code suivant:
ActiveWorkbook.SaveAs Filename:= _
"D:\Mes Documents\Travail en cours\Fiches incidents\Fiches-incidents" & "=now", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

Mais je souhaiterai qu'en plus du nom, la date et l'heure s'affiche automatiquement.

Pouvez vous m'aider?
Merci

 

[joss56]

Re : Macro Enregistrer sous avec la date du jour

Bonjour à tous

As tu essayé

"D:\Mes Documents\Travail en cours\Fiches incidents\Fiches-incidents" & date & " " & time
Je n'ai pas vérifié...

 

[Matjul]

Re : Macro Enregistrer sous avec la date du jour

Je viens d'essayer mais ça ne fonctionne pas,
Erreur d'exécution 1004
Fichier inaccessible

 

[joss56]

Re : Macro Enregistrer sous avec la date du jour

le dernier ficheincidents à qui il manque l'extension .xls est peut-être la cause de ton pb

 

[Matjul]

Re : Macro Enregistrer sous avec la date du jour

Non ce n'est pas ça non plus puisqu'en le rajoutant ça ne fonctionne toujours pas

 

[joss56]

Re : Macro Enregistrer sous avec la date du jour

Peux tu joindre ton fichier (sans données perso)

 

[bqtr]

Re : Macro Enregistrer sous avec la date du jour

Bonjour Matjul, joss56

Excel refuse les ":" et les "/" dans les noms de fichier.
Tu peux t'en sortir en décomposant la date et l'heure comme ceci :

Sub Nom_Fichier()

ActiveWorkbook.SaveAs Filename:= _
"C:\AAA-" & Day(Date) & "." & Month(Date) & "." & Year(Date) & " " & Hour(Time) & "-" & Minute(Time) & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

Bonne journée

 

[Matjul]

Re : Macro Enregistrer sous avec la date du jour

Voici le fichier

 

[joss56]

Re : Macro Enregistrer sous avec la date du jour

il faut ecrire le nom du fichier ainsi : ...\Fiches-incidents.xls" & " " & date & " " & time

 

[Matjul]

Re : Macro Enregistrer sous avec la date du jour

Merci à tous les 2, c'est bon ça fonctionne.

 

[bqtr]

Re : Macro Enregistrer sous avec la date du jour

erreur, désolé

 

[Pierrot97]

Re : Macro Enregistrer sous avec la date du jour

Bonjour à tous,

Question en plus,et si on veut que le mois apparaisse en toute lettre ?

 

[Pierrot93]

Re : Macro Enregistrer sous avec la date du jour

Bonjour,

regarde ceci :

ActiveWorkbook.SaveAs "sauv " & Format(Date, "dddd d mmmm yyyy")

préférable d'ouvrir ta propre discussion...

bon après midi
@+

 

[Pierrot97]

Re : Macro Enregistrer sous avec la date du jour

Merci beaucoup !
J'en ouvrirai ma propre discussion la prochaine fois.