Discussion :

[BluePlatypus]

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.

[jfontaine]

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 :

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

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")

[BluePlatypus]

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

[BluePlatypus]

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

Code :

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

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

[SfJ5Rpw8]

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

Code :

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

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

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

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

Merci beaucoup!