Bonjour à tous,

Mon titre n'est pas très clair, mais voici mon problème :

Grosso modo, suivant les réponses de l'utilisateur, j'ai un corps de texte d'un mail qui est créé.

J'ai 5 réponses possibles qui donnent chacune 6 corps de texte différent.

Avec un Select Case j'arrive à déterminer chaque corps de texte pour chaque réponse. Mais lorsque j'essaie de définir un corps de texte final je n'y arrive pas

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
25
26
27
28
29
30
31
32
33
34
35
 Public Sub Testmail()
Dim corpdetexte1 As String, produit1 As String, corpdetexte2 As String, produit2 As String, corpdetexte3 As String, produit3 As String, corpdetexte4 As String, produit4 As String, corpdetexte5 As String, produit5 As String, corpdetexte6 As String, produit6 As String, corpdetextefinal As String
 
 
produit1 = Range("L173")
produit2 = Range("l174")
produit3 = Range("l175")
produit4 = Range("l176")
produit5 = Range("l177")
produit6 = Range("l178")
 
Select Case produit1
Case Is = "0"
corpdetexte1 = ""
Case Is = "1"
corpdetexte1 = "UN"
Case Is = "2"
corpdetexte1 = "DEUX"
Case Is = "3"
corpdetexte1 = "TROIS"
Case Is = "4"
corpdetexte1 = "QUATRE"
Case Is = "5"
corpdetexte1 = "CINQ"
End Select
' etc pour les 5 autres produits avec exactement les mêmes réponses
' le problème arrive maintenant
 
corpdetextefinal = corpdetexte1 + corpdetexte2 + corpdetexte3 + corpdetexte4 'etc
 
 
ThisWorkbook.FollowHyperlink ("mailto:maison@maison.com?subject=Demande&body=Bonjour," & "%0A" & "%0A" & _
corpdetextefinal)
 
End Sub
Merci pour votre aide

Le problème c'est que si je développe le code que j'ai cité au dessus cela fonctionne bien ........... Je ne peux pas vous donnez pour le code original (c'est pour le boulot) mais voici mon message d'erreur

Argument ou appel de procédure incorrect

Lorsque je défini corpdetextefinal par plus de deux corpdetexteX

Je ne sais pas du tout quoi faire