Problème de transfert macro

Bonsoir tout le monde,

j'ai besoin de votre aide SVP.

J'ai un classeur EXCEL365 sur mon pc et sur la feuille "commande" j'ai placé la macro ci-dessous afin de pouvoir enregistrer en pdf et envoyer ce pdf en mail outlook.
cela fonctionne très bien sur le pc.

Or j'ai le même classeur sur une clé USB avec laquelle je travaille à l'extérieur et quqnd je lance la macro depuis la clé USB cela ne fonctionne plus.
Alors les chemins de dossiers ont tous été adaptés, donc de ce côté RAS.

Voici tout d'abord voici la macro qui fonctionne bien sur le pc:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub EnvoiPDF() Dim olApp As Outlook.Application Dim m As Outlook.MailItem Dim Objet As String Dim Destinataire As String Dim Nom As String Nom = ActiveSheet.Name & ".pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ ActiveWorkbook.Path & "\" & Nom, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False Set olApp = CreateObject("Outlook.application") Set m = olApp.CreateItem(0) Destinataire = Range("G4") Objet = "Bon de commande numéro: " & Range("H2") With m .To = Destinataire .Subject = Objet .Attachments.Add ActiveWorkbook.Path & "\" & Nom .Display End With End Sub

---

ensuite voila le message erreur en image pièce jointe qu'il m'affiche lorsque je lance la macro depuis la clé USB:

Merci pour votre aide.

Cdt CarTune

Salut.

Dans Outils, Références, tu dois aller cocher la référence à Outlook. Ce problème survient lorsque les versions d'Outlook ne sont pas identiques sur les deux machines.


Tu aurais intérêt, à mon avis, à travailler en Late Binding en spécifiant ta variable en Object plutôt qu'en Outlook.Application. Ainsi, elle passera mieux les problèmes de version. Dans ce cas, tu dois déclarer toutes les variables qui pointent vers Outlook.xxx en Object => Dim MaVariable As Object

Bonsoir Monsieur Fauconnier,

Merci pour votre réponse.
Malheureusement je ne suis pas si pro dans le vba comme vous, car avec ce que vous m'avez écris je ne sais absolument pas quoi en faire !

Auriez-vous la gentillesse de m'indiquer cela en écrivant le texte pour le vba et les cases à cocher ?

Merci d'avance

Cordialement CarTune

Modifie les premières lignes de ta macro ainsi:

Code:

---

1 2 3

Sub EnvoiPDF() Dim olApp As Object Dim m As Object

---

Citation:

---

Envoyé par Pierre Fauconnier

Modifie les premières lignes de ta macro ainsi:

Code:

---

1 2 3

Sub EnvoiPDF() Dim olApp As Object Dim m As Object

---

---

Re,

Ne fonctionne pas !

voici le code erreur en pièce image jointe
Pièce jointe 606604

Il fallait juste modifier les lignes que j'ai montrées, mais laisser les autres ^^

Code:

---

1 2 3 4 5 6

Sub EnvoiPDF() Dim olApp As Object Dim m As Object Dim Objet As String Dim Destinataire As String Dim Nom As String

---

Y a un minimum syndical, tout de même...

J'ai déclaré l'autre variable "Dim Objet As String"

ça à l'air de fonctionner, alors dites moi si cela semble ok pour vous

Pièce jointe 606606

Ca m'a l'air correct mais je ne saurais pas tester. Il faudrait que je recrée ton environnement. Le mieux est que tu testes toi-même et que tu continues la discussion si d'autres problèmes surviennent.