date et heure dans macro

  • Initiateur de la discussion Initiateur de la discussion CoOki_
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CoOki_

XLDnaute Nouveau
bonjour j'ai un souci sur cette macro je n'arrive pas a lui etablier le nom en lui donnant la date et l'heure comment puis je faire ??
de plus je voudrai quant je ferme qu'il ne me pose pas les question si je veux sauvegarder les modification je voudrai que mon fichier ne soit pas modifier hors là il le fait :/


Sub save_and_close()

Sheets("Feuil2").Copy
ActiveWorkbook.SaveAs Filename:="G:\archive\ & Format Date,(dd mmm)" ,FileFormat:=xlNormal"
ActiveWorkbook.Close
Application.Quit
End Sub
 
Re : date et heure dans macro

bonjour


Pour la première partie de ta question, remplace:

Code:
ActiveWorkbook.SaveAs Filename:="G:\archive\ & Format Date,(dd mmm)" ,FileFormat:=xlNormal"

par

Code:
ActiveWorkbook.SaveAs Filename:="G:\archive\" & _
    Format(Date, "dd mmm") & ".xls", FileFormat:=xlWorkbookNormal



Bonne journée
MichelXld
 
Re : date et heure dans macro

ben çà fonctionne a present mais ej un souci la macro m'indique toujours l'heure 00 h00 et j'ai un message d'erreur d'execution excel qui se produit a la cloture.
voici la macro

Sub save_and_close()
'
Sheets("Feuil2").Copy
ActiveWorkbook.SaveAs Filename:="G:\archive\" & _
Format(Date, "dd mmm hh""h""mm") & ".xls", FileFormat:=xlWorkbookNormal
ActiveWorkbook.Close
ActiveWorkbook.Close SaveChanges:=False
Application.Quit
End Sub
 
Re : date et heure dans macro

rebonjour


Tu dois utiliser la fonction Time pour récupérer les heures et les minutes
Remplace

Code:
Format(Date, "dd mmm hh""h""mm")

par

Code:
Format(Date, "dd mmm") & " " & Replace(Format(Time, "hh:mm"), ":", "h")



ou la fonction Now:

Code:
Format(Now, "dd mmm hh mm")



Bonne journée
MichelXld
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
495
Réponses
10
Affichages
559
Réponses
1
Affichages
629
Réponses
2
Affichages
893
Retour