Discussion :

[benadry]

Bonjour le forum,


J'ai créé une macro qui comporte notamment une MsgBox dont le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Rep = MsgBox("La fiche est classée dans le répertoire " & "[Repertoire].Value" & "." & vbCr & "Voulez-vous envoyer la présente fiche par courrier électronique  ?", vbYesNo + vbQuestion, "Le programme demande votre attention").

Je voudrais que le chemin du répertoire (défini plus haut en tant que Repertoire = Range("A7").Value & "\") apparaisse et que si A7 = POMMES, le texte de la MsgBox soit le suivant :
"La fiche est classée dans le répertoire POMMES."Voulez-vous envoyer la présente fiche par courrier électronique ?".


Quelqu'un a-t-il la solution ?


Merci d'avance.

Bien cordialement.

[Theze]

Bonjour,

Un truc du genre ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub Test()
 
    Dim Repertoire As String
 
    Repertoire = Range("A7").Value & "\"
 
    'si le répertoire ne contient pas le mot POMMES, fin !
    If InStr(Repertoire, "POMMES") = 0 Then Exit Sub
 
    If MsgBox("La fiche est classée dans le répertoire " & Repertoire & "." & _
              vbCr & _
              "Voulez-vous envoyer la présente fiche par courrier électronique  ?", _
              vbYesNo + vbQuestion, "Le programme demande votre attention") = vbYes Then
 
        MsgBox "C'est bon :-) Je l'envoi !"
 
    Else
 
        MsgBox "C'est pas bon :-( Je ne l'envoi pas !"
 
    End If
 
End Sub

Hervé.

[benadry]

Bonsoir Theze,

Ca marche !

Plutôt que de chercher à mettre des ", des [ et des machins ...


Merci bien.

Cordialement.