Discussion :

[Golork]

Bonjour, voilà j'ai une base de donnée Access et je me sert d'Excel pour afficher les données pour pouvoir être imprimée (je ne me sert pas des etats pour cause de mise en page trop restrictive.).
Dans la FAQ Vb j'ai trouvé un bout de code permettant d'ouvrir un fichier avec son application associée, mais cela ne marche pas ou j'ai pas compris comment on s'en sert :

Placez cette déclaration dans le module d'une form :

Code :

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

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

La ligne suivante affiche le site Developpez.com dans le navigateur par défaut, en fournissant le répertoire de votre application comme répertoire par défaut :

Code :

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

ShellExecute Me.hwnd, "open", "<a href="http://www.developpez.com"," target="_blank">http://www.developpez.com",</a> "", App.Path, 1

moi j'utilise un chemin vers un fichier excel et quand je l'execute il me met une erreur "erreur de compilation. Sub ou fonction non définie"

[Golork]

Je suis arrivé à lancer excel avec en paramètre le chemin de mon fichier Excel (.xls) et il y a un problème avec le chemin qui comporte des espaces qui ne sont pas gérés...

Code :

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

1
2
3
4
Dim stAppName As String
    stAppName = "Excel.exe C:\Documents and Settings\NTA\Bureau\Nouveau dossier
\Projet Fabien\Access Eddy\Access + Excel\solde_TVA_2006.xls"
    Call Shell(stAppName, 1)

[ActionAccess]

Bonjour,

Pour ouvrir avec Excel des fichiers (qui ont ou non des espaces), tu peux procéder de la façon suivante :

Code :

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

1
2
3
4
5
6
'Ouverture de Excel :
Dim XlApp As Excel.Application
Set XlApp = New Excel.Application
Dim wkbNew As Excel.Workbook
Set wkbNew = XlApp.Workbooks.Open("C:\Documents and Settings\Mes documents\Classeur + 1.xls")
XlApp.Visible = True

Bon courage

[Golork]

merci mais j'ai trouvé tout seul comme un grand

[sunvialley]

sinon si c'est juste pour ouvrir le fichier, on peut utiliser un lien hypertexte depuis un control (mais c'est pas forcément la meilleur méthode adaptée à ton besoin)

[eli-stein]

Bonjour,
j'ai le même problème, 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