Modification incompréhensible destinataire email

Fermé
Philou9906 - Modifié le 11 janv. 2018 à 18:49
 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.)
A voir également:

1 réponse

Passionofdream Messages postés 820 Date d'inscription mardi 21 juillet 2015 Statut Membre Dernière intervention 11 mai 2021 303
Modifié le 13 janv. 2018 à 14:29
Bonjour,

Peut être l'erreur ici

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

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

Cordialement
-1
Bonjour,

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

Merci à vous
0