user_mobilelogo
Etoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactivesEtoiles inactives
 

Vous enregistrez régulièrement vos documents au format PDF. Vous pouvez effectivement créer une macro reliée à un bouton qui vous évitera de faire manuellement l'enregistrement sous.

Voici la macro :

 

Sub VersPDF()
'macro écrite par m@rina
Dim nfichier As String, nfichier2 As String, intpos As Byte

nfichier = ActiveDocument.Name
'trouve la position de l'extension
intpos = InStrRev(nfichier, ".")
'remplace l'extension doc par pdf
nfichier = Left(nfichier, intpos - 1)
nfichier2 = nfichier & ".pdf"
'enregistre dans le dossier en cours
ActiveDocument.ExportAsFixedFormat outputFileName:=ActiveDocument.Path & "/" & nfichier2, _
exportFormat:=wdExportFormatPDF


End Sub

Statistiques

Aujourd'hui844
Hier1816
Cette semaine12109
Ce mois43885
Total depuis 200411026645

6
visiteurs actuellement en ligne