ouverture de pdf

Le
andre
Bonsoir,
dans un formulaire il y a un bouton qui doit un ouvrir un "pdf"
j'ai cette macro :
Sub ShellOuvre()
Dim fich
fich = "C:aide sur etc .pdf"
ShellExecute 0, "open", fich, "", "", 0
End Sub
ca fonctionne par contre je souhaite avoir ceci :
fich = "C:Documents and SettingsuserMes documentsxxx Comptaaide
sur etc .pdf" '
ca ne marche pas pouvez vous me corriger
merci

--
andre
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
Philippe.R
Le #5232681
Bonjour,
Tu peux t'aider de l'enregistreur de macros pour obtenir la syntaxe du
chemin à indiquer lors de la définition de ta variable.
Tu obtiendras qualque chose comme :

ChDir "C:UsersBenevolesDocumentsExcelMPFE"

A priori, en récupérant la partie entre double quote, ça devrait le faire
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
Bonsoir,
dans un formulaire il y a un bouton qui doit un ouvrir un "pdf"
j'ai cette macro :
Sub ShellOuvre()
Dim fich
fich = "C:aide sur etc .pdf"
ShellExecute 0, "open", fich, "", "", 0
End Sub
ca fonctionne par contre je souhaite avoir ceci :
fich = "C:Documents and SettingsuserMes documentsxxx Comptaaide sur
etc .pdf" '
ca ne marche pas pouvez vous me corriger
merci

--
andre




andre
Le #5232351
andre à dit
merci pour la proposition
dans le meme genre d'idee comment lui retourner un msgbox indiquant que
le fichier n'a pas été trouvé dans le dossier indiqué
ou "fichier introuvable"
j'ai essayé avec un test if then etc mais rien...
merci du tuyau
Bonjour,
Tu peux t'aider de l'enregistreur de macros pour obtenir la syntaxe du chemin
à indiquer lors de la définition de ta variable.
Tu obtiendras qualque chose comme :

ChDir "C:UsersBenevolesDocumentsExcelMPFE"

A priori, en récupérant la partie entre double quote, ça devrait le faire
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:





--
andre


Philippe.R
Le #5232301
Bonsoir,
Avec quelque chose comme ceci

Sub ShellOuvre()
Dim fich

On Error GoTo fin

fich = "C:aide sur etc .pdf"
ShellExecute 0, "open", fich, "", "", 0

Exit Sub

fin:
MsgBox "Fichier non trouvé",,"MPFE"

End Sub


--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:
andre à dit
merci pour la proposition
dans le meme genre d'idee comment lui retourner un msgbox indiquant que le
fichier n'a pas été trouvé dans le dossier indiqué
ou "fichier introuvable"
j'ai essayé avec un test if then etc mais rien...
merci du tuyau
Bonjour,
Tu peux t'aider de l'enregistreur de macros pour obtenir la syntaxe du
chemin à indiquer lors de la définition de ta variable.
Tu obtiendras qualque chose comme :

ChDir "C:UsersBenevolesDocumentsExcelMPFE"

A priori, en récupérant la partie entre double quote, ça devrait le faire
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/mpfe/connexion.php
News://news.microsoft.com/microsoft.public.fr.excel
"andre" news:





--
andre






Publicité
Poster une réponse
Anonyme