Enregistrer en PDF et supprimer l'ancien fichier existant VBA

[Valérie55555555]

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]

Bonjour🙂,

Une réponse similaire dans cette discussion

Bonne journée

 

[Valérie55555555]

Bonjour,

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

 

[D.D.]

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]

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

 

[D.D.]

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]

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é

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]

Merci beaucoup !