Bonsoir,

Un code déjà utilisé que j'ai un peu adapté ne fonctionne plus. Il me provoque une erreur "Erreur d'éxécution 91 : Variable objet ou variable de bloc With non définie" sur la ligne To= Destinataires
Avez vous une idée ?
merci pour votre aide
Sub Envoi_Fichier_Tableau()
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
 
Dim Destinataires As String
Dim DestinatairesCopy As String
Dim TexteCorps As String
Dim Semaine As Integer
Dim Fichier As String
Dim Cellule As Range
Dim DerLigneDest As Long
Dim DerLigneCopy As Long
Dim appliOutlook As New Outlook.Application
Dim emailOutlook As Outlook.MailItem
 
Set appliOutlook = New Outlook.Application
Set emailOutlook = appliOutlook.CreateItem(olMailItem)
Windows("Regulation_des_flux.xls").Activate
Sheets("Liste A Diffuser").Select
 
Semaine = IsoWeekNum(Date)
 
DerLigneDest = [C2].CurrentRegion.Rows.Count
 
For x = 2 To DerLigneDest
Destinataires = Cells(x, 14)
TexteCorps = "Vous avez dans votre stock le module " & Cells(x, 3) & Cells(x, 4) & "depuis " & Cells(x, 11) & " jours : merci de déposer dès que possible ce module en point relai pour retour vers Saint-Witz (sauf en cas d'utilisation imminente)"
 
With emailOutlook
    .To = Destinataires
    .Subject = "Module à déposer "
    .Body = TexteCorps
    .Display
End With
Set appliOutlook = Nothing
Set emailOutlook = Nothing
Next x
MsgBox "Préparation des mails - Terminé"
 
End Sub
Pour améliorer votre aide, c'est au deuxième passage dans la boucle FOR que l'erreur arrive alors que dans la première boucle cela a fonctionné