Microsoft 365 macro excel

naf naf · 15 Janvier 2021

bonjour,
je souhaite insérer une pièce jointe pdf dans un mail déjà pré enregistrer au format oft .
J'ai écrit un bout de code ou il m'ouvre le fichier oft mais il me crée un autre mail pour m'insérer la pièce jointe .
Pouvez vous m'aider svp .

voici mon bout de code :

Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Outlook.Application.CreateItem(olMailItem)

Set myAttachments = myItem.Attachments
' lien hypertext pour ouverture de .oft
Range("M40").Select

' insertion pièce jointe
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
myAttachments.Add "c:\semainier- Version du 15-01-2021.pdf", _
olByValue, 1, "Semainier"
myItem.Display

Staple1600 · 16 Janvier 2021

Re

Donc cela fonctionnait en fait...
(C'est amusant...de perdre son temps pour des fautes d'inattention)

Et quid des "chaleureux remerciements" en cas de résolution de la question initiale?

PS: Précisions
Oui , j'ai toujours en main mon crayon "humour/titillement/ironie et cie" pour rédiger ce message.
Mais tout cela sur un ton amical.

Staple1600 · 16 Janvier 2021

Bonjour le fil, naf naf

=>naf naf
Un petit exemple en guise de test
(faire les adaptations nécessaires dans le code avant de lancer la macro)

VB:

Sub test_mail()
Dim P_Jointe$, Repertoire$
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "adressemail@domain.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add P_Jointe
        .Display
        '.Send
    End With
End Sub

naf naf · 16 Janvier 2021

Staple1600 à dit:
Bonjour le fil, naf naf

=>naf naf
Un petit exemple en guise de test
(faire les adaptations nécessaires dans le code avant de lancer la macro)

VB:

Sub test_mail() Dim P_Jointe$, Repertoire$ Repertoire = ThisWorkbook.Path & "\" P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter With CreateObject("Outlook.Application").CreateItem(0) .To = "adressemail@domain.fr" ' à adapter .Subject = "Objet TEST" ' à adapter .Body = " Ceci est un test" ' à adapter .Attachments.Add P_Jointe .Display '.Send End With End Sub

merci beaucoup , j'essaye et je vous dit ce que cela donne

naf naf · 16 Janvier 2021

naf naf à dit:
merci beaucoup , j'essaye et je vous dit ce que cela donne

je viens d'essayer , il me met une erreur débogage sur la ligne
.Attachments.Add P_Jointe

Deuxieme chose , je ne comprend pas ou je renseigne l'emplacement du fichier .oft message type pré-enregistrer.

Merci encore pour votre aide

Staple1600 · 16 Janvier 2021

Re

C'est pourtant explicite et indiqué dans les commentaires du code, non?
Dim P_Jointe$, Repertoire$
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
Donc ici on note que le PDF est dans le dossier où se trouve le classeur Excel et que le fichier se nomme nomfichier.pdf

Donc il faut que le PDF: semainier- Version du 15-01-2021.pdf
soit au bon endroit

naf naf · 16 Janvier 2021

Staple1600 à dit:
Re

C'est pourtant explicite et indiqué dans les commentaires du code, non?
Dim P_Jointe$, Repertoire$
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "nomfichier.pdf" ' à adapter
Donc ici on note que le PDF est dans le dossier où se trouve le classeur Excel et que le fichier se nomme nomfichier.pdf

Donc il faut que le PDF: semainier- Version du 15-01-2021.pdf
soit au bon endroit

oui le fichier j'arrive à l'ouvrir il est bien au bonne endroit, mais je sais pas pourquoi j'ai plutot l'impression qu'il reconnais pas la fonction .Attachements.Add
Sinon tous le reste fonctionne, si je fais juste un affichage du fichier cela fonctionne

Staple1600 · 16 Janvier 2021

Re

