Modification incompréhensible destinataire email

Philou9906 - 11 janv. 2018 à 16:17 - Dernière réponse :  Philou9906
- 15 janv. 2018 à 14:18
Bonjour à vous,

Ceci concerne une macro faite dans Excel.
A la fin du remplissage d'une fiche Excel, ce document est enregistré en version PDF, puis il est mis en pièce jointe à un email.

Pour des raisons qui ne peuvent être changées, ce fichier doit être envoyé à un numéro de FAX.
J'ai une instabilité à ce niveau. Une fois Outlook ouvert, le destinataire est correct.
Soit : [Fax:0123456789]
Seulement après quelques secondes, cela se modifie pour être : 0123456789

Pouvez-vous me dire ce qui se passe ?

Voici la partie de la macro concernée :
'Enregistre PDF
        With Worksheets("Données")
            CHE = .Range("H4").Value
            NF = .Range("H5").Value
            NC = CHE & NF
            NUM = .Range("G1").Value
            NFAX = Format(NUM, "0000000000")   'Pour maintenir 10 numéro
            Dest = "[fax:" & NFAX & "]"
            Sujet = "Intervention SECUTEL " & .Range("H5")
        End With
        Sheets("CRT").Activate
        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        NC, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        From:=1, To:=1, OpenAfterPublish:=False
    'Outlook si nécessaire
    OUTLOOKSIBESOIN   'Ouvre Outlook si pas déjà ouvert
        'Création du mail
        Set OL = CreateObject("Outlook.Application")
        Set OLmail = OL.CreateItem(0)
            With OLmail
                .To = Dest
                .Subject = Sujet
                .Body = "Ce document a pour destination un numéro de FAX. Il est donc inutile d'ajouter quelque chose ici."
                .Attachments.Add NC
                .Display
            End With


Dans l'attente de vos réponses, je vous remercie d'avoir pris un peu de votre temps et vous adresses mes meilleures salutations.

(PS : ne vous arrachez pas les cheveux et ne faite pas de syncope. Cette macro est du bricolage, sans prétention aucune. Merci de votre indulgence.)
Afficher la suite 

2 réponses

Répondre au sujet
Passionofdream 785 Messages postés mardi 21 juillet 2015Date d'inscription 14 janvier 2018 Dernière intervention - Modifié par Passionofdream le 13/01/2018 à 14:29
-1
Utile
1
Bonjour,

Peut être l'erreur ici

Dest = "[fax:" & NFAX & "]"

Essayez avec Dest = "["fax:" & NFAX]"

Cordialement
Bonjour,

Merci pour votre suggestion.
Malheureusement, ça n'est pas celà.

Merci à vous
Commenter la réponse de Passionofdream