Macro fonctionne avec windows 7 pro et bloque avec windows 10 pro

Bonjour,

J'ai récupéré des codes sur des forums pour faire une macro. Elle me permet d'envoyer des mails avec une pièce jointe pdf depuis un fichier excel. Cela fonctionne très bien sur mon portable (windows 7 pro) malheureusement quand j'essaie de l'utiliser depuis mon pc du bureau (windows 10 pro) j'ai un message d'erreur (erreur 1004...)

J'imagine qu'il y a un souci de compatibilité. Néanmoins, je n'arrive pas à résoudre ce mystère.

Je vous remercie pour votre aide.

Cordialement,

Option Explicit
    Sub ENVOI_MAIL()
    Dim oOutlook As Object, oMail As Object
    Dim PJ$, dossier
     With ActiveSheet
       .Range("A1").Select
    PJ$ = dossier & "\" & .Range("A1").Value & ".pdf"
    .ExportAsFixedFormat Type:=xlTypePDF, Filename:=PJ, ignoreprintareas:=False
    Set oOutlook = CreateObject("Outlook.Application")
    Set oMail = oOutlook.CreateItem(0)
    With oMail
    .To = listeMails
    .Subject = "Tableau prévisionnel " & Range("A1")
    .Body = "Bonjour," & vbCr & vbCr & "Je vous transmets le tableau avec l'organisation de l’activité de la semaine " & vbCr & vbCr & "Cordialement,"
    .Attachments.Add PJ$
    .ReadReceiptRequested = True
    .Display
    End With
    End With
    End Sub

Function listeMails() As String
 Dim r As Range
 Dim liste As String
 Set r = Sheets("BDD").[A1]
 liste = r
 Set r = r.Offset(1, 0)
 Do While r <> ""
        liste = liste & "; " & r
        Set r = r.Offset(1, 0)
    Loop
  listeMails = liste
 End Function

Bonsoir,
A quoi correspond la variable Dossier déclarée en variant et non initialisée ?
Cdlt.

Bonsoir,

en étabt sur la macro fait un tour sur OUTILS --> Reference

et choisit la réference pour Outlook de la bonne version en recherchant dans l'ascenseur

normalement en ouvrant les références tu devrais voir un "MANQUANT" de ta version pour Outlook

Bonjour,

Je vous remercie pour vos réponses. Je suis désolé, je ne pourrai vérifier les propositions que lundi quand je serai à mon poste.

Bon week-end à tout le monde.

Bonjour le fil,

@M12, j'espère qu'il n'a pas fait cette erreur de sélectionner la bibliothèque Outlook alors qu'il est en "Late binding" donc c'est inutile

@Jean-Eric, effectivement le souci pour moi vient de là

@Redsha, si vous n'initialisez pas votre variable, vous aurez forcément un souci

 Dim PJ$, dossier$
  ' Exemple pour initialiser Dossier
  Dossier = ThisWorkbook.Path &"\"
  With ActiveSheet  
    PJ$ = Dossier & "\" & .Range("A1").Value & ".pdf"

A+

Bonjour,

Je tente ma chance lundi avec votre proposition. Néanmoins, vous avez une idée pourquoi ça fonction normalement avec mon portable ?

Merci encore

Bonne journée

Bonjour,

Je vous remercie BrunoM45 ça fonctionne parfaitement avec cette ligne supplémentaire. Merci à tout le monde pour votre aide précieuse.

Bonne soirée et à bientôt