Rechercher : dans
Par :

Comment ouvrir un fich. PDF sur Visual Basic?

Dernière réponse le 31 déc 2008 à 18:41:09 excalybur, le 31 déc 2008 à 17:42:38 
 Signaler ce message aux modérateurs

Bonjour,

De mon programme compilé sous Visual Basic je veux appeler un fichier d'aide qui est au format pdf.

J'ai résolu partiellement le problème avec la fonction Shell.

Malheuresement il faut tout préciser !!! 1/ l'adresse d'adobe reader et 2/ celle du fichier !!

Cela est très lourd car tous le monde ne met pas ses programmes sur c: et ne suivent pas toujours mon schèma de répertoire.

Par exemple si on utilise indiférament trois disques c, d ou e pour mon application j'écris :

If disk$ = "c:" Or disk$ = "C:" Then
retval = Shell("C:\Adobe\Reader 9.0\Reader\AcroRd32.exe c:\sbwin\sbwinGB.pdf", 1)
End If
If disk$ = "d:" Or disk$ = "D:" Then
retval = Shell("C:\Adobe\Reader 9.0\Reader\AcroRd32.exe d:\sbwin\sbwinGB.pdf", 1)
End If
If disk$ = "e:" Or disk$ = "E:" Then
retval = Shell("C:\Adobe\Reader 9.0\Reader\AcroRd32.exe e:\sbwin\sbwinGB.pdf", 1)
End If

En admettant qu'Adobe soit sur le disque c: !

Ceci n'est donc pas transportable d'un pc à un autre. Imaginez que l'utilisateur lambda installe sur N:

J'utilise VBA 6 sur XP pro. Ce programme est compatible du 98 à Vista !

La fonction shell ne supporte aucune variable comme disk$ ! A moins qu'il y est une astuce?

Merci pour votre aide.

Configuration: Windows XP
Firefox 3.0.5

Meilleures réponses pour « Comment ouvrir un fich. PDF sur Visual Basic? » dans :
Introduction à Visual Basic Voir Présentation de Visual Basic Visual Basic est un outil développé par Microsoft pour développer facilement des applications fonctionnant sous Microsoft Windows ©. Visual Basic est, comme son nom l'indique, un outil visuel permettant de créer...
Erreur système : Microsoft Visual Basic VoirEn ouvrant Excel, vous rencontrez un message d'erreur. Une fenêtre au nom de "Microsoft Visual Basic" s'ouvre avec le contenu suivant : Erreur système &H80004005 (-2147467259). Erreur non spécifiée Pour corriger le problème, suivez les...
Télécharger Visual Basic 6 Runtime (VB6 DLL) VoirLe Runtime Visual Basic 6 contient l'ensemble des librairies (DLL) nécessaires pour exécuter des programmes écrits en langage Visual Basic 6.0. Il contient notamment les DLL suivantes :...

1

 mikebzh, le 31 déc 2008 à 18:41:09

L'astuce est toute bête, en fait tu peux fabriquer ta ligne de commande dans une variable string et la mettre dans ta fonction shell par la suite du style

[code]
dim cmd,fich as string
cmd = "c:\.......\" & fich & "\xxxxxxx.exe"
ret = shell(cmd,1)
[\code]

Bonne année

Répondre à mikebzh