Code vba pour export pdf

Version imprimable

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

Code:

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

28/02/2013, 12h04
jfontaine

Bonjour,

Quelle ligne retourne cette erreur ?

Il me surligne en jaune la partie suivante:

Code:

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

28/02/2013, 12h50
jfontaine

Quelle est la valeur de la variable fichier au moment de l'export.
Cette ligne de code fonctionne si nom de fichier correct
28/02/2013, 13h15
ciambe

1 pièce(s) jointe(s)

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.
28/02/2013, 13h30
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:

fichier = "C:\_CIAM\13-DEMANDES DE PRIX\2013\" & [E4].Value & "-" & [H4].Value & "_" & [F6].Value&".pdf"
28/02/2013, 13h34
ciambe

Ca ne change rien!

Etrange...j'ai dès lors fait un test, pas de changement fondamental à ton code, le plus gros changement est l'ouverture du PDF suivant MsgBox et pas grace à l'argument.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Creer_PDF_Demande_Prix()
Dim fichier As String, chemin As String, MyApdf As String
' Creer_PDF_Demande_Prix Macro
' il faut changer le chemin a chaque annee
'
'Condition si cellule E3 est egal a DEMANDE DE PRIX
If Range("E3") = "DEMANDE DE PRIX" Then
    'Alors faire le PDF est l'enregistrer
    chemin = "C:\_CIAM\13-DEMANDES DE PRIX\2013\"
    fichier = chemin & [E4].Value & "-" & [H4].Value & "_" & [F6].Value & ".PDF"
    ActiveSheet.ExportAsFixedFormat _
        Type:=xlTypePDF, _
        Filename:=fichier, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=False
Else 'Condition fausse renvoie le message Vous n'etes pas passé en Demande de prix
    MsgBox "Vous n'etes pas passé en Commande"
End If
 
'Msg pour ouverture éventuelle du PDF
MyApdf = MsgBox("Do you want to open the PDF when done ?", vbYesNo, "Excel-Et-Vous")
If MyApdf = 6 Then
    ShellExecute 0, "open", fichier, "", "", 1
End If
 
End Sub

28/02/2013, 14h02
ciambe

J'ai copier ton code mais pas de changement.
Je tiens à préciser que les valeurs des cellules E4 et H4 sont remplis automatiquement à la création du fichier par un logiciel de gestion de document (EPDM) avec cycle de vie. La valeur dans E4 est un n° de série créer par ce dernier.
28/02/2013, 14h08
Fvandermeulen

Es tu certain de ce chemin ?

Code:

"C:\_CIAM\13-DEMANDES DE PRIX\2013\"

J'ai testé le code avec un chemin propre à mon poste et je n'ai rencontré aucun problème
28/02/2013, 14h20
ciambe

Oui ce chemin est bon. Même avec un autre chemin ça ne marche pas sur mon poste.
28/02/2013, 14h32
Fvandermeulen

Peux tu donner des exemples de valeurs pour E4 H4, si ça se trouve il y a des caractères "interdits" ?
28/02/2013, 14h36
ciambe

Valeur E4 du type: DP00012,DP00013 etc.. ou CDE00012,CDE00013 etc... et H4 du type - ou A ou B etc...
28/02/2013, 14h43
Fvandermeulen

1 pièce(s) jointe(s)

Donc à priori pas de problème...

J'ai remis ton fichier avec le code modifié, peux tu tester sans rajouter les références E4 H4 pour être idem à ce que j'ai fait ?
28/02/2013, 15h46
ciambe

J'ai trouver le problème: quand il n'y a pas de valeur dans les cellules il ne sait pas créer le pdf (par ex. cellule H4 vide).
Merci beaucoup pour vos aides très précieuses.