fonction if Fermé

Question

Bonjour, 
en fonction de la lettre qui se trouve dans la case C9 (optionButton) d'un tableau, je voudrait envoyer une mail a la personne A ou B...
malheureusement j'ai un message d'erreur de compilation: "déclaration existante dans la portée en cours"
 If [C9] = OptionButton1.Caption Then
'envoi automatique de mail
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = ""
Destinataires(2) = "personne A@gmail.com"
Destinataires(3) = ""
Sujet = "mail pour la personne A"
AccuseReception = True
'Nom de la feuille
ThisWorkbook.Sheets("aperçu avant impression").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
    End If
    If [C9] = OptionButton3.Caption Then
'envoi automatique de mail
Dim Destinataires(3) As String, Sujet As String
Dim AccuseReception As Boolean
'Modifier les mails des destinataires
Destinataires(1) = ""
Destinataires(2) = "personneB@gmail.com"
Destinataires(3) = ""
Sujet = "mail pour la personne B"
AccuseReception = True
'Nom de la feuille
ThisWorkbook.Sheets("aperçu avant impression").Copy
ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
ActiveWorkbook.Close False
    End If
merci
Configuration: Windows / Chrome 54.0.2840.99

f894009 · Answer

Bonjour,
Normal vous declarez deux fois vos variables
Sub test()
    Dim Destinataires(3) As String, Sujet As String
    Dim AccuseReception As Boolean
    
    If [C9] = OptionButton1.Caption Then
        'Modifier les mails des destinataires
        Destinataires(1) = ""
        Destinataires(2) = "personne A@gmail.com"
        Destinataires(3) = ""
        Sujet = "mail pour la personne A"
        AccuseReception = True
    ElseIf [C9] = OptionButton3.Caption Then
        'envoi automatique de mail
        'Modifier les mails des destinataires
        Destinataires(1) = ""
        Destinataires(2) = "personneB@gmail.com"
        Destinataires(3) = ""
        Sujet = "mail pour la personne B"
        AccuseReception = True
    Else
    End If
    If AccuseReception = True Then
        'envoi automatique de mail
        'Nom de la feuille
        ThisWorkbook.Sheets("aperçu avant impression").Copy
        ActiveWorkbook.SendMail Destinataires, Sujet, AccuseReception
        ActiveWorkbook.Close False
    End If
End Sub

Fonction if

1 réponse

Discussions similaires