Discussion :

[Kaytilou]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Menhir]

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.

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.

[Kaytilou]

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.


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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Kaytilou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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é