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

Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
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

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

J'ai trouvé !!!!!
WshShell.Run fichier.ShortPath