Discussion :

[hurajean]

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,

[joe.levrai]

Bonjour,

que contient exactement la variable Chemin ? N'y aurait-il pas des caractères interdits pour un nom/chemin de fichier ?

et que valent .Range("I2") et .Range("A20") ? En spécifiant la propriété .Value de ces ranges ça va pas mieux ?

[hurajean]

Merci !
c'est en effet un problème de caractère interdit...
"/"

[Menhir]

En spécifiant la propriété .Value de ces ranges ça va pas mieux ?

J'aurais plutôt conseillé la propriété .Text.

[joe.levrai]

Sans connaître le contenu des cellules, je propose toujours .Value

Il suffit qu'il ne sache pas la différence entre le .Text et le .Value pour se retrouver dans des situations fâcheuses, par exemple si la colonne n'est pas assez large pour certain type de données, ou que le formatage ne doit pas être pris en compte.

Mais, ça se trouve, c'est .Text qui se prêtera mieux à sa situation. Impossible de le savoir en l'état