1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| '** Sauvegarde du fichier Word **
'Information du chemin de sauvegarde
Chemin = "C:\Documents and Settings\ArDenis\Desktop\JURIBASE XL\Méthode publipostage\SAUVEGARDE WORD\"
'Information du nom du fichier
nomfich_part1 = Worksheets("données").Cells(2, 2)
nomfich_part2 = Worksheets("données").Cells(2, 3)
NomFich = nomfich_part1 & " " & nomfich_part2 & ".doc"
If Dir(Chemin & nomfich_part1 & " " & nomfich_part2 & ".doc") <> "" Then
NomFich = Left(NomFich, Len(NomFich) - 4) & Format(Now, "yy-mm-dd hhmmss") & ".doc"
MsgBox "Le fichier existe déjà et sera enregistré sous : " & NomFich
End If
appWord.ActiveDocument.SaveAs Filename:=NomFich, FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False |
Partager