malinsard
XLDnaute Junior
Bonjour à tous je sais le sujet à été aborder plusieurs fois mais je ne m'en sort pas.
J'ai dans une feuille 2 ObtionButton (obFacture et obDevis).
je souhaiterai un message si aucune des deux options n'est choisie, du style "vous devez cocher Facture ou Devis"
voici le code de mon bouton de commande:
Sub Impression_Facture_Devis()
MakeDirEx ("C:\Factures_Devis\")
If ActiveSheet.obFacture.Value = True Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Facture de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Devis de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
End If
End Sub
Merci pour votre aide.
J'ai dans une feuille 2 ObtionButton (obFacture et obDevis).
je souhaiterai un message si aucune des deux options n'est choisie, du style "vous devez cocher Facture ou Devis"
voici le code de mon bouton de commande:
Sub Impression_Facture_Devis()
MakeDirEx ("C:\Factures_Devis\")
If ActiveSheet.obFacture.Value = True Then
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Facture de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\Factures_Devis\Devis de" & " " & ActiveSheet.Range("I12").Value & " " & ActiveSheet.Range("I13").Value & " " & Format(ActiveSheet.Range("B18"), "ddmmyyyy")
End If
End Sub
Merci pour votre aide.