Re : PB Date de sauvegarde Re de GDS35

[gds35]

Re Bjr le forum , Voila je galere , et sais avoir crée 2 Discutions Mille excuse
je vous expose ds mon code mon soucis , merci a tous de votre réponse :

Private Sub BOUTONSAUVDEP_Click()
'
' Je DESIRE SAUEGARDER UN FICHIER AVEC CES PARAMETRES
' POURQUOI AI UNE ERREUR 13 INCOMPATIBILITE DE TYPE ????
' SUR L'INSTRUCTION DateSav = Format(CDate(DATESAVE), "dd-mm-yyyy")
' JE N'ARRIVE PAS A SAUVEGARDER CE FICHIER Ds LE REPERTOIRE AVEC SON NOM SPECIFIE
'
' GRAND MERCI DE VOTRE AIDE..
' GDS35
'
Rep = "C:\FRAISDEP\"
Fichier = "FRAISDEP_DU "
DateSav = Format(CDate(DATESAVE), "dd-mm-yyyy")
Hsauv = Format(Time, "hh")
Msauv = Format(Time, "mm")
Ext = ".xls"
'
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Rep & Fichier & DateSav & Hsauv & Msauv & Ext
Application.DisplayAlerts = True
'
SAVETAT.Hide
AVERTISSEMENT.Show
'
End Sub

 

[kjin]

Bonjour,
Je ne vois pas la raison pour laquelle tu crées un nouveau fil, d'autant que tu as la réponse ici https://www.excel-downloads.com/threads/pb-date-de-sauvegarde.102914/
Si la réponse ne te convient pas il suffit de le dire
A+
kjin

 

[gds35]

Désolé me suis, planté , j'ai crée un nx dial au lieu de repondre .
cependant ma question reste d'actualité , ne voulais pas melanger 2 Infos ,
Merci de ton aide en suis très reconnaissant
GDS35