Enregistrer en PDF et supprimer l'ancien fichier existant VBA

Valérie55555555 · 2 Janvier 2019

Bonjour,

Je souhaite enregistrer en PDF mon fichier à l'aide d'un codage VBA.
Jusque là, c'est bon.
Mais j'aimerais que lorsqu'il détecte qu'un fichier a déjà été enregistré sous le même nom, celui-ci se fasse remplacer automatiquement par le nouveau.

Voilà mon code, je ne sais pas comment intégrer la deuxième partie

Private Sub CommandButton4_Click()

Dim LaDate$, Nom$, Rep$ 'DŽclaration des variables
LaDate = Format(Now, "yyyy_mm_dd_")
Nom = Range("H10").Value 'Nom de l'onglet ˆ entregistrer
Rep = "M:\blabla\" ' Chemin du rŽpertoire ˆ adapter depuis votre PC"
Sheet2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & LaDate & "_" & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, to:=5, OpenAfterPublish:=False 'enregistrement du fichier en PDF

MsgBox "the file has been converted to PDF"

End Sub

Merciiii

cp4 · 3 Janvier 2019

Bonjour,

Une réponse similaire dans cette discussion

Bonne journée

Valérie55555555 · 3 Janvier 2019

Bonjour,

Ce n'est pas exactement ce que je recherche ...

D.D. · 3 Janvier 2019

Hello

Je viens de tester ton code (Il y a d'ailleurs un "_" en trop dans le nom).
Pour ma part, je trouve qu'il fonctionne bien et remplace le fichier si celui d'un même nom existe.

Valérie55555555 · 3 Janvier 2019

Quelle partie remplace le fichier ?
Et où est le " en trop ?
Merci

D.D. · 3 Janvier 2019

Ben aucune partie remplace le fichier, j'ai l'impression que c'est natif.

Private Sub CommandButton4_Click()
Dim LaDate$, Nom$, Rep$ 'DŽclaration des variables
LaDate = Format(Now, "yyyy_mm_dd_") ICI IL Y A UN "_"
Nom = Range("H10").Value 'Nom de l'onglet ˆ entregistrer
Rep = "M:\blabla\" ' Chemin du rŽpertoire ˆ adapter depuis votre PC"
Sheet2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Rep & LaDate & "_" ET LA AUSSI & Nom & ".pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
From:=1, to:=5, OpenAfterPublish:=False 'enregistrement du fichier en PDF

cp4 · 3 Janvier 2019

Valérie55555555 à dit:
Bonjour,

Ce n'est pas exactement ce que je recherche ...

Et dire qu'il y avait vraiment ce dont tu avais besoin.
il suffisait de lire toute la discussion.
Ton code en retour corrigé

VB:

Private Sub CommandButton4_Click()

   Dim LaDate$, Nom$, Rep$   'DŽclaration des variables
   LaDate = Format(Now, "yyyy_mm_dd")
   Nom = Range("D2").Value   'Nom de l'onglet ˆ entregistrer
   Rep = "M:\blabla\"   ' Chemin du rŽpertoire ˆ adapter depuis votre PC"
   Sheets(2).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
                              Rep & LaDate & "_" & Nom & ".pdf", Quality:= _
                              xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
                              From:=1, to:=5, OpenAfterPublish:=False   'enregistrement du fichier en PDF

   MsgBox "the file has been converted to PDF"
End Sub

Bonnesoirée

Valérie55555555 · 3 Janvier 2019

Merci beaucoup !

Enregistrer en PDF et supprimer l'ancien fichier existant VBA

Valérie55555555

XLDnaute Nouveau

cp4

XLDnaute Barbatruc

Valérie55555555

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

Valérie55555555

XLDnaute Nouveau

D.D.

XLDnaute Impliqué

cp4

XLDnaute Barbatruc

Valérie55555555

XLDnaute Nouveau

Discussions similaires