Discussion :

[kkamadou]

Bonjour le FORUM.
ric, mon problème n'est pas aussi simple que ça. En effet, dans mon fichier "Copie de note eleve v2 modifier" et dans ma Feuille "INDEX" j'ai une liste d'élèves avec leurs notes qui doivent passer dans la Feuille "BulletinEleve" que je dois imprimer en boucle lorsque j'aurai cliqué sur le bouton "OUI" du

Code :

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

1
2
MsgBox("imprimer le bordereau de tous les élèves ayant obtenu au moins une note" & vbLf & _
"Voulez-vous poursuivre ?", vbYesNo) = vbYes Then

Il se trouve que je n'ai pas d'impimante et je veux enregistrer les bulletin en PDF, là je me trouve face à un problème qui est d'enregistrer manuellement chaque bulletin, ce qui est fastidieux vu le nombre d'élèves.
Je voudrais donc pouvoir le faire une fois pour tous les élèves, soi un fichier qui contiendra tous les bulletin de le classe choisie ou un dossier qui va contenir chaque bulletin de chaque élève, chaque fichier ayant pour nom le matricule et le nom de l'élève.
Merci pour votre aide.

[BENNASR]

Bonjour
quand tu tourne les bulletins

Code :

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

1
2
3
4
5
6
7
8
9
10
 
  '*************************Enregistrement Rapport Format PDF*******************
Dim Ar(0) As String
    Ar(0) = Feuil2.Name 'ou se trouve le bulletin
    Sheets(Ar).Select
'supposons que le matricule de l'élève en E6
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & "Bulletin  " & Range("E6") _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
  '********************************************************************************

J'espère que ça t'aide à avancer