Discussion :

[zimone26]

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

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

[Theze]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zimone26]

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

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

[zimone26]

Re,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é..


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

[Theze]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
.BodyFormat = 3

[zimone26]

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!