Macro enregistrement automatique au format PDF

Version imprimable

Bonjour,

Je travaille sur une macro permettant l'enregistrement automatique de feuille au format PDF. Tout fonctionne.

J'ai tout de même besoin d'ajouter un code/MsgBox pour vérifier si le fichier existe déjà et proposer de le remplacer.

Merci pour votre aide
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Enregistrer_pdf() Dim nompdf As String Dim Chemin As String On Error GoTo erreur Chemin = ActiveSheet.Range("K1").Value nompdf = Chemin & "\" & Range("G1").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Exit Sub erreur: MsgBox "Erreur : " & Err.Number & vbLf & Err.Description End Sub
Merci pour votre aide et bonne journée

Code:

1
2
3
4
5
6
7
8
9
Sub Enregistrer_pdf()
    Dim nompdf As String
    nompdf = ActiveSheet.Range("K1").Value & "\" & Range("G1").Value & ".pdf"
 
    If Len(Dir(nompdf)) > 0 Then
        If MsgBox("Voulez-vous écraser le fichier existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub
    End If    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 Exit Sub

27/07/2020, 17h07
Kaytilou

Bonjour et Merci Menhir, cela a bien fonctionné la première fois, mais ensuite impossible de la faire fonctionner.
Très bonne journée

Menhir, si je peux me permettre, j'aimerai mettre comme MsbBox "Le fichier [nom du fichier] existe ...... comment faire pour automatiser le nom du fichier, j'ai essayé d'utiliser le Range("G1").Value & ".pdf, mais cela ne fonctionne pas
27/07/2020, 17h53
Menhir

Citation:

Envoyé par Kaytilou

Bonjour et Merci Menhir, cela a bien fonctionné la première fois, mais ensuite impossible de la faire fonctionner.

Il faut insister.

Bin, oui. Si tu ne prends pas la peine d'être plus descriptive sur ton dysfonctionnement, je ne vois pas pourquoi je me donnerai du mal. :roll:

Citation:

Envoyé par Kaytilou

Menhir, si je peux me permettre, j'aimerai mettre comme MsbBox "Le fichier [nom du fichier] existe ...... comment faire pour automatiser le nom du fichier, j'ai essayé d'utiliser le Range("G1").Value & ".pdf, mais cela ne fonctionne pas

Montre la ligne de code que tu as essayée.
27/07/2020, 19h14
Kaytilou
Citation:

Envoyé par Menhir

Il faut insister.

Bin, oui. Si tu ne prends pas la peine d'être plus descriptive sur ton dysfonctionnement, je ne vois pas pourquoi je me donnerai du mal. :roll:

Montre la ligne de code que tu as essayée.
Code:

1 2 3 If Len(Dir(nompdf)) > 0 Then If MsgBox("Voulez-vous écraser le fichier" & Filename:=nompdf & ".pdf" &"existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub End If
27/07/2020, 19h35
Menhir

Code:

If MsgBox("Voulez-vous écraser le fichier" & nompdf & "existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub

Citation:

Envoyé par Menhir

Code:

1
2
3
4
5
6
7
8
9
Sub Enregistrer_pdf()
    Dim nompdf As String
    nompdf = ActiveSheet.Range("K1").Value & "\" & Range("G1").Value & ".pdf"
 
    If Len(Dir(nompdf)) > 0 Then
        If MsgBox("Voulez-vous écraser le fichier existant ?", vbYesNo + vbCritical + vbDefaultButton2) = vbNo Then Exit Sub
    End If    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=nompdf & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
 Exit Sub

Merci Menhir, tout fonctionne parfaitement
Je te souhaite une excellente journée et un très bon été