enregistrer sous automatique

mix770 · 18 Mai 2011

Bonjour,
j'ai un code VBA pour enreistrer sous avec le dossier de destination et la date automatique, j'aimerais qu'il n'écrase pas le fichier existant en cas de plusieurs courriers le meme jour, ou existe t'il une msgbox qui pourrait demander le nom que l'ont veux donner au fichier
voici mon code:

'Sub boutonclick()
'ChangeFileOpenDirectory "J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers"

ActiveDocument.SaveAs FileName:=Format(Date, "yy") & "," & Format(Date, "mm") & "," & Format(Date, "dd") & ".doc"
End Sub

merci à vous je galère un peu
cordialement
Mix770

brice59 · 20 Mai 2011

Re : enregistrer sous automatique

Salut,

voici la macro

Sub Macro1()
'
ChangeFileOpenDirectory "J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers"
NomFichier = "le nom de ton fichier_"
nf = Dir("J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers" & "\" & NomFichier & Format(Date, "dd_mm_yyyy_") & "*")
n = 0
Do While nf <> ""
nf = Dir
n = n + 1
Loop
ActiveDocument.SaveAs FileName:= _
"J:\QPEO TRAVAUX EN COURS\Support demande de travaux Andilly N° 35.2011\Base de données Tableau\archives courriers" & "\" & NomFichier & Format(Date, "dd_mm_yyyy_") & Format(n + 1, "000"), FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

le chemin est à vérifier...
tu peux changer l'ordre de la date comme tu veux ( yyyy_mm_dd) .....

enregistrer sous automatique

mix770

XLDnaute Impliqué

brice59

XLDnaute Occasionnel

Discussions similaires