Discussion :

[ciambe]

Bonjour,
Je souhaite créer un pdf avec un bouton a partir de mon fichier excel.
Pour cela j'utilise ce code vba:

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
22
Sub Creer_PDF_Demande_Prix()
'
' Creer_PDF_Demande_Prix Macro
' il faut changer le cheminchaque annee
'
'Condition si cellule E3 est egal a DEMANDE DE PRIX
If Range("E3") = "DEMANDE DE PRIX" Then
 
'Alors faire le PDF et l'enregistrer
Dim fichier As String
fichier = "C:\_CIAM\13-DEMANDES DE PRIX\2013\" & [E4].Value & "-" & [H4].Value & "_" & [F6].Value
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
    Quality:=xlQualityStandard, IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, OpenAfterPublish:=True
'Condition fausse renvoie le message Vous n'etes pas passez en Demande de prix
Else
 
MsgBox "Vous n'etes pas passez en Demande de prix"
 
End If
 
End Sub

Quand j'execute la macro il y a le code erreur 1004 qui apparait.
Merci d'avance pour votre aide

[jfontaine]

Bonjour,

Quelle ligne retourne cette erreur ?

[ciambe]

Il me surligne en jaune la partie suivante:

Code :

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

1
2
3
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fichier, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True

[jfontaine]

Quelle est la valeur de la variable fichier au moment de l'export.
Cette ligne de code fonctionne si nom de fichier correct

[ciambe]

Cette valeur est differente pour chaque nom de fichier.
E4: nom de fichier
H4: version du fichier
F6: nom du sous-traitant
Ci-joint fichier.

[Fvandermeulen]

Salut,
J'ai pas ouvert le fichier, mais il me semble qu'il manque l'extension .PDF dans le nom que tu donne:

Essai avec

Code :

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

fichier = "C:\_CIAM\13-DEMANDES DE PRIX\2013\" & [E4].Value & "-" & [H4].Value & "_" & [F6].Value&".pdf"