Microsoft 365 Enregistrer en PDF plusieurs onglets avec une boucle

  • Initiateur de la discussion Initiateur de la discussion sloan92
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

sloan92

XLDnaute Nouveau
Bonjour à toutes et à tous,

J'avais à l'époque fait (repris) cette macro qui fonctionnait très bien jusqu'a aujourd'hui.
Il me met comme message d'erreur "Erreur de compilation Bloc if sans End if".
Pourtant le bloc "End If" est bien présent...

Merci pour votre aide 🙂

VB:
Sub Générer_PDFtest()

Dim PDFname As String
Dim chemin As String
Dim DerL, i As Integer

DerL = Sheets("mag").Cells(Rows.Count, 1).End(xlUp).Row

    If ChoixMois.CheckBox1.Value = True Then
    Sheets("Janvier").Select
    If ChoixMois.CheckBox2.Value = True Then
    Sheets("Février").Select
    If ChoixMois.CheckBox3.Value = True Then
    Sheets("Mars").Select
    If ChoixMois.CheckBox4.Value = True Then
    Sheets("Avril").Select
    If ChoixMois.CheckBox5.Value = True Then
    Sheets("Mai").Select
    If ChoixMois.CheckBox6.Value = True Then
    Sheets("Juin").Select
    If ChoixMois.CheckBox7.Value = True Then
    Sheets("Juillet").Select
    If ChoixMois.CheckBox8.Value = True Then
    Sheets("Août").Select
    If ChoixMois.CheckBox9.Value = True Then
    Sheets("Septembre").Select
    If ChoixMois.CheckBox10.Value = True Then
    Sheets("Octobre").Select
    If ChoixMois.CheckBox11.Value = True Then
    Sheets("Novembre").Select
    If ChoixMois.CheckBox12.Value = True Then
    Sheets("Décembre").Select
    
    End If

For i = 2 To DerL

    Activesheets.Range("E4").Value = Sheets("Mag").Cells(i, 1).Value
    
    PDFname = Activesheets.Range("E4") & " - " & "Planning encadrants hiver 2020 - " & Activesheets.Range("E5") & ".PDF"
    chemin = "G:\Bureau\"
    
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
    Filename:=chemin & PDFname, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
    
Next i


End Sub
 
Bonjour
essai comme ceci
If ChoixMois.CheckBox1.Value = True Then Sheets("Janvier").Select
If ChoixMois.CheckBox2.Value = True Then Sheets("Février").Select
If ChoixMois.CheckBox3.Value = True Then Sheets("Mars").Select
If ChoixMois.CheckBox4.Value = True Then Sheets("Avril").Select
If ChoixMois.CheckBox5.Value = True Then Sheets("Mai").Select
If ChoixMois.CheckBox6.Value = True Then Sheets("Juin").Select
If ChoixMois.CheckBox7.Value = True Then Sheets("Juillet").Select
If ChoixMois.CheckBox8.Value = True Then Sheets("Août").Select
If ChoixMois.CheckBox9.Value = True Then Sheets("Septembre").Select
If ChoixMois.CheckBox10.Value = True Then Sheets("Octobre").Select
If ChoixMois.CheckBox11.Value = True Then Sheets("Novembre").Select
If ChoixMois.CheckBox12.Value = True Then Sheets("Décembre").Selec

for....
 
Salut, peut-être via une approche différente, voir ici ?
Avec la possibilité de fusion en 1 seul pdf de l'ensemble des feuilles, ou de génération des feuilles sélectionnées de façon séparée, de gestion des doublons via un indice, le tout dans un dossier créé automatiquement et nommé par défaut Dossier PDFs à la racine de l'application. L'ensemble des feuilles ( visibles ou pas ) est listé via le bouton Récap.
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
234
Réponses
4
Affichages
355
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
69
Réponses
10
Affichages
468
Réponses
2
Affichages
392
Réponses
3
Affichages
533
Retour