Créer un dossier et y importer des fichiers en PDF

**djibysadji** · 03/05/2024, 14h56

Bonjour,
Nous avons l'idée de créer une application en vba excel qui nous permettra d'exporter en pdf les bulletins des élèves dans des dossiers. Pour cela nous avons une feuille intitulée BULL_34 dans laquelle sont affichées les notes selon les critères classe (cellule M2) et élève cellule(M5) de la même feuille.
Pour chaque classe nous avons un onglet qui porte son nom mais avec le même modèle de tableau(mêmes entêtes et même nombre de colonnes).
L'idée est de créer une boucle qui nous permettra d'exporter en PDF et stocker dans un dossier tous les bulletins de la classe sélectionnée dans la cellule M2 de la feuille BUL_34. C'est ici que réside mon problème. Sinon les autres étapes sont déjà franchies: affichage des notes selon la classe et l'élève et création de dossier. Le souci est qu'après tout cela, quand je clique sur le bouton Exporter en PDF et que j'ouvre le dossier créé je ne trouve aucun fichier.

Je joins deux captures et le code. Cela permettra peut être d'y voir un peu plus clair.

Merci par avance

djibysadji

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
37
Sub CreerPDF()
Dim ligne As Integer
Dim derligne As Integer
Dim ws As Worksheet
Dim Dossier
Dim fc As Worksheet
 
Set fc = ActiveSheet
 
Dossier = Application.InputBox("Création de PDF", "Exportation en PDF...", "Bulletin")
CheminDossier = ThisWorkbook.Path & "\" & Dossier & "\"
 
On Error Resume Next
If Dossier = True Then
GetAttr (CheminDossier) And vbDirectory
Else
MkDir (CheminDossier)
 
End If
'derligne = ws.Range("A150").End(xlUp).Row
derligne = ws.Cells(Rows.Count, 1).End(xlUp)
For Each ws In Sheets
If ws.Name = Sheets("BULL_34").Range("M2").Value Then
 
For ligne = 5 To derligne
Sheets("BULL_34").Range("M5").Value = ws.Cells(ligne, 1)
fc.ExportAsFixedFormat xlTypePDF, CheminDossier & Sheets("BULL_34").Range("M2").Value & _
Sheets("BULL_34").Range("M5").Value, xlqualtyStandard, True, False, _
1, 1, False
 
Next
End If
Next
 
 
 
End Sub

Nom : Bulletin.PNG
Affichages : 244
Taille : 96,7 Ko

Nom : base.PNG
Affichages : 237
Taille : 40,4 Ko

**Fab_de_chez_PERFORM** · 06/05/2024, 12h54

Bonjour

je propose le code suivant

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
37
38
39
40
41
42
Sub PDF_Classe()
 
    'je prépare mes éléments
 
    Dim Mon_Dossier_Export As String
    Mon_Dossier_Export = Range("Dossier_Enreg").Value & "\"
 
    Dim Mon_Dossier_Année As String
    Mon_Dossier_Année = Range("Année_Bulletin").Value & "\"
 
    Dim Mon_Dossier_Classe As String
    Mon_Dossier_Classe = Range("Classe_Bulletin").Value & "\"
 
    Dim Mon_Chemin_Complet As String
    Mon_Chemin_Complet = Mon_Dossier_Export & Mon_Dossier_Année & Mon_Dossier_Classe
 
    '_______
    
    Dim Mon_Semestre As String
    Mon_Semestre = Range("Semestre_Bulletin").Value
 
 
    '_______Boucle pour sortir tous les élèves de la classe sur le semestre de l'année
 
        For Each cell In Range("TBL_Eleves[N°]")
 
            If Application.VLookup(cell, Range("TBL_Eleves"), 2, False) = Range("Classe_Bulletin").Value Then 'le 2 est à régler selon la colonne de la base de données où il y a la classe
                Range("Code_Eleve").Value = cell.Value
 
                'Export PDF
                    Dim Nom_PDF As String 'le nom du fichier exporté en PDF sera, ici, du type nom eleve, classe, annee, semestre
                    Nom_PDF = Range("NOM_ELEVE").Value & " - " & Range("Classe_Bulletin").Value & " (" & Range("Année_Bulletin").Value & " - semestre " & Mon_Semestre & ")"
 
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Mon_Chemin_Complet & Nom_PDF & ".pdf", _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            End If
 
        Next cell
 
MsgBox "terminé"
 
End Sub

Je n'ai pas fait le code pour la création/vérification de dossier + gestion erreur

Je vous joins le fichier
Du coup il vous faudrait créer un dossier avec le fichier + sous dossier année 2024 + sous dossier pour les classes (ici 1A, 1B + 2A à 2C)

Normalement avec ca vous devriez pouvoir vous en sortir

**djibysadji** · 06/05/2024, 20h07

Envoyé par Fab_de_chez_PERFORM

Bonjour

