Code vba pour export pdf

**ciambe** · 28/02/2013, 11h30

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** · 28/02/2013, 12h04

Bonjour,

Quelle ligne retourne cette erreur ?

**ciambe** · 28/02/2013, 12h36

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** · 28/02/2013, 12h50

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

**ciambe** · 28/02/2013, 13h15

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** · 28/02/2013, 13h30

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"

**ciambe** · 28/02/2013, 13h34

Ca ne change rien!

**Fvandermeulen** · 28/02/2013, 13h50

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 :

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
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

**ciambe** · 28/02/2013, 14h02

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.

**Fvandermeulen** · 28/02/2013, 14h08

Es tu certain de ce chemin ?

Code :

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

"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

**ciambe** · 28/02/2013, 14h20

Oui ce chemin est bon. Même avec un autre chemin ça ne marche pas sur mon poste.

**Fvandermeulen** · 28/02/2013, 14h32

Peux tu donner des exemples de valeurs pour E4 H4, si ça se trouve il y a des caractères "interdits" ?

**ciambe** · 28/02/2013, 14h36

Valeur E4 du type: DP00012,DP00013 etc.. ou CDE00012,CDE00013 etc... et H4 du type - ou A ou B etc...

**Fvandermeulen** · 28/02/2013, 14h43

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 ?

**ciambe** · 28/02/2013, 15h46

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.

Code vba pour export pdf

Macros et VBA Excel

Discussions similaires

Partager

Partager