URGENT : Pb pour ouvrir un doc dont le nom contient des espaces

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 12 sept. 2002 à 09:26
cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 - 12 sept. 2002 à 11:06
Bonjour,

En VBS, je veux ouvrir/éditer/fermer des fichiers.
Ma proc marche si je n'ai pas d'espace dans le nom du répertoire et dans le nom du fichier.

Dim Shell
Set Shell = WScript.CreateObject("WScript.Shell")

Shell.Run "c:\Partage-Jean-Marc\test jean marc.doc" 'ne s'ouvre pas car il y a des espaces
Shell.Run "c:\Partage Jean Marc\test jean marc.doc" 'ne s'ouvre pas car il y a des espaces
Shell.Run "c:\Partage-Jean-Marc\test-jean-marc.doc" 's'ouvre car il n'y a pas d' espaces

Shell.SendKeys "^p" 'Raccourci clavier de l'impression
Shell.SendKeys "{ENTER}" 'Réponse OK pour fenêtre imprimer
WScript.Sleep(5000)
Shell.SendKeys "%(ff)" 'fermeture du document
WScript.Sleep(1500)
Shell.SendKeys "%n" 'non enregistrement du document
Shell.SendKeys "%{F4}",true 'fermeture de Word

En cherchant dans le Forum, je pense qu'il faut peut-être utiliser les propriétés DOS du répertoire (+sous-répertoires) et du fichier....

J'ai fait des essais avec GetAbsolutePathName pour le chemin et GetFileName pour le fichier, mais je me plante à chaque fois.

Quelqu'un peut-il m'aider ????????????

La proc ci-dessus est incomplète car j'ai rajouté For Each pour testé .doc et .xls. C'est simplement la base pour testé sur 1 document

1 réponse

cs_JMO Messages postés 1854 Date d'inscription jeudi 23 mai 2002 Statut Membre Dernière intervention 24 juin 2018 26
12 sept. 2002 à 11:06
Je suis NUL, NUL......

J'ai trouvé !!!!!
WshShell.Run fichier.ShortPath
0
Rejoignez-nous