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