Bibliothèques VBA Excel/Outlook

Bonjour à tous,

Je suis nouveau posteur sur le forum mais vous avez déjà débuggé pas mal de mes macros grâce à vos réponses sur d'autres discussions, donc je vous remercie déjà pour tout ça :mrgreen:

Cependant, aujourd'hui, je ne trouve pas de réponse à mon problème, donc à mon tour de poster. Je vous explique mon soucis. Je développe actuellement un outil permettant de tracer les non-conformités des pièces contrôlées dans mon entreprise. Les contrôleurs vont donc vérifier leurs pièces, et s'ils trouvent des défauts, ils vont faire une fiche pour tracer ce défaut, elle est faite sous excel et s'enregistre à plusieurs endroits sur le réseau de l'entreprise, mais là n'est pas le soucis, tout fonctionne correctement ici, le problème vient de l'envoi de la fiche par mail. En effet, une fois que le contrôleur a validé sa fiche elle est envoyée au référent par mail via Outlook au format PDF. Sur mon ordinateur où est réalisé le développement tout fonctionne nickel. (Je développe sous Excel 2013 je précise)

Le problème survient quand je lance mon fichier sur les ordinateurs des deux contrôleurs qui sont eux sous Excel 2007 et Excel 2010. Pour que le fichier fonctionne chez eux il faut que je change une bibliothèque dans les références. Cette bibliothèque c'est Microsoft Outlook x.x Object Library qui est en version 15.0 sur mon ordinateur mais dans une version différente sur chacun des PC des contrôleurs. Je voulais donc savoir s'il était possible de changer automatiquement cette bibliothèque en fonction de la version d'Excel du PC. (Ou plutôt de la version du pack office ou d'Outlook? Je ne comprends pas toutes les subtilités des bibliothèques).

Merci d'avance pour votre réponse :)

Bonjour,

Utilises les relations tardives et déclares tes variables en type "Object" :

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim AppOutlook As Object Dim OutMail As Object   Set AppOutlook = CreateObject("Outlook.Application") Set OutMail = AppOutlook.CreateItem(0) '... '... Set OutMail = Nothing Set AppOutlook = Nothing

---

Bonjour, merci de la réponse extrêmement rapide :)

Je teste ça et je te fais un retour, encore merci !

Re,

Je viens de tester, j'ai donc modifié ces lignes en les passant en object

Code:

---

1 2	Dim oOutlook As Object Dim oMailItem As Object

---

Et j'ai une erreur "Argument ou appel de procédure incorrect" sur ces lignes

Code:

---

1 2	With oMailItem .BodyFormat = olFormatRichText

---

Je ne comprends pas tout à fait ma fonction d'envoi de mail, je l'ai récupérée sur un forum et adaptée, désolé..:aie:


Edit: Faut il avec ces modifications que je retire carrément la bibliothèque Outlook de mes références?

Les constantes Outlook ne sont pas connues d'Excel dans le cas où il y a liaison tardive donc, il faut entrer directement leur valeur donc :

Code:

---

1 2	.BodyFormat = 3

---

Bonjour,

Merci beaucoup Theze tout fonctionne comme je le veux c'est nickel, j'ai juste une question par pure curiosité, comment connais-tu la valeur des constantes liées à d'autres bibliothèques pour faire du late binding? :)

Bonne journée!

Citation:

---

Envoyé par zimone26

j'ai juste une question par pure curiosité, comment connais-tu la valeur des constantes liées à d'autres bibliothèques pour faire du late binding?

---

Dans l'aide interne de vba (F1) Outlook (puisque tu manipule un objet Outlook), en cherchant "BodyFormat":

Citation:

---

OlBodyFormat, énumération
Spécifie le format du corps de texte d'un élément.
Nom Valeur Description
olFormatHTML 2 Format HTML
olFormatPlain 1 Format simple
olFormatRichText 3 Format RTF (texte enrichi)
olFormatUnspecified 0 Format non spécifié

---

Il y a énormément d'info dans l'aide interne de VBA !
N'hésite pas à la consulter régulièrement

Merci je vais regarder ça :)