XL 2019 Impression de bulletins scolaires avec le choix d'un élève ou tous

[koadima]

Bonsoir
Bonne année 2023 à tous

J'ai crée un bulletin scolaire sur la base de relevé de notes. Je souhaite générer et enregistrer les bulletins de tous les élèves sous pdf dans un dossier avec chacun des PDF portant le nom d'un l'élève. J'ai tenté en vain. Je me tourne vers vous pour avoir de l'aide. Aussi à limpression j'aimerais pouvoir choisir le bulletion d'un élèe X à imprimer
Mon fichier comporte 2 feuilles, le "relevé de notes" et le "Bulletin"
Merci

 

[sylvanu]

Bonsoir Koadima,
Un essai en PJ avec :

Sub Génère_PDF()
Chemin = "C:\Users\PC_PAPA\Desktop\Koadima\"    ' A adapter
With Sheets("Relevé de notes")
    DL = .Range("A65500").End(xlUp).Row
    For L = 3 To DL
        [C4] = .Cells(L, "A")
        Calculate
        [F14] = "Enregistrement de " & [C6]
        ' Création fichier PDF
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & [C6] & ".pdf", Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=False
    Next L
End With
[F14] = ""
MsgBox ("Génération des pdf terminée. ")
End Sub
Sub Imprimer()
With Sheets("Relevé de notes")
    L = Application.Match([F3], .[B:B], 0)
    [C4] = .Cells(L, "A")
    ActiveWindow.SelectedSheets.PrintPreview
End With
End Sub

Le Chemin doit être adapté à votre environnement.
Pour l'impression je fais un "aperçu avant impression" qu'il faut valider pour éviter les impressions inutiles.

 

[koadima]

Bonjour
Merci pour l'interet acccordé.
lorsque je tente d'imprimer un bulletin, "l'indice n'appartient pas à la selection" apparait et cest With Sheets("Relevé de notes") qui est surligné dans "Sub imprimer()"
lorsque je tente de généer tous les bulletins en PDF, "impossible d'exécuter la macro"

 

[sylvanu]

Bonjour Koadima,
Sur quel fichier avez vous ces problèmes ? Sur ma PJ ?
Je l'ai évidemment vérifiée, et c'est correct.
Trois questions :
1- Si With Sheets("Relevé de notes") pose souci, avez vous renommé cette feuille ?
2- Pour le "impossible d'exécuter la macro", impossible de répondre comme ça. Essayze ALT+F8 et éxécutez Génère_PDF. Quel est le résultat ?
3- Avez vous bien modifié le Chemin du dossier où ranger les pdf ?

 

[koadima]

J'ai effectivement réussi à générer tous les bulletins. Merci nombreux.
Peut-on aller plus loin de sorte que l'on click sur le bouton "Générer PDF" qu'un Msgbox nous demande si on veux imprimer 1bulletin quelconque par le choix de son numéro matricule ou bien imprimer tous les bulletins?
Peut-on en générant les bulletins les combiner par la même occasion ?

 

[sylvanu]

Bonjour,
Quand on dit à un contributeur "ça marche pas", on explique ensuite où était l'erreur. Ca peut servir pour l'avenir.

En PJ une nouvelle version avec un bouton pour le choix, avec :

Une macro:
Sub PdfOuImprimer()
With Sheets("Relevé de notes")
    L = Application.Match([F3], .[B:B], 0)
    [C4] = .Cells(L, "A")
    UserForm1.Show
End With
End Sub
Un userform:
Private Sub CommandButton1_Click()
    ActiveWindow.SelectedSheets.PrintPreview
    Unload UserForm1
End Sub
Private Sub CommandButton2_Click()
    Chemin = "C:\Users\PC_PAPA\Desktop\Koadima\"    ' A adapter
    ' Création fichier PDF
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Chemin & [C6] & ".pdf", Quality:= _
    xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
    From:=1, To:=1, OpenAfterPublish:=False
    Unload UserForm1
End Sub
Private Sub CommandButton3_Click()
    Unload UserForm1
End Sub

Peut-on en générant les bulletins les combiner par la même occasion ?

Que voulez vous faire exactement ? Générer un seul fichier avec tous les élèves ?
Ca, je n'ai jamais fait, je ne sais pas comment en VBA coller différentes feuilles apeès recalcul.

 

[koadima]

Bonjour
Merci beaucoup pour votre aide. Ça marche bien et même très bien.
Toutes mes excuses pour la manière. J'en tiendrais compte de votre conseil