Problème avec .movenext

**LaureneK** · 08/09/2016, 17h01

Bonjour à tous,

Comme tout nouveau qui passe par là, j'espère ne pas faire de doublon, mais j'ai retourné tout le net (rien que ça!) sans trouver de solution à mon problème.

J'ai une table CARNET_ADRESSE à laquelle je souhaite envoyer des mails "à la chaîne".
Dans mon code j'utilise .movenext mais... ça ne passe jamais au suivant.
(je suis bien débutante et tâtonne beaucoup encore

)

Pour comprendre le problème, j'ai voulu vérifier combien de lignes "voyait" mon code, et je constate que le résultat retourné est 1 (peut être que le problème vient de là?)

Je vous joins le fameux code (basé sur un super tuto du grenier access

) et vous laisse en juger.

Merci pour votre aide!

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
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
Function btnEmail_Click()
  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strMessageType As String
  Dim strTitre As String
  Dim mail As String
  Dim obj As String
  Dim count As Long
 
 
 
  ' Titre du message
  strTitre = "Commandes C&C Après 17h - {NOM STAC}"
  strMessageType = "Bonjour, Vous trouverez en pièce jointe la liste des commandes passées après 17h30. Bonne fin de journée"
  obj = "{NOM STAC}"
  mail = "{mail}"
 
  ' Ouverture de la requête
 
          Set db = CurrentDb
 
 
                strSQL = "SELECT * FROM [CARNET_ADRESSE]"
 
 
                     Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)
   count = rst.RecordCount
 
 
 
   ' Parcourir la liste des mails/contacts
 
  rst.MoveFirst
 
 
Do While Not rst.EOF
 
For i = 0 To count
count = count - 1
 
 
    ' Personalisation de l'objet du message, spécification de la PJ et du mail
 
    strTitre = Replace(strTitre, "{NOM STAC}", rst("STAC"))
    obj = Replace(obj, "{NOM STAC}", rst("STAC"))
    mail = Replace(mail, "{mail}", rst("Adresse mail"))
 
 
    ' Expédier le mail
    DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""
 
   rst.MoveNext
   Next i
 
    ' Contact suivant
 
 Loop
 
 
  ' On libère les ressources
  rst.Close
  Set rst = Nothing
 
  ' Un petit message de confirmation
  MsgBox "Opération terminée !", vbInformation, "Fini!"
End Function

Invité · 08/09/2016, 17h16

bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
If rst.EOF = False Or Rs.bof = False Then rst.MoveFirst
 While rst.EOF = False
    ' Personalisation de l'objet du message, spécification de la PJ et du mail
 
    strTitre = Replace(strTitre, "{NOM STAC}", rst("STAC"))
    obj = Replace(obj, "{NOM STAC}", rst("STAC"))
    mail = Replace(mail, "{mail}", rst("Adresse mail"))
    ' Expédier le mail
    DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""
   rst.MoveNext
    ' Contact suivant
 Wend

**LaureneK** · 08/09/2016, 17h40

Bonjour Rdurupt,

Merci beaucoup pour ta réponse rapide!

Malheureusement, ça boucle toujours sur le 1er enregistrement

Invité · 08/09/2016, 18h08

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Function btnEmail_Click()
  Dim db As DAO.Database
  Dim rst As DAO.Recordset
  Dim strSQL As String
  Dim strMessageType As String
  Dim strTitre As String
  Dim mail As String
  Dim obj As String
  Dim count As Long
 
 
 
  ' Titre du message
  strTitre = "Commandes C&C Après 17h - {NOM STAC}"
  strMessageType = "Bonjour, Vous trouverez en pièce jointe la liste des commandes passées après 17h30. Bonne fin de journée"
  obj = "{NOM STAC}"
  mail = "{mail}"
 
  ' Ouverture de la requête
 
          Set db = CurrentDb
 
 
                strSQL = "SELECT * FROM [CARNET_ADRESSE]"
 
 
  With db.OpenRecordset(strSQL)
  ' Parcourir la liste des mails/contact
 
