Private Sub CommandButton_generer_Click()
Select Case True
Case OptionButton1: Filename = OptionButton1.Caption
Case OptionButton2: Filename = OptionButton2.Caption
Case OptionButton3: Filename = OptionButton3.Caption
Case OptionButton4: Filename = OptionButton4.Caption
Case Else: Exit Sub
End Select
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=ThisWorkbook.Path & "\" & Filename & ".pdf", _
OpenAfterPublish:=True
End Sub
Private Sub OptionButton1_Click()
Image = "FFPJP3.gif"
Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG6", "ONG10")).Select
End Sub
Private Sub OptionButton2_Click()
Image = "FFPJP3.jpg"
Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG7", "ONG10")).Select
End Sub
Private Sub OptionButton3_Click()
Image = "FFPJP3.gif"
Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
Sheets(Array("ONG0", "ONG1", "ONG2", "ONG3", "ONG4", "ONG5", "ONG8", "ONG10")).Select
End Sub
Private Sub OptionButton4_Click()
Image = "FFPJP3.jpg"
Image1.Picture = LoadPicture(Image_Path & "Petanque\" & Image)
Sheets(Array("ONG0", "ONG9", "ONG10")).Select
End Sub
Function Image_Path() As String
Dim objShell As Object
Set objShell = CreateObject("Shell.Application")
Image_Path = objShell.Namespace(&H27).self.Path & "\"
Set objShell = Nothing
End Function