Discussion :

[Jour22pluie]

Bonjour,

je souhaiterais enregistrer un onglet de mon fichier en pdf . Sachant que le fichier excel se trouve quelque part sur le pc, je souhaiterais faire une macro qui enregistre le pdf dans un sous dossier "bon de commandePDF" là où l'utilisateur a stocké le classeur excel.

voici mon 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
Sub pdf()
Dim Dossier As String
Dim Path_name As String
Dim NomFichier As String
NomFichier = "bon de commande_" & ActiveSheet.Range("I3").Value & "_" & ActiveSheet.Range("I6").Value ' & ".pdf"
Path_name = ThisWorkbook.Path
Dossier = Path_name & "\Bon de commandePDF"
 
    If DossierExiste(Dossier) = True Then
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & "\" & NomFichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
    Else
         MkDir (Path_name & "\Bon de commandePDF")
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & "\" & NomFichier & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=True
 
    End If
End Sub

j'ai vérifié chaque étape et ce qui ne va pas c'est le active.Sheet.ExportAsFixedFormat.... mais je ne sais pas où est le problème
Quelqu'un pourrait il m'aider svp?

[MarcelG]

Bonjour et bienvenue sur le Forum,

2 remarques au préalable
- Pour reporter un code dans une discussion, afin de le rendre plus lisible, tu peux le borner par les balises #.
- Quant à l'architecture de la procédure, afin de la simplifier, tu peux créer un sous-répertoire si celui-ci n'existe pas.
Après la fin de condition, la méthode d'export doit être placée (donc une seule fois).

Je pense qu'il y a des caractères "parasites".
T peux commencer par contrôler les valeurs des cellules I3 et I6 de la feuille active.
Procède à l' affichage de la fenêtre des variables locales (menu "Affichage" de l'éditeur VBE) puis à une exécution en pas à pas.
Rapporte ainsi dans la discussion les valeurs affichées de ces variables.

Un bon point, si je peux me permettre, quant à l'utilisation de variables qui permettent un contrôle efficace de la procédure.

A plus tard.

[Jour22pluie]

Bonjour,

Merci beaucoup pour votre réponse. Concernant votre 2eme remarque sur créer un répertoire pour simplifier le code je n'ai pas bien compris...
sinon concernant les cellules; une a un format "nombre" et l'autre un format "date".

voici la fenêtre des variables locales (image)

[Jour22pluie]

pardon je me suis trompée d'image

[MarcelG]

Bonjour Jour22pluie, Bonjour le Forum,

En fait, je pense que l'anomalie provient du répertoire d'enregistrement (le bureau).
Je viens de tester et j'ai aussi une erreur.

D'autre part, pour tester et/ou créer un répertoire, mieux vaut utiliser les requêtes Fso

Pour ce faire

Après avoir enregistré le classeur principal dans un répertoire "classique"
- Active la référence "Microsoft Scripting.RunTime" (Menu Outils\Références de l'éditeur VBE)
- Adapte ce code épuré

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
31
32
33
34
35
36
Option Explicit
 
Sub pdf()
 
Dim Dossier As String
Dim Path_name As String
Dim NomFichier As String
 
NomFichier = "bon de commande_" & ActiveSheet.Range("I3").Value & "_" & ActiveSheet.Range("I6").Value ' & ".pdf"
Path_name = ThisWorkbook.Path
Dossier = Path_name & "\Bon de commandePDF"
 
Call Test_chemin(Dossier)
 
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Dossier & "\" & NomFichier & ".pdf"
 
End Sub
 
Sub Test_chemin(lechemin As String)
'Activer la Référence Miscrosoft Scripting runtime
'Crée un chemin s'il n'existe pas
 
Dim fso As FileSystemObject
Dim fsoMonDossier As Folder
 
Set fso = New FileSystemObject
 
If Not fso.FolderExists(lechemin) Then
  Set fsoMonDossier = fso.CreateFolder(lechemin)
End If
 
If Not fsoMonDossier Is Nothing Then Set fsoMonDossier = Nothing
 
Set fso = Nothing
 
End Sub

[MarcelG]

Salut,

Au temps pour moi, la création de sous-répertoire dans "Bureau" est possible.
(Testé avec mon dernier code.)

Cela dit, je ne suis pas fan.