Do While Not .EOF
    ' Personalisation de l'objet du message, spécification de la PJ et du mail
 
    strTitre = Replace(strTitre, "{NOM STAC}", .fields("STAC"))
    obj = Replace(obj, "{NOM STAC}", .fields("STAC"))
    mail = Replace(mail, "{mail}", .fields("Adresse mail"))
 
 
    ' Expédier le mail
    DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""
 
   .MoveNext
    ' Contact suivant
 
 Loop
 
 
  ' On libère les ressources
  .Close
 End With
  ' Un petit message de confirmation
  MsgBox "Opération terminée !", vbInformation, "Fini!"
End Function

**LaureneK** · 08/09/2016, 18h10

Nope! Toujours pas :/

(Merci beaucoup pour ton aide en tout cas!)

Invité · 08/09/2016, 18h19

As tu à un moment ou un autre écris on error resume Next?

Car là c'est du domaine de Fox Mulder, la vérité est ailleur!

**LaureneK** · 08/09/2016, 18h28

Non, j'ai fourni le code complet...

Est-ce normal que mon rst.RecordCount renvoi 1 alors que dans ma table il y a 7 lignes?

Je cherche les coordonnées de Mulder en attendant

Invité · 08/09/2016, 18h48

Un record count envoi le nombre d'enregistrement à partir de l'endroit où ce trouve le curseur d'enregistrement.
1 si on est sur first, la moitié si le nombre d movenext nous positionne au milieux et tout si eof=True.

Ce n'est pas une information pertinente!

MoveLast;recordcount: Moverfirst.

Code :

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

1
2
3
4
5
6
7
8
if Rst.eof=false then
Rst.movelast
nb= Rst.recordcount
Rst.movefirst
For i=0 to nb-1
Rst.move(i)
Next
End if

je suis sur mon téléphone portable vérifies la syntaxe!

**LaureneK** · 08/09/2016, 19h19

Merci pour l'explication!

Alors ça ne marche pas (pour info je l'ai intégré comme ci-contre)

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
If rst.EOF = False Then
rst.MoveLast
nb = rst.RecordCount
rst.MoveFirst
For i = 0 To nb - 1
 
 
 
    strTitre = Replace(strTitre, "{NOM STAC}", rst("STAC"))
    obj = Replace(obj, "{NOM STAC}", rst("STAC"))
    mail = Replace(mail, "{mail}", rst("Adresse mail"))
 
 
    DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""
 
 
   rst.Move (i)
Next
 
 
End If

En revanche en faisant le pas à pas détaillé, j'ai remarqué que ça restait bloqué sur

Code VBA :

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

DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""

C'est une commande qui m'a l'air assez simple pourtant, mais se pourrait il que le problème vienne de là?

Invité · 08/09/2016, 19h25

Personnellement je n'utilise pas les DoCmd!

Je viens de vb6 et pas Access, pour c'est une base de données pas d'instruction système!

C'est même parfois difficile pour moi de faire le lien entre les DoCmd et l'équivalent Vba!

Mets la ligne en commentaire pour voir si ça vient de là!

'DoCmd

**LaureneK** · 09/09/2016, 10h21

Hmmm...
ça me donne une erreur d'exécution 3021 - Aucun enregistrement en cours

Je vais tenter de changer mon docmd par sendMail (j'avais contourné car ça ne marchait pas comme je voulais)

**loufab** · 11/09/2016, 21h40

Bonjour,

C'est un peu capilotracté cet algo de parcours d'enregistrement.

Ce serait pas plus simple d'écrire normalement ?

Code :

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

1
2
3
4
5
6
7
 
While not rst.eof
 
...
 
rst.movenext
Wend

Connaître le nombre d'enregistrement quand ça ne sert pas dans le code

Utiliser un for et un move (i) au lieu d'un simple movenext.

Cordialement,

**LaureneK** · 12/09/2016, 10h27

Bonjour loufab,

C'était ce que j'avais mis dans mon code à la base, mais vu que ça ne fonctionnait pas, je tente tout ce que je trouve

Petite mise à jour de la situation: Donc je suis revenue sur cette version du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
While Not rst.EOF
 
    ' Personalisation de l'objet du message, spécification de la PJ et du mail
 
    strTitre = Replace(strTitre, "{NOM STAC}", rst("STAC"))
    obj = Replace(obj, "{NOM STAC}", rst("STAC"))
    mail = Replace(mail, "{mail}", rst("Adresse mail"))
    ' Expédier le mail
 
 
    'DoCmd.SendObject acQuery, obj, "ExcelWorkbook(*.xlsx)", mail, "", "", strTitre, strMsg, True, ""
   rst.MoveNext
    ' Contact suivant
 Wend

J'ai laissé mon Docmd désactivé pour l'instant.
Ce qui se passe actuellement, c'est que j'ai la boucle qui se répète bien 7 fois (ça tombe bien j'ai 7 lignes dans ma table), mais qui ne prend à chaque fois que les informations de la première ligne.

**loufab** · 12/09/2016, 12h26

Bonjour,

EDIT : si tu as 7 lignes et qu'il y passe 7 fois c'est que ça marche mieux non ?

Je n'avez pas vu tes appels au recordset...

Code :

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

1
2
 
rst("STAC")

C'est du code ACCESS 2.0 ?

Tu n'utilises jamais l'automation ?

Voici la notation standard de récupération d'une valeur d'un champ de recordset.

Code :

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

rst.fields("STAC").value

Peux-tu poster la ligne déclarative de ton rst ?

Cordialement,

**LaureneK** · 12/09/2016, 12h41

Effectivement il y a du progrès

Alors à ta question "Tu n'utilises jamais l'automation", je vais te dire non, car sur l'échelle de l'évolution d'un codeur VBA, je ne suis même pas un oeuf ^^ (vraiment au tout début de l'apprentissage

)

Voici la ligne déclarative (enfin je crois

):

Code :

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

1
2
3
4
5
6
7
8
 
          Set db = CurrentDb
 
 
                strSQL = "SELECT * FROM [CARNET_ADRESSE]"
 
 
                     Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)

Invité · 12/09/2016, 14h01

bonjour,

Code non ici tu montre où tu utilises rst :

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

1
2
3
4
5
6
7
8
 
          Set db = CurrentDb
 
 
                strSQL = "SELECT * FROM [CARNET_ADRESSE]"
 
 
                     Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)