Tu peux poster ta modification du code que j'ai posté, stp?
(Parce que dans mon code, nulle part je n'ouvre de fichier...)

naf naf · 16 Janvier 2021

Staple1600 à dit:
Re

Tu peux poster ta modification du code que j'ai posté, stp?
(Parce que dans mon code, nulle part je n'ouvre de fichier...)

j'ai juste enlevé .Attachments.Add car en erreur
Je me suis mal exprimer , je voulais parler de l'ouverture de mon fichier .OFT dans lequel je met en Pjointe le .PDF ; que je ne trouve pas dans le code . c'est tout

naf naf · 16 Janvier 2021

naf naf à dit:
j'ai juste enlevé .Attachments.Add car en erreur
Je me suis mal exprimer , je voulais parler de l'ouverture de mon fichier .OFT dans lequel je met en Pjointe le .PDF ; que je ne trouve pas dans le code . c'est tout

Staple1600 · 16 Janvier 2021

Re

C'est bien ce que je pressentais ...
j'avais écrit
Repertoire = ThisWorkbook.Path & "\"
Ce qui est donc le chemin du dossier où se trouve le classeur
Or sur ta copie d'écran ce tu écris n'a pas de sens
Repertoire = ThisWorkbook.Path & "C:\Users\[...]"
Et là où c'est écrit en vert ' à adapter
bah faut adapter, non?
Parce si tu testes avec cet "adressemail@domain.fr", tu risques d'attendre longtemps avant de recevoir un mail

NB: C'est plus pratique de copier/coller le code VBA dans le message qu'une copie d'écran.
Parce qu'avec une copie d'écran, il faut se fader la réécriture du code VBA.

naf naf · 16 Janvier 2021

Staple1600 à dit:
Re

C'est bien ce que je pressentais ...
j'avais écrit
Repertoire = ThisWorkbook.Path & "\"
Ce qui est donc le chemin du dossier où se trouve le classeur
Or sur ta copie d'écran ce tu écris n'a pas de sens
Repertoire = ThisWorkbook.Path & "C:\Users\[...]"
Et là où c'est écrit en vert ' à adapter
bah faut adapter, non?
Parce si tu testes avec cet "adressemail@domain.fr", tu risques d'attendre longtemps avant de recevoir un mail

NB: C'est plus pratique de copier/coller le code VBA dans le message qu'une copie d'écran.
Parce qu'avec une copie d'écran, il faut se fader la réécriture du code VBA.

merci de ta patience, j'avais compris que le répertoire je devais mettre l'adresse ou se trouve le fichier à cet endroit.
je retest et je reviens

naf naf · 16 Janvier 2021

naf naf à dit:
merci de ta patience, j'avais compris que le répertoire je devais mettre l'adresse ou se trouve le fichier à cet endroit.
je retest et je reviens

je viens de modifier il me met toujours un debogage sur la ligne
.Attachments.Add P_Jointe

naf naf · 16 Janvier 2021

C'est bon je viens de comprendre , cela fonctionne si je crée un fichier excel au meme endroit que la piece jointe

naf naf · 16 Janvier 2021

maintenant comment la mettre dans un mail modele outlook déja enregistrer en .OFT

Staple1600 · 16 Janvier 2021

Re

Est-ce tu avais lu le message#2 attentivement?
Si oui tu as remarqué les mots en gras
en guise de test
Donc à tester dans un classeur vierge qu'on aura enregistrer dans un dossier dans le lequel on aura mis un fichier PDF quelconque pour faire le test.
Et comme je le précisais ensuite on adapte avant de lancer la macro
Exemple de test
1) J'enregistre mon classeur de test dans C:\Users\Staple\Test
Donc ce petit test ci-dessous affichera "C:\Users\Staple\Test\"

VB:

Sub chemin()
Repertoire = ThisWorkbook.Path & "\"
MsgBox Repertoire
End Sub

2) Je copie donc dans C:\Users\Staple\Test un fichier PDF que je nomme pour mon test: toto.pdf
3) J'adapte le code VBA en conséquence

Enrichi (BBcode):

Sub test_mail_II()
Dim P_Jointe$, Repertoire$
Repertoire = ThisWorkbook.Path & "\"
P_Jointe = Repertoire & "toto.pdf" ' à adapter
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "staple1600@ugumma.fr" ' à adapter
        .Subject = "Objet TEST" ' à adapter
        .Body = " Ceci est un test" ' à adapter
        .Attachments.Add P_Jointe
        .Display
        '.Send
    End With
End Sub

4) Je lance le test

[ajout EDITION <=< rédigé en mode ironico-humoristique =>=>]
Je viens de voir que tu avais fini par être attentif à ce que j'écrivais.

Et que par conséquent, tout ce qui s'est dit après le message#2 fut une perte de temps.
En découle que ta pénitence sera de faire les recherches idoines pour envoyer une PJ en utilisant un *.oft
[/ajout EDITION <=< rédigé en mode ironico-humoristique =>=>]

Microsoft 365 macro excel

naf naf

XLDnaute Nouveau

Staple1600

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

naf naf

XLDnaute Nouveau

Pièces jointes

Staple1600

XLDnaute Barbatruc

naf naf

XLDnaute Nouveau

naf naf

XLDnaute Nouveau

naf naf

XLDnaute Nouveau

naf naf

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Discussions similaires