Application sous vba utilisateurs avec configurations différentes

Bonjour,

je développe une application avec différentes fonctionnalités sous Excel 2003 via vba et je suis confrontée à un problème d'utilisateurs qui ont des versions différentes d'excel, d'OS et même d'applications disponibles différentes (visio, acess,...).

Le cas qui me préoccupe aujourd'hui est que j'ai une fonctionnalité qui fait appel à VISIO mais que certains de mes utilisateurs ne l'ont pas sur leur PC. Or je souhaite mettre à disposition de tout mes utilisateurs une version qui gère à la fois cette fonctionnalité s'ils ont visio mais qui s'ils ne l'ont pas, fonctionne sans proposer cette fonctionnalité.

Quand ils ouvrent Excel les utilisateurs sans visio ont un message d'erreur car au moment de la compilation, l'application cherche des références à visio dans la bibliothèque qu'ils n'ont pas.

Est ce que quelqu'un sait comment éviter ce problème au moment de la compilation sans créer deux versions différentes de l'application?

Merci d'avance pour votre aide.

Bonjour,

Au lieu de mettre les références en dur, tu appels ces références dans l'instanciation de ta variable application

Ci dessous, un exemple d'appel de powerpoint

Code:

---

1 2 3 4 5 6

Dim PowApp As Object Dim PowPres As Object   Set PowApp = CreateObject("Powerpoint.Application") Set PowPres = PowApp.Presentations.Open(ActiveWorkbook.Path & "\carte de france.ppt")

---

je vais essayer ça dès demain!
Merci pour cette réponse rapide!

En fait j'avais déjà fait cette manipulation comme suit:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'instanciation visio Set appVisio = CreateObject("Visio.Application")   'ouvrir le doc existant visio If Err <> 0 Then MsgBox ("Your current configuration does not allow the execution of this feature." & vbCrLf & "Please contact your administrator and give this error number: " & Err) End If Set objVisio = appVisio.Documents.OpenEx(strFichierSource, visOpenCopy)   'rendre le document viso visible appVisio.Visible = True

---

Mais ça n’empêche pas qu'il cherche les références à visio à la compilation et que si on a pas visio on ne peut pas continuer...

On ne voit pas comment tu déclare tes variables et comment fonctionne ton traitement d'erreurs ..

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Dim AppVisio As Object On Error Resume Next Set AppVisio = CreateObject("Visio.Application") On Error GoTo 0 If Not AppVisio Is Nothing Then '....Avec Visio AppVisio.Visible = True   Else '.... Sans Visio Stop End If

---

Effectivement mon problème venait de ma déclaration de variable je n'avais pas vu qu'il fallait les déclarer en object...:oops:

Je n'ai plus d'erreurs à la compilation!

Merci beaucoup!

:ccool:

Citation:

---

Envoyé par BluePlatypus

Effectivement mon problème venait de ma déclaration de variable je n'avais pas vu qu'il fallait les déclarer en object...:oops:

---

Bonjour,

C'est essentiellement surtout qu'il faudrait que tu acquières les notions de Late Binding (Liaison tardive) de l'Early Binding (Liaison anticipée) ;)

Citation:

---

L'objet spécifique de cette fiche est de permettre de comprendre et de différencier le Late Binding (Liaison tardive) de l'Early Binding (Liaison anticipée). Ces deux techniques vous permettront de sortir de certaines situation périlleuses dans vos développements de solutions pour des parcs hétérogènes.

---

http://mhubiche.developpez.com/vba/f...endre/binding/

http://heureuxoli.developpez.com/off...?page=page2#L2

ne t'arrêtes pas sur Acces ou Word, l'approche est la même à ce niveau..

cordialement,

Didier

Ok je vais regarder merci pour les conseils!