Bonjour,

Voici mon souci :
j'ai créer un bouton qui parcoure une table d'enregistrements et envoie par mail un fichier ensuite elle déplace ce fichier d'un dossier à l'autre .

Jusqu'au la tout va bien mon probléme est quand je me positionne sur le premier enregistement pour envoyer ce fichier par mail je reçois le bon fichier mais le souci c'est que toujours le fichier qui se déplace c'est le 1er de la table .voici le détail de mon 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
15
16
17
18
19
20
21
22
23
24
25
26
Dim l As String
l = ("Confirmez vous la livraison pour le client :  " & rst.Fields(3) & ", Le fichier  :  " & rst.Fields(2))
Select Case MsgBox(l, vbOKCancel, "Livraison sur les clients")
     Case vbOK
     Set myApp = CreateObject("Outlook.Application")
Set myItem = myApp.CreateItem(olMailItem)
myItem.Subject = "Surveillance  " & rst.Fields(3)
myItem.Body = "Madame, Monsieur," & vbCrLf & 
b = (Replace(rst.Fields(1), "#", "") & "\Fusion\Avantliv\" & rst.Fields(2))
MsgBox b
rst.MoveFirst
myItem.Attachments.Add (b)
myItem.To = x
myItem.Send
MsgBox "Le Fichier a bien été transmis au client :" & x
   Dim fso As Object
  Set fso = CreateObject("Scripting.FileSystemObject")
 
    MsgBox rst.Fields(2)
  MoveFile = True
fso.MoveFile "N:\chemin\" & rst.Fields(3) & "\Fusion\AvantLiv\" & rst.Fields(2), "N:\chemin\" & rst.Fields(3) & "\Fusion\ApresLiv\" & rst.Fields(2)
 
Case vbCancel
End Select
rst.MoveNext
 Wend