Bonjour,
J’enregistre mes fichier dans un répertoire grâce à une macro qui incrémente comme ceci :
Contact__09.02.2015 V.pdf
Contact__15.02.2015 V2.pdf
Contact__15.02.2015 V3.pdf
…
J’aimerais une autre macro qui enregistre un PDF en écrasant automatiquement la version la plus élevé (V3) sachant que la date elle peut être différente.
Ci-dessous voici en essai une partie de mon code mais malheureusement il ne fonctionne pas !
Mes connaissances en VBA sont trop limitées ! Merci pour votre aide.
J’enregistre mes fichier dans un répertoire grâce à une macro qui incrémente comme ceci :
Contact__09.02.2015 V.pdf
Contact__15.02.2015 V2.pdf
Contact__15.02.2015 V3.pdf
…
J’aimerais une autre macro qui enregistre un PDF en écrasant automatiquement la version la plus élevé (V3) sachant que la date elle peut être différente.
Ci-dessous voici en essai une partie de mon code mais malheureusement il ne fonctionne pas !
Mes connaissances en VBA sont trop limitées ! Merci pour votre aide.
Code:
Chemin = "O:\DEV & Q PRODUITS\PDF généré\"
'Chemin = ThisWorkbook.Path & "\" 'plus facile pour tester
date_test = Format([M1], "dd.mm.yyyy")
If Dir(Chemin & [f1] & "__* V3.pdf") = "" Then
NomFichier = [f1] & "__" & date_test & " V3.pdf"
Else
If Dir(Chemin & [f1] & "__* V2.pdf") = "" Then
NomFichier = [f1] & "__" & date_test & " V2.pdf"
Else
If Dir(Chemin & [f1] & "__* V3.pdf") = "" Then
NomFichier = [f1] & "__" & date_test & " V.pdf"
End If
End If
End If
Set JobPDF = CreateObject("PDFCreator.clsPDFCreator")