GNT sans publicité, site mobile, fonctionnalitées exclusives...

Ouverture d'un fichier Acrobat Reader depuis Access 2000

Le
nicomunich
Bonjour,

sur un formulaire, je crée un bouton de commande (avec l'assistant)
auquel j'attribue l'action "Exécuter l'application". La ligne de
commande que j'écris a la forme suivante:

C:\Program Files\Adobe\Acrobat 5.0\Reader\AcroRd32.exe O:\Equipe
1\Projet 2\a b.pdf

(d'abord le chemin d'accès indiquant l'emplacement du programme, puis
le chemin d'accès indiquant l'emplacement du fichier à ouvrir)

Avec mon Access 2000 version francaise, ca marche parfaitement.

Avec une version allemande de Access 2000, ca ne fonctionne pas,
j'obtiens un message d'erreur indiquant que le chemin d'accès est
erroné et que le fichier ne peut pas être trouvé.

L'informaticien du service m'a dit que j'obtiens ce message d'erreur
parce que le chemin d'accès du fichier à ouvrir comporte des espaces
vides (entre Equipe et 1, puis entre Projet et 2, et aussi dans le nom
du fichier). Selon lui, il suffit de renommer le fichier à ouvrir, et
de le sauvegarder sur le disque dur dans un autre dossier, pour que le
chemin d'accès ne comporte plus d'espaces vides. J'ai essayé, et ca
marche.

Le problème, c'est que je ne dois pas changer le chemin d'accès du
fichier à ouvrir.

Il faut donc que je trouve un moyen d'ouvrir le fichier en conservant
son chemin d'accès actuel (avec les espaces vides). Est-ce qu'il est
possible d'y arriver en modifiant la procédure événementielle?

Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click

Dim stAppName As String

stAppName = "C:\Program Files\Adobe\Acrobat
5.0\Reader\AcroRd32.exe O:\Equipe 1\Projet 2\a b.pdf"
Call Shell(stAppName, 1)

Exit_Commande8_Click:
Exit Sub

Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

End Sub


Merci d'avance!

Nicolas
Lire les 4 réponses

Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #4285071
Salut,

"Nicomunich"
sur un formulaire, je crée un bouton de commande (avec l'assistant)
auquel j'attribue l'action "Exécuter l'application". La ligne de
commande que j'écris a la forme suivante:

C:Program FilesAdobeAcrobat 5.0ReaderAcroRd32.exe O:Equipe
1Projet 2a b.pdf

(d'abord le chemin d'accès indiquant l'emplacement du programme, puis
le chemin d'accès indiquant l'emplacement du fichier à ouvrir)




Plus simple...

Va regarder ceci : http://www.mvps.org/accessfr/apis/api0018.htm



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

Raymond
Le #4285031
Bonjour.

Tu peux utiliser l'api OpenfileExtend qui lance un shell sans que tu
indiques le programme d'exécution, l'extension étant suffisante si elle est
répertoriée dans windows.
tu as la procédure complète sur la page:
http://access.seneque.free.fr/execu...on_ext.htm
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"Nicomunich" news:
Bonjour,

sur un formulaire, je crée un bouton de commande (avec l'assistant)
auquel j'attribue l'action "Exécuter l'application". La ligne de
commande que j'écris a la forme suivante:

C:Program FilesAdobeAcrobat 5.0ReaderAcroRd32.exe O:Equipe
1Projet 2a b.pdf

(d'abord le chemin d'accès indiquant l'emplacement du programme, puis
le chemin d'accès indiquant l'emplacement du fichier à ouvrir)

Avec mon Access 2000 version francaise, ca marche parfaitement.

Avec une version allemande de Access 2000, ca ne fonctionne pas,
j'obtiens un message d'erreur indiquant que le chemin d'accès est
erroné et que le fichier ne peut pas être trouvé.

L'informaticien du service m'a dit que j'obtiens ce message d'erreur
parce que le chemin d'accès du fichier à ouvrir comporte des espaces
vides (entre Equipe et 1, puis entre Projet et 2, et aussi dans le nom
du fichier). Selon lui, il suffit de renommer le fichier à ouvrir, et
de le sauvegarder sur le disque dur dans un autre dossier, pour que le
chemin d'accès ne comporte plus d'espaces vides. J'ai essayé, et ca
marche.

Le problème, c'est que je ne dois pas changer le chemin d'accès du
fichier à ouvrir.

Il faut donc que je trouve un moyen d'ouvrir le fichier en conservant
son chemin d'accès actuel (avec les espaces vides). Est-ce qu'il est
possible d'y arriver en modifiant la procédure événementielle?

Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click

Dim stAppName As String

stAppName = "C:Program FilesAdobeAcrobat
5.0ReaderAcroRd32.exe O:Equipe 1Projet 2a b.pdf"
Call Shell(stAppName, 1)

Exit_Commande8_Click:
Exit Sub

Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

End Sub


Merci d'avance!

Nicolas


3stone
Le #4284791
"Raymond"
Tu peux utiliser l'api OpenfileExtend



Mouais... la différence n'est que géographique ;-))



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------

nicomunich
Le #4281901
"3stone"
"Raymond"
Tu peux utiliser l'api OpenfileExtend


Mouais... la différence n'est que géographique ;-))



merci à tous les deux pour les infos!
Finalement, j'ai utilisé l'api OpenfileExtend, et ca marche nickel!

Nicolas


Publicité
Suivre les réponses
Poster une réponse
Anonyme