Discussion :

[Thierry'']

Bonjour à tous,

J'ai une application Access qui me pose problème car elle tourne sur plusieurs postes clients qui n'ont pas la même version Windows et/ou Office, ce problème se situe uniquement au niveau de la bibliothèque de réféence outlook, je pensais m'en sortir avec ce code sur le formulaire de démarrage:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Form_Open(Cancel As Integer)
 
Call PositionnerF(Me)
 
On Error Resume Next
 
References.AddFromFile ("C:\Program Files\Microsoft Office\Office12\MSOutl.olb") 'Office 2007'
References.AddFromFile ("C:\Program Files\Microsoft Office\Office11\MSOutl.olb") 'Office2003'
References.AddFromFile ("C:\Program Files\Microsoft Office\Office\Msoutl9.olb") 'Office 2000
 
End Sub

Mais je dois me rendre à l'évidence ça ne fonctionne pas
Merci d'avance

[Domi2]

Bonjour,

Je pense que tu pourrais contourner ce genre de problème en utilisant le "late binding"...

Tu as une discussion ici qui en parle...

Et en faisant une recherche avec "Binding" dans le sous-forum Access VBA, tu devrais en trouver plusieurs autres...

Domi2

[Thierry'']

Je vais regarder ça
merci pour ta réponse

[Thierry'']

En fouillant dans les autres postes j'ai trouvé ce code que je place sur le formulaire de démarrage:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Open(Cancel As Integer)
 
On Error Resume Next
 
' Office 2003
     Application.References.AddFromGuid "{00062FFF-0000-0000-C000-000000000046}", 9, 2 ' Outlook 2003
   ' Office 2007
       Application.References.AddFromGuid "{00062FFF-0000-0000-C000-000000000046}", 9, 3 ' Outlook 2007
     End Sub

A la fermeture de l'application je place le code suivant:

Code :

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

1
2
3
4
5
6
Private Sub Form_Close()
On Error Resume Next
 
    Application.References.Remove Application.References("Outlook")
 
End Sub

Et voilà qui semble résoudre mon problème, le fait de décocher à la fermeture évite de laisser une réf manquante...

Mais voilà le hic: ça ne marche que pour Office 2003 et 2007, je ne connais pas le code pour 2000, je suppose que c'est:

Code :

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

1
2
' Office 2000
     Application.References.AddFromGuid "{00062FFF-0000-0000-C000-000000000046}", 9, 1

Mais je ne peut pas le tester, si quelqu'un pouvez me confirmer que ça marche ça serait super

Encore un dernier point c'est pour Office XP là je ne voie pas...