Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Enregistrer en PDF et supprimer l'ancien fichier existant VBA

Valérie55555555

XLDnaute Nouveau
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
 

D.D.

XLDnaute Impliqué
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.
 

D.D.

XLDnaute Impliqué
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

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…