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

Poser une question


"Nicomunich"
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/
--------------------------------------
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:
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/
--------------------------------------
merci à tous les deux pour les infos!
Finalement, j'ai utilisé l'api OpenfileExtend, et ca marche nickel!
Nicolas