Code qui ne fonctionne plus après passage à Excel 365
Bonjour,
Je me prénomme Gérard, j'ai 49 ans et je suis novice en VBA
J'ai mis en place un fichier de relance fournisseur par mail il y'a quelque temps en utilisant Excel 2010 et un code que j'avais récupéré sur le forum (modifié à ma sauce), je fonctionnais sous Windows 7 et Excel 2010 je n'avais aucun problème, jusqu'au passage la semaine dernière de mon poste en Windows 10 et Excel 365
quand je lance la procédure pour envoyer mes mails, j'ai un message d'erreur du type "Erreur de compilation: Projet ou bibliothèque introuvable"
Voici mon code (j'ai mis en rouge l'erreur) j'ai tenté de modifier cette ligne, mais sans réussite je me suis donc décidé à demander de l'aide ici
merci
Sub Envoi_mail()
'on cré le fichier PDFdans le même dossier que le fichier source
Dim ObjOutlook As New Outlook.Application
Dim oBjMail
Dim Nom_Fichier As String
Set OutApp = CreateObject("Outlook.Application")
Set objmessage = ObjOutlook.CreateItem(olMailItem)
For Each cel In Sheets("Mailing").Range("A2:a2000") 'si les données (adresses mail et fichier à envoyer) sont en A et B
fc = cel(1, 2).Value
CF = cel(1, 4).Value
Set objmessage = OutApp.CreateItem(0)
With objmessage
.Subject = CF 'Sujet
.To = cel.Value 'Email du destinataire doit-être correct ici
.Body = Range("l6").Value & Chr(10) & Range("l7").Value & Chr(10) & Range("l8").Value & Chr(10) & Range("l9").Value & Chr(10) & Range("l10").Value & Chr(10) & Range("l11").Value & Chr(10) & Range("l12").Value & Chr(10) & Range("l13").Value & Chr(10) & Range("l14").Value
'""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
'mise en forme du paragraphe au format "HTML"
paragraphe = ""
paragraphe = paragraphe & "<HEAD>" & Chr(13)
paragraphe = paragraphe & "<BODY>" & Chr(13)
'************************************
objmessage.SentOnBehalfOfName = "- M2E-HA-Relance"
.Attachments.Add fc
.Send
End With
Set objmessage = Nothing
Next
End Sub
Bonjour
Vous devez aller dans l'editeur VBA.
Dans le menu "Outils" --> "References", allez cocher la case "Microsoft Outlook Library"
Cordialement
Merci pour votre réponse,
en regardant dans outils, j'avais une des références qui etais noté "manquante"
j'ai décoché et le problème a disparu