Discussion :

[alainb]

Bonsoir,
petit problème pour accéder à mon fichier avec la commande

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ShellExecute Me.hWnd, "open", "c:\chemin avec espace\mon_fichier.doc", "", CurrentProject.Path, 1

la chaine du chemin comporte des espaces
Je ne trouve pas de solution
Help

[francishop]

Bonjour,

Les espaces sont résolus par les guillemets. Par contre tu devrais plutôt te tourner vers une solution genre celle offerte par Argyronet :
http://access.developpez.com/faq/?page=Word#DesactMacro
Il te suffit de supprimer la ligne concernant l'AutoMacros

Cordialement.

[alainb]

Bonjour,

Les espaces sont résolus par les guillemets. Par contre tu devrais plutôt te tourner vers une solution genre celle offerte par Argyronet :
http://access.developpez.com/faq/?page=Word#DesactMacro
Il te suffit de supprimer la ligne concernant l'AutoMacros

Cordialement.

la proposition Argyronet n'est pas applicable pour toutes les situations que je vais rencontrer.

Les guillemets ne résolvent pas le problème, un seul espace bug le code
Je peux le vérifier en remplacant l'espace par un caractère quelconque

J'ai testé les quotes et chr$(32) sans succès, donc ... re help
merci

[francishop]

Bonsoir,

Que penser de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CmdTestEspaces_Click()
 ShellExecute Me.hwnd, "open", _
 "C:\Dossier avec Espaces\Test Espaces.doc", "", _
 CurrentProject.Path, 1
End Sub

et ça marche! Les espaces....
Je n'ai pas référencé Word. Par contre je n'ai pas oublié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Cordialement.

[alainb]

Bonsoir,

Que penser de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub CmdTestEspaces_Click()
 ShellExecute Me.hwnd, "open", _
 "C:\Dossier avec Espaces\Test Espaces.doc", "", _
 CurrentProject.Path, 1
End Sub

et ça marche! Les espaces....
Je n'ai pas référencé Word. Par contre je n'ai pas oublié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Cordialement.

Effectivement avec les espaces le code fonctionne.
Mon problème se situait ailleurs , j'avais remplacé "CurrentProject.Path" par le répertoire du fichier à ouvrir
Ton insistance a payé, merci