Microsoft 365 Enregistrer en PDF plusieurs onglets avec une boucle

[sloan92]

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 🙂

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

 

[sousou]

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....

 

[Jacky67]

.... cette macro qui fonctionnait très bien jusqu'a aujourd'hui.

Bonjour,
Tout n'est pas dit....
Cette macro écrite comme dans l'exemple ne peut pas fonctionner
Mettre le classeur en ligne avec le code, les 12 feuilles et CheckBox

et préciser ce qui doit être enregistré en PDF

 

[kiki29]

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.