je propose le code suivant

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
37
38
39
40
41
42
Sub PDF_Classe()
 
    'je prépare mes éléments
 
    Dim Mon_Dossier_Export As String
    Mon_Dossier_Export = Range("Dossier_Enreg").Value & "\"
 
    Dim Mon_Dossier_Année As String
    Mon_Dossier_Année = Range("Année_Bulletin").Value & "\"
 
    Dim Mon_Dossier_Classe As String
    Mon_Dossier_Classe = Range("Classe_Bulletin").Value & "\"
 
    Dim Mon_Chemin_Complet As String
    Mon_Chemin_Complet = Mon_Dossier_Export & Mon_Dossier_Année & Mon_Dossier_Classe
 
    '_______
    
    Dim Mon_Semestre As String
    Mon_Semestre = Range("Semestre_Bulletin").Value
 
 
    '_______Boucle pour sortir tous les élèves de la classe sur le semestre de l'année
 
        For Each cell In Range("TBL_Eleves[N°]")
 
            If Application.VLookup(cell, Range("TBL_Eleves"), 2, False) = Range("Classe_Bulletin").Value Then 'le 2 est à régler selon la colonne de la base de données où il y a la classe
                Range("Code_Eleve").Value = cell.Value
 
                'Export PDF
                    Dim Nom_PDF As String 'le nom du fichier exporté en PDF sera, ici, du type nom eleve, classe, annee, semestre
                    Nom_PDF = Range("NOM_ELEVE").Value & " - " & Range("Classe_Bulletin").Value & " (" & Range("Année_Bulletin").Value & " - semestre " & Mon_Semestre & ")"
 
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Mon_Chemin_Complet & Nom_PDF & ".pdf", _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            End If
 
        Next cell
 
MsgBox "terminé"
 
End Sub

Je n'ai pas fait le code pour la création/vérification de dossier + gestion erreur

Je vous joins le fichier
Du coup il vous faudrait créer un dossier avec le fichier + sous dossier année 2024 + sous dossier pour les classes (ici 1A, 1B + 2A à 2C)

Normalement avec ca vous devriez pouvoir vous en sortir

Merci pour cette solution même si elle est différente de ce que je propose: pour les classes, j'ai des onglets séparés alors que vous proposez toutes les classes dans un même onglet. Je vais l'essayer quand même, cela peut être une voie de sortie.

**djibysadji** · 09/05/2024, 19h18

Envoyé par Fab_de_chez_PERFORM

Bonjour

je propose le code suivant

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
37
38
39
40
41
42
Sub PDF_Classe()
 
    'je prépare mes éléments
 
    Dim Mon_Dossier_Export As String
    Mon_Dossier_Export = Range("Dossier_Enreg").Value & "\"
 
    Dim Mon_Dossier_Année As String
    Mon_Dossier_Année = Range("Année_Bulletin").Value & "\"
 
    Dim Mon_Dossier_Classe As String
    Mon_Dossier_Classe = Range("Classe_Bulletin").Value & "\"
 
    Dim Mon_Chemin_Complet As String
    Mon_Chemin_Complet = Mon_Dossier_Export & Mon_Dossier_Année & Mon_Dossier_Classe
 
    '_______
    
    Dim Mon_Semestre As String
    Mon_Semestre = Range("Semestre_Bulletin").Value
 
 
    '_______Boucle pour sortir tous les élèves de la classe sur le semestre de l'année
 
        For Each cell In Range("TBL_Eleves[N°]")
 
            If Application.VLookup(cell, Range("TBL_Eleves"), 2, False) = Range("Classe_Bulletin").Value Then 'le 2 est à régler selon la colonne de la base de données où il y a la classe
                Range("Code_Eleve").Value = cell.Value
 
                'Export PDF
                    Dim Nom_PDF As String 'le nom du fichier exporté en PDF sera, ici, du type nom eleve, classe, annee, semestre
                    Nom_PDF = Range("NOM_ELEVE").Value & " - " & Range("Classe_Bulletin").Value & " (" & Range("Année_Bulletin").Value & " - semestre " & Mon_Semestre & ")"
 
                    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Mon_Chemin_Complet & Nom_PDF & ".pdf", _
                    Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            End If
 
        Next cell
 
MsgBox "terminé"
 
End Sub

Je n'ai pas fait le code pour la création/vérification de dossier + gestion erreur

Je vous joins le fichier
Du coup il vous faudrait créer un dossier avec le fichier + sous dossier année 2024 + sous dossier pour les classes (ici 1A, 1B + 2A à 2C)

Normalement avec ca vous devriez pouvoir vous en sortir

Bonsor
Nous avons essayé votre code mais nous rencontrons l'erreur 1004. Voir capture
Nom : Erreur1004.PNG
Affichages : 182
Taille : 41,8 Ko

Nom : ZoneCIBLE.PNG
Affichages : 183
Taille : 45,7 Ko

**deedolith** · 09/05/2024, 23h45

Salut,

Normal que ca plante,

Le code de création de dossier n'a pas été livré.
et sur ce sujet, il suffit de faire une recherche sur le forum, il a déjà été abordé maintes fois:
https://www.developpez.net/forums/d1.../#post12019525

Créer un dossier et y importer des fichiers en PDF [XL-365]

Macros et VBA Excel

Discussions similaires

Partager

Partager