Code là tu déclares rst! :

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

1
2
3
function btnEmail_Click()
  Dim db As DAO.Database
  Dim rst As DAO.Recordset

**tyjez** · 12/09/2016, 16h47

si ca peut t'aider moi je le fait un peu de cette façon
(peut etre pas la meilleur solution mais cela fonctionne (a adapter avec des données de tables)

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
 
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim strPath As String
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
Dim sql As String
sql = "SELECT * FROM carnetAdresse"
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset(sql, dbOpenDynaset)
rs.MoveFirst
Dim sujet As String
sujet = "Mon objet de mail"
Dim corps As String
corps = "Le contenu de mon mail"
Dim destinataire As String
With rs
    Do While Not .EOF
        destinataire = rs("email")
        With MailOutLook
                        .BodyFormat = olFormatRichText
                        .To = destinataire
                        '.CC = copyMail
                        .Subject = sujet
                        .HTMLBody = corps
                        .Send
                        '.Display    'permet de créer l'email sans l'envoyer
        End With
    Loop
End With

**LaureneK** · 13/09/2016, 11h08

Bonjour Tyjez,

Merci pour l'alternative!

Petite question, on peut joindre des PJ avec cette méthode?

Invité · 13/09/2016, 11h45

Bonjour,
http://www.developpez.net/forums/d14...t/#post7968025

**loufab** · 13/09/2016, 12h50

Envoyé par LaureneK

Effectivement il y a du progrès

Alors à ta question "Tu n'utilises jamais l'automation", je vais te dire non, car sur l'échelle de l'évolution d'un codeur VBA, je ne suis même pas un oeuf ^^ (vraiment au tout début de l'apprentissage

)

Mauvaise raison ! L'automation DOIT être utilisée dès le début, justement pour apprendre le contenu des classes.

Problème avec .movenext

VBA Access

Discussions similaires

Partager

Partager