Bonjour,

J'ai utilisé un module d'envoi d'un mail dans un autre programme par un copier coller. Ce module fonctionne très bien dans le premier programme.

Or, dans mon nouveau programme, j'obtiens une erreur immédiate "Erreur de compilation - Type défini par l'utilisateur non défini
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
Sub Envoi_Fichier_Tableau()
 
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)
Sheets("Destinataire").Select
 
Semaine = IsoWeekNum(Date)
 
DerLigneDest = [A1].End(xlDown).Row
DerLigneCopy = [B1].End(xlDown).Row
TexteCorps = [F1]
L'erreur est sur la ligne
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Dim appliOutlook As New Outlook.Application
Merci pour votre analyse