Discussion :

[maban]

Bonjour,

Je veux ouvrir un fichier EXCEL en tapant un bouton, donc j'ai utilisé des codes comme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Commande32_Click()
On Error GoTo Err_Commande32_Click
 
    Dim stAppName As String
 
    stAppName = "C:\Program Files\Microsoft Office\OFFICE11\Excel.exe D:\Liste des amis.xls"
    Call Shell(stAppName, 1)
 
Exit_Commande32_Click:
    Exit Sub
 
Err_Commande32_Click:
    MsgBox Err.Description
    Resume Exit_Commande32_Click
 
End Sub

Mais comme il y a des espaces dans le nom du fichier, "Liste des amis.xls", il peut pas trouver ce fichier, donc je sais pas comme réussir sans renomer le fichier.

Merci d'avance pour votre aide

[francishop]

Bonjour,

Code :

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

1
2
stAppName = "C:\Program Files\Microsoft Office\OFFICE11\Excel.exe D:\Liste des amis.xls"
    Call Shell(stAppName, 1)

Mais comme il y a des espaces dans le nom du fichier, "Liste des amis.xls", il peut pas trouver ce fichier, donc je sais pas comme réussir sans renomer le fichier.

Access n'a pas besoin que tu renommes ton fichier puisque tu as mis à juste titre des guillemets pour le chemin.(Program Files\Microsoft Office = espace pour chacun et pas question de changer le nom..)
Par contre la chronologie de la syntaxe est à revoir. Il faut essayer :

Code :

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

1
2
3
Dim stAppName As String
    stAppName = "Excel.exe " & Chr(34) & "C:\Program Files\Microsoft Office\OFFICE11\Liste des amis.xls" & Chr(34)
    Call Shell(stAppName, 1)

Cordialement.

Ps : Ton fichier "Liste des amis.xls" est bien dans OFFICE11? Si c'est le cas il y a urgence a créer un dossier a un autre endroit. On peut "en mettre un peu partout" sauf à certains dont OFFICE11.