Bonjour,

l'erreur 1004 apparaît lorsque j’exécute une macro pour exporter une feuille excel en pdf .

J'ai une feuille modèle qui s'actualise selon la valeur de la ligne de ma base de donnée indiquée.
Le but étant d'imprimer une feuille type avec des données rentrées dans une feuille de type "base de donnée" située dans le meme classeur.

voici le code :
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
18
19
20
21
Sub Export_PDF()

    Dim fichier As String
    'adaptez le nom de la feuille
    ActiveWorkbook.RefreshAll
    Sheets("Modèle").Visible = True
    
    With Worksheets("Modèle")
    
        fichier = "DA N°" & .Range("I2") & " " & .Range("A20") & ".pdf"
        'pensez a ecrire le chemin
        Chemin = ActiveWorkbook.Path & "\" & fichier
        
        .ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin, Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
        
     Sheets("Modèle").Visible = False
     
    End With
End Sub
Cela bloque au niveau de la partie en gras.

Merci par avance,