URGENT : Problèmes d'espaces dans un chemin de fichier!

Signaler
Messages postés
3
Date d'inscription
jeudi 12 septembre 2002
Statut
Membre
Dernière intervention
7 novembre 2002
-
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
-
Bonjour à tous,

Voilà mon problème, j'essaye de faire ouvrir à Excel un fichier sur le
réseau :

Set wkClasseur = xlApp.Workbooks.Open(PathIndex)

PathIndex représentant la variabale contenant le chemin de mon fichier. Cela
fonctionne trés bien sauf lorsque le chemin de mon fichier contient des
espaces (que je ne peux d'ailleurs en aucun cas les enlever.)

J'ai aussi essayé cela :

Set wkClasseur = xlApp.Workbooks.Open(chr(34) & PathIndex &
chr(34))

Mais là cela ne fonctionne pas du tout.

Quelqu'un a t-il une idée pour me dépanner? C'est très urgent, merci
d'avance pour vos réponses!

1 réponse

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

exemple pour un répertoire à rallonge
Dim Fso, path, fichier, fichiers, WshShell
path = "E:\Affaires\EUROFACTOR - AP02N008\4.3 Formulaires\Formulaires spécifiques"

Set WshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set dossier = fso.GetFolder(path)
Set fichiers = Dossier.Files

For Each fichier in fichiers
'MsgBox "shortPath=" & fichier.ShortPath & vbCrLf & "Path=" & fichier.Path
'MsgBox "shortName=" & fichier.ShortName & vbCrLf & "Name=" & fichier.Name
If Left(fichier.name,19) = "Main courante Ifdex" Then
WshShell.Run fichier.ShortPath
WScript.Sleep(3000)
WshShell.SendKeys "^p"
WScript.Sleep(2000)
WshShell.SendKeys "{ENTER}" 'imprimer => ok
WScript.Sleep(3000)
WshShell.SendKeys "%(fq)" 'fermeture du document
WScript.Sleep(3000)
End If
0