boucle while wend

Version imprimable

2 pièce(s) jointe(s)

boucle while wend

Bonjour à tous
J’espère qu'il y aura une personne qui saura répondre à mon problème de programmation. Cela faisait plus d'un an que je n'avais pas programmé avec VBA et je sèche un peu la sur ce que l'on me demande. Je décris mon problème de la manière la plus simple : je souhaite automatiser un envois de mail avec outlook, avec un objet et un message différent en fonction des choix faits dans deux cellules.
à partir d'un fichier excel , où il y figure
- feuille 1 : sur une même ligne, une adresse mail (destinataire), une adresse mail (en CC), une cellule avec deux choix possible (salarié ou indépendant) et une cellule avec le type de mail (5 choix différents mais cela n'est pas important de le détailler)
- feuille 2 : selon le choix fait (salarié ou indépendant) et selon le choix fait sur le type de mail (5 choix possibles), il y a un objet qui s'ajoute au mail et un message écrit.

Donc pour résumer, en cliquant sur un bouton affectée d ela macro ci dessus, je souhaite que mon programme envois, pour chaque ligne, un mail avec le destinataire, le mail CC, un fichier, et SURTOUT un objet + un message variable.
J'ai déjà réussi a faire cette macro, mais seulement pour une seule ligne ... et j'ai essayer d'inclure une boucle while wend mais cela ne marche pas et je commence à désespérer.

Merci d'avance pour une éventuelle aide.

Voici la macro :

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
Sub Commandbutton1_click()
 
    If MsgBox("Souhaitez-vous envoyer le mail ?", vbYesNo, "Demande de confirmation pour l'envoi du mail") = vbYes Then
 
        Dim Ouvriroutlook As Object
        Dim OuvrirMessage As Object
        Dim AdresseMail As String
        Dim AdresseMAilIA As String
        Dim SalariéSubject1 As String 'toutes ces variables sont les differents objet et message  a inclure 
        Dim SalariéBody1 As String
        Dim SalariéSubject2 As String
        Dim SalariéBody2 As String
        Dim SalariéSubject3 As String
        Dim SalariéBody3 As String
        Dim SalariéSubject4 As String
        Dim SalariéBody4 As String
        Dim SalariéSubject5 As String
        Dim SalariéBody5 As String
        Dim IndépendantSubject1 As String
        Dim IndépendantBody1 As String
        Dim IndépendantSubject2 As String
        Dim IndépendantBody2 As String
        Dim IndépendantSubject4 As String
        Dim IndépendantBody4 As String
        Dim IndépendantSubject5 As String
        Dim IndépendantBody5 As String
        Dim i As Integer
 
        Set Ouvriroutlook = CreateObject("Outlook.Application")
        Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
 
        i = 5
 
        AdresseMail = Worksheets("Tableau").Cells(i, 3)
        AdresseMAilIA = Worksheets("Tableau").Cells(i, 6)
 
        SalariéSubject1 = Worksheets("Annexe").Cells(2, 3)
        SalariéBody1 = Worksheets("Annexe").Cells(2, 4)
        SalariéSubject2 = Worksheets("Annexe").Cells(3, 3)
        SalariéBody2 = Worksheets("Annexe").Cells(3, 4)
        SalariéSubject3 = Worksheets("Annexe").Cells(4, 3)
        SalariéBody3 = Worksheets("Annexe").Cells(4, 4)
        SalariéSubject4 = Worksheets("Annexe").Cells(5, 3)
        SalariéBody4 = Worksheets("Annexe").Cells(5, 4)
        SalariéSubject5 = Worksheets("Annexe").Cells(6, 3)
        SalariéBody5 = Worksheets("Annexe").Cells(6, 4)
        IndependantSubject1 = Worksheets("Annexe").Cells(7, 3)
        IndependantBody1 = Worksheets("Annexe").Cells(7, 4)
        IndependantSubject2 = Worksheets("Annexe").Cells(8, 3)
        IndependantBody2 = Worksheets("Annexe").Cells(8, 4)
        IndependantSubject4 = Worksheets("Annexe").Cells(10, 3)
        IndependantBody4 = Worksheets("Annexe").Cells(10, 4)
        IndependantSubject5 = Worksheets("Annexe").Cells(11, 3)
        IndependantBody5 = Worksheets("Annexe").Cells(11, 4)
 
        While AdresseMail <> ""
 
                If Statut = "Salarié" And Relance = "Démarrage" Then
 
                    With OuvrirMessage
                     .To = AdresseMail
                     .Subject = SalariéSubject1
                     .CC = AdresseMAilIA
                     .Body = SalariéBody1
                     .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                     .Send
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "1ère Relance" Then
                    With OuvrirMessage
                    .To = AdresseMail
                    .Subject = SalariéSubject2
                    .CC = AdresseMAilIA
                    .Body = SalariéBody2
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "2ème Relance" Then
                    With OuvrirMessage
                    .To = AdresseMail
                    .Subject = SalariéSubject3
                    .CC = AdresseMAilIA
                    .Body = SalariéBody3
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission" Then
                    With OuvrirMessage
                    .To = AdresseMail
                    .Subject = SalariéSubject4
                    .CC = AdresseMAilIA
                    .Body = SalariéBody4
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                    With OuvrirMessage
                    .To = AdresseMail
                    .Subject = SalariéSubject5
                    .CC = AdresseMAilIA
                    .Body = SalariéBody5
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Send
 
                    End With
 
                End If
 
                i = i + 1   'surligné en jaune ce qui est le problème
 
            Wend
 
        MsgBox "Le mail a bien été envoyé à "
 
    Else
 
    MsgBox ("Les mails n'ont pas été envoyés")
 
    End If
 
End Sub

29/07/2014, 17h28
illight

Bonjour,

Dans un premier temps, merci de mettre les balises CODE sur ton code (le # dans la barre de mise en forme), de façon à ce que ton post soit plus lisible.

Ensuite :

Citation:

Envoyé par bryval

j'ai essayer d'inclure une boucle while wend mais cela ne marche pas et je commence à désespérer.

Qu'entends-tu par "ça marche pas" ? c'est un peu vague comme message d'erreur :? ça plante quelquepart ? si oui, sur quelle ligne ?
29/07/2014, 17h33
bryval

désolé pour les mises en forme ...
il me surligne la ligne i=i+1 car "dépassement de capacité" .

J'ai modifier la déclaration variable i en mettant : dim i as long.

Mais maintenant c'est une erreur d'incompatibilité de type à la ligne 56 où il me surligne en bleu la variable "adressemail" ... j'ai éssayer de déclarer cette variable sous un autre nom mais cela ne change pas.

PLusieurs erreurs dans les noms de variables.
Met Option Explicit en entête de modules et fais Compiler VBAProject dans le menu Débogage
Tu trouveras les erreurs...

Ici, ajoute .Text

Code:

AdresseMail = Worksheets("Tableau").Cells(i, 3).Text

Et j'irais avec une boucle For...Next
J'ai laissé le code à peu près intact, mais j'aurais eu tendance à le simplifier, mais je manque un peu de temps...

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
Option Explicit
 
Sub Commandbutton1_click()
    On Error GoTo Erreur
 
    If MsgBox("Souhaitez-vous envoyer le mail ?", vbYesNo, "Demande de confirmation pour l'envoi du mail") = vbYes Then
 
        Dim Ouvriroutlook As Object
        Dim OuvrirMessage As Object
        Dim AdresseMail As String
        Dim AdresseMAilIA As String
        Dim SalariéSubject1 As String 'toutes ces variables sont les differents objet et message  a inclure
        Dim SalariéBody1 As String
        Dim SalariéSubject2 As String
        Dim SalariéBody2 As String
        Dim SalariéSubject3 As String
        Dim SalariéBody3 As String
        Dim SalariéSubject4 As String
        Dim SalariéBody4 As String
        Dim SalariéSubject5 As String
        Dim SalariéBody5 As String
        Dim IndépendantSubject1 As String
        Dim IndépendantBody1 As String
        Dim IndépendantSubject2 As String
        Dim IndépendantBody2 As String
        Dim IndépendantSubject4 As String
        Dim IndépendantBody4 As String
        Dim IndépendantSubject5 As String
        Dim IndépendantBody5 As String
        Dim Statut As String
        Dim Relance As String
        Dim Returnreceipt As Boolean
        Dim i As Integer, nbLignes As Long
 
        Set Ouvriroutlook = CreateObject("Outlook.Application")
 
        nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
 
        SalariéSubject1 = Worksheets("Annexe").Cells(2, 3)
        SalariéBody1 = Worksheets("Annexe").Cells(2, 4)
        SalariéSubject2 = Worksheets("Annexe").Cells(3, 3)
        SalariéBody2 = Worksheets("Annexe").Cells(3, 4)
        SalariéSubject3 = Worksheets("Annexe").Cells(4, 3)
        SalariéBody3 = Worksheets("Annexe").Cells(4, 4)
        SalariéSubject4 = Worksheets("Annexe").Cells(5, 3)
        SalariéBody4 = Worksheets("Annexe").Cells(5, 4)
        SalariéSubject5 = Worksheets("Annexe").Cells(6, 3)
        SalariéBody5 = Worksheets("Annexe").Cells(6, 4)
        IndépendantSubject1 = Worksheets("Annexe").Cells(7, 3)
        IndépendantBody1 = Worksheets("Annexe").Cells(7, 4)
        IndépendantSubject2 = Worksheets("Annexe").Cells(8, 3)
        IndépendantBody2 = Worksheets("Annexe").Cells(8, 4)
        IndépendantSubject4 = Worksheets("Annexe").Cells(10, 3)
        IndépendantBody4 = Worksheets("Annexe").Cells(10, 4)
        IndépendantSubject5 = Worksheets("Annexe").Cells(11, 3)
        IndépendantBody5 = Worksheets("Annexe").Cells(11, 4)
 
        For i = 5 To nbLignes
 
            AdresseMail = Worksheets("Tableau").Cells(i, 3).Text
            AdresseMAilIA = Worksheets("Tableau").Cells(i, 6)
 
 
            Statut = Range("G" & i)
            Relance = Range("H" & i)
            If Statut = "Salarié" And Relance = "Démarrage" Then
 
                Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
                With OuvrirMessage
                 .To = AdresseMail
                 .Subject = SalariéSubject1
                 .CC = AdresseMAilIA
                 .Body = SalariéBody1
                 .Attachments.Add ("C:\Book1.xls")
                 .display
'                     .Send
                End With
 
            Returnreceipt = True
 
 
            ElseIf Statut = "Salarié" And Relance = "1ère Relance" Then
                Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
                With OuvrirMessage
                .To = AdresseMail
                .Subject = SalariéSubject2
                .CC = AdresseMAilIA
                .Body = SalariéBody2
                 .Attachments.Add ("C:\Book1.xls")
                 .display
'                     .Send
 
                End With
 
            Returnreceipt = True
 
 
            ElseIf Statut = "Salarié" And Relance = "2ème Relance" Then
                Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
                With OuvrirMessage
                .To = AdresseMail
                .Subject = SalariéSubject3
                .CC = AdresseMAilIA
                .Body = SalariéBody3
                 .Attachments.Add ("C:\Book1.xls")
                 .display
'                     .Send
 
                End With
 
            Returnreceipt = True
 
 
            ElseIf Statut = "Salarié" And Relance = "Changement mission" Then
                Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
                With OuvrirMessage
                .To = AdresseMail
                .Subject = SalariéSubject4
                .CC = AdresseMAilIA
                .Body = SalariéBody4
                 .Attachments.Add ("C:\Book1.xls")
                 .display
'                     .Send
 
                End With
 
            Returnreceipt = True
 
 
            ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set OuvrirMessage = Ouvriroutlook.CreateItem(0)
                With OuvrirMessage
                .To = AdresseMail
                .Subject = SalariéSubject5
                .CC = AdresseMAilIA
                .Body = SalariéBody5
                 .Attachments.Add ("C:\Book1.xls")
                 .display
'                     .Send
 
                End With
 
            End If
 
            Set OuvrirMessage = Nothing
 
        Next
 
        MsgBox "Le mail a bien été envoyé à "
 
       Else
 
       MsgBox ("Les mails n'ont pas été envoyés")
 
       End If
 
    Exit Sub
Erreur:
    MsgBox Err.Description
 
End Sub

30/07/2014, 10h39
bryval

Pas grave c'est déjà gentil d'avoir répondu et m'avoir donné quelques solutions

Je voudrais juste te demander, quel est l'objectif de ta ligne 37 ? ça stoppe la boucle for lorsqu'il tombe sur une case vide ?

j'ai rectifier toutes les petites erreur mais la il me met "variable objet ou variable bloc with non définie , sans me surligner quoique ce soit ...
30/07/2014, 10h43
illight

Essaye de faire du pas-à-pas, voir où ça plante. Ou bien la macro ne se lance pas du tout ?

Qu'as-tu modifié ? peut-on voir ton code modifié ?

Par ailleurs, pour envoyer un mail avec Excel, je crois me souvenir qu'il faut activer la référence pour Outlook. C'est déjà fait ?

Code:

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
Option Explicit
Sub Commandbutton1_click()
 
On Error GoTo Erreur:
 
    If MsgBox("Souhaitez-vous envoyer le mail ?", vbYesNo, "Demande de confirmation pour l'envoi du mail") = vbYes Then
 
        Dim Ouvriroutlook As Object
        Dim Ouvrirmessage As Object
        Dim adresseconsultant0 As Object
        Dim adresseia As Object
        Dim SalariéSubject1 As String
        Dim SalariéBody1 As String
        Dim SalariéSubject2 As String
        Dim SalariéBody2 As String
        Dim SalariéSubject3 As String
        Dim SalariéBody3 As String
        Dim SalariéSubject4 As String
        Dim SalariéBody4 As String
        Dim SalariéSubject5 As String
        Dim SalariéBody5 As String
        Dim IndependantSubject1 As String
        Dim IndependantBody1 As String
        Dim IndependantSubject2 As String
        Dim IndependantBody2 As String
        Dim IndependantSubject4 As String
        Dim IndependantBody4 As String
        Dim IndependantSubject5 As String
        Dim IndependantBody5 As String
        Dim Statut As String
        Dim Relance As String
        Dim Returnreceipt As Boolean
        Dim i As Long, nbLignes As Long
 
        Set Ouvriroutlook = CreateObject("Outlook.Application")
        Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
 
        nbLignes = Cells(Rows.Count, "A").End(xlUp).Row
 
        SalariéSubject1 = Worksheets("Annexe").Cells(2, 3)
        SalariéBody1 = Worksheets("Annexe").Cells(2, 4)
        SalariéSubject2 = Worksheets("Annexe").Cells(3, 3)
        SalariéBody2 = Worksheets("Annexe").Cells(3, 4)
        SalariéSubject3 = Worksheets("Annexe").Cells(4, 3)
        SalariéBody3 = Worksheets("Annexe").Cells(4, 4)
        SalariéSubject4 = Worksheets("Annexe").Cells(5, 3)
        SalariéBody4 = Worksheets("Annexe").Cells(5, 4)
        SalariéSubject5 = Worksheets("Annexe").Cells(6, 3)
        SalariéBody5 = Worksheets("Annexe").Cells(6, 4)
        IndependantSubject1 = Worksheets("Annexe").Cells(7, 3)
        IndependantBody1 = Worksheets("Annexe").Cells(7, 4)
        IndependantSubject2 = Worksheets("Annexe").Cells(8, 3)
        IndependantBody2 = Worksheets("Annexe").Cells(8, 4)
        IndependantSubject4 = Worksheets("Annexe").Cells(10, 3)
        IndependantBody4 = Worksheets("Annexe").Cells(10, 4)
        IndependantSubject5 = Worksheets("Annexe").Cells(11, 3)
        IndependantBody5 = Worksheets("Annexe").Cells(11, 4)
 
        For i = 5 To nbLignes
 
        adresseconsultant0 = Worksheets("Tableau").Cells(i, 3).Text
        adresseia = Worksheets("Tableau").Cells(i, 6)
 
        Statut = Range("G" & i)
        Relance = Range("H" & i)
 
                If Statut = "Salarié" And Relance = "Démarrage" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                     .To = adresseconsultant0
                     .Subject = SalariéSubject1
                     .CC = adresseia
                     .Body = SalariéBody1
                     .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                     .Display
                     .Send
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "1ère Relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = SalariéSubject2
                    .CC = adresseia
                    .Body = SalariéBody2
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "2ème Relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = SalariéSubject3
                    .CC = adresseia
                    .Body = SalariéBody3
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = SalariéSubject4
                    .CC = adresseia
                    .Body = SalariéBody4
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                Returnreceipt = True
 
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = SalariéSubject5
                    .CC = adresseia
                    .Body = SalariéBody5
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = IndependantSubject1
                    .CC = adresseia
                    .Body = IndependantBody1
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = IndependantSubject2
                    .CC = adresseia
                    .Body = IndependantBody2
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = IndependantSubject4
                    .CC = adresseia
                    .Body = IndependantBody4
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                ElseIf Statut = "Salarié" And Relance = "Changement mission relance" Then
                Set Ouvrirmessage = Ouvriroutlook.CreateItem(0)
                    With Ouvrirmessage
                    .To = adresseconsultant0
                    .Subject = IndependantSubject5
                    .CC = adresseia
                    .Body = IndependantBody5
                    .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                    .Display
                    .Send
 
                    End With
 
                End If
 
                Set Ouvrirmessage = Nothing
 
        Next
 
    MsgBox ("Le mail a bien été envoyé à ")
 
    Else
 
    MsgBox ("Les mails n'ont pas été envoyés")
 
    End If
 
    Exit Sub
 
Erreur:    MsgBox Err.Description
 
End Sub

je n'ai rien changé a part le nom des variables mais je les ai changé partout ...

la macro se lance, il y a bien la MsgBox qui s'ouvre en me demandant si je voulait bien envoyé le mail, je clique sur ok et puis ca m'affiche ce message (variable objet ou variable de bloc with non définit), en me surlignant le "Sub Commandbutton1_click()

30/07/2014, 11h39
illight
Etrange, quand je lance le code chez moi, je n'ai pas l'erreur.

Peux-tu me dire combien vaut nbLignes ? Je pense qu'il y a un souci sur cette variable :

Code:

nbLignes = Cells(Rows.Count, "A").End(xlUp).Row

C'est pas très propre de l'écrire comme ça, car on ne sait pas sur quelle feuille tu comptes les lignes : est-ce que c'est sur la feuille annexe ou tableau ? il voudrait mieux le préciser dans cette formule. Par exemple :
Code:

1 2 3 with sheets("Annexe") nbLignes = .Cells(.Rows.Count, "A").End(xlUp).Row End with
Ensuite, tu as une gestion d'erreur => c'est pour ça qu'il ne te montre pas la ligne => désactive (met la ligne en commentaire) le On Error au début, et tu verras où ton code plante ;)
30/07/2014, 12h09
bryval

Ça ne marche toujours pas. Toujours le "sub commandbutton1" surligné et quand je place le curseur dessus il me met : SalariéBody2=""
ou il me met pareil mais pour d'autres variables. Pourtant je les ai déclaré et j'ai bien attaché quelque chose a ces variables . Est ce que excel 2013 est différent des autres pour ca ?
30/07/2014, 14h13
parmi
En fait le code est sur la feuille où le nombre de lignes est calculé.
C'est pourquoi je n'avais pas spécifié la feuille, mais bon, c'est toujours préférable de le faire...

J'ai aussi oublié de mentionner que j'avais remplacé .Send par .Display pour fins de tests.
Tu pourras remettre .Send quand ce sera fonctionnel.

J'ai fait des tests ici, sur Excel 2007, mais pas chez moi sur 2013, mais je ne pense pas que ça change quoique ce soit.
En principe, lorsqu'on crée sur une version antérieure, les versions suivantes fonctionnent bien.
Pas toujours dans le cas inverse...

Change le type de variables ici
Code:

1 2 Dim adresseconsultant0 As String Dim adresseia As String
30/07/2014, 16h03
bryval

Parfait !!!! ça fonctionne nickel !!! merci pour votre aide !!! tout cela je l'ai appris mais je l'ai perdu mdr. Ca ma bien fait réviser ;) merci encore pour l'aide c'est gentil

J'aurais juste une dernière question car je ne sais pas si c'est faisable : sur chaque mail que j'envois, dans body, je mets la variable, ou le texte correspondant est le texte pré écris sur une feuille excel. Mais sur ces feuilles excel, dans chaque texte, j'aimerais y mettre les nom des personnes a qui j'envois les mails. Seulement sur excel je ne peux pas car si je mets a la place du nom , la cellule correspondant au nom sur la feuille précédente, ça vas garder le même nom pour tous les mails. J'espère que j'ai été assez clair car c'est pas évident à expliquer.
30/07/2014, 16h43
illight

Et le nom des personnes tu le récupères où ? dans l'adresse mail ? tu as une cellule où tu as le nom ?

Par ailleurs, tu dis que tu veux le mettre dans le body, c'est-à-dire ? tu veux l'écrire comment ? au début ? au milieu du mail ? à la fin ?

Genre écrire :

Citation:

M. Untel,

Veuillez..

Si oui, sur les lignes de ce style :

Code:

.Body = SalariéBody2

Il suffit de rajouter le nom. Soit par une cellule, genre :

Code:

.Body = cells(1,1).value & vbcrlf & SalariéBody2

(le vbcrlf permet de sauter une ligne, il faut peut-être en mettre 2..A tester)

Ou si tu veut l'extraire du mail, un truc de ce genre :

Code:

.Body =Mid(adresseconsultant0, 1, InStr(1, adresseconsultant0, "@", vbTextCompare) - 1) & vbcrlf & SalariéBody2

Qui te permettra d'extraire tout ce qu'il y avant le "@" de l'adresse mail. A toi de voir pour l'inclure dans ton code et comment tu veux l'écrire :)
30/07/2014, 17h00
bryval

Voici le type de message :
-salariébody2 :
"Bonjour,

Je vous ai fait parvenir en date du , un document à nous retourner complété. Il s’agit d’une fiche de poste concernant votre mission actuelle chez Synchrone technologies, élément constitutif et central de votre dossier de carrière.
Malheureusement, à ce jour, je n’ai pas encore eu de retour de votre part.

Je vous invite, s'il vous plaît, à nous retourner votre fiche de poste au plus tard le (1 semaine après la date d’envoi).

Je reste à votre disposition pour tous renseignements.
Je vous souhaite de passer une excellente journée
Bien cordialement,"

c'est sur une feuille excel a part. Et le nom prénom adresse etc ... et sur la première feuille du fichier excel. En fait il faudrait que j'inclue la variable i pour les dates, de façon a ce qu'a chaque mail envoyé, la date soit bien sur la ligne du mail envoyé ...

ah ben c'est pareil pour les dates je suis stupide sur le coup XD je n'ai plus de questions . Il ne resteras qu'a finaliser maintenant. En tout cas merci pour l'aide et au plaisir
06/08/2014, 10h49
bryval

re bonjour

Je voudrais avoir votre avis sur une petite chose : la signature mail . Est ce que vous savez comment on peut en inclure et si c'est possible ... la je n'en ai aucune idée je ne l'ai jamais fait.
06/08/2014, 10h54
illight

Pour moi, la signature fait partie du corps du message. Il faut donc que tu la rajoutes à la fin de ton corps de message.

Pour exemple, dans mes programmes, j'ai une variable texte "fin_mail", où j'ai ma signature, et tout le blabla qu'il y a avec.

Quand j'écris ensuite dans le body, j'ai juste à rajouter cette variable à la fin de mon texte et c'est bon :)
06/08/2014, 10h58
bryval

c'est ce que j'ai fais ;) mais il y a un genre de logo a mettre ... et ça c'est beaucoup plus embêtant ... j'ai regardé sur le net et il parle de langage htmlbody . mais je n'y comprends pas grand chose mdr

Je ne sais plus où en est ton code, mais bon...

Code:

1
2
3
4
5
6
7
8
9
10
                    With Ouvrirmessage
                     .Display    'permet d'insérer la signature
                     .To = adresseconsultant0
                     .Subject = SalariéSubject1
                     .CC = adresseia
                     .HTMLBody = SalariéBody1 & .HTMLBody 'ajoute le texte en plus de la signature déjà inscrite
                     .Attachments.Add ("C:\Users\bvalleti\Desktop\Florent\ModèleFichedePoste.doc")
                     .Display
                     .Send
                    End With