Discussion :

[eli-stein]

Bonjour,
j'essai d'ouvrir un fichier excel à partir de ma base de données access 2007 ( pas dans la base mais à partir de la base); j'ai essayer Shell, ça marche trés bien quand c'est un chemin sans aucun espace; mais dés que il y a un espaces dans le chemin ça ne marche plus!!

y a t'il un moyen de contourner ce problème svp?
De l'autre côté pourriez-vous me dire comment ouvirir un fichier pdf à partir de access ??
c un peu urgent svp.
Merci d'avance

[78chris]

Bonjour

De façon générale il faut encadrer ce qui contient des espaces par des guillemets, simples ou doubles selon les cas.

[LE VIEUX]

Bonjour,
Un code qui ouvre tous les fichiers :
Il faut rajouter la référence « Microsoft Scripting Runtime »

on met dans un module :

Code :

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

1
2
3
Public 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

puis le code sur ........

Code :

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

1
2
3
4
5
6
Dim oFSO As Scripting.FileSystemObject
Dim oFl As Scripting.File
Set oFSO = New Scripting.FileSystemObject
strFile = ‘ chemin du fichier
Set oFl = oFSO.GetFile(strFile)
ShellExecute hwnd, vbNullString, oFl, "", vbNullString, 1