Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Ouverture d'un fichier Acrobat Reader depuis Access 2000

Ouverture d'un fichier Acrobat Reader depuis Access 2000

4 réponses
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
3stone
Salut,

"Nicomunich" a écrit:
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/
--------------------------------------

Avatar
Raymond
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/executer_selon_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" a écrit dans le message de
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


Avatar
3stone
"Raymond" a écrit:
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/
--------------------------------------

Avatar
nicomunich
"3stone" wrote in message news:...
"Raymond" a écrit:
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