Discussion :

[The_Super_Steph]

Bonjour,

Voilà mon problème : je souhaite ouvrir, avec un bouton de bascule sur lequel j'aurai inséré un code, un fichier Excel se trouvant à un emplacement précis.
Je n'ai pas trouvé de réponse dans la FAQ, tout ce que j'ai trouvé concernait des importations de données. Or, ce n'est pas ce que je souhaite faire.

Pourriez-vous m'aider un peu s'il vous plait ? Merci

[Invité]

Bonjour

Que veux-tu faire avec ce fichier Excel ?

1 - Ouvrir Excel pour travailler sur le fichier comme n'importe quel fichier Excel ?
2 - Travailler dessus par programmation ?

Starec

[The_Super_Steph]

Bonjour Starec,

En fait je veux juste que le fichier Excel puisse être consulté, car il contient une quinzaine de feuilles avec de jolis graphiques très explicites (et surtout déjà existants). En fait, je voudrais créer un lien qui permette d'ouvrir directement le fichier EXCEL, mais juste pour pouvoir le consulter...

Crois-tu que cela est faisable ? Perso je pense que oui, puisqu'on peut importer des données, donc, on doit bien pouvoir juste ouvrir le fichier et le consulter, mais pour l'instant, je sèche.

[Invité]

Re

Va dans la FAQ ou fait une recherche sur le forum avec "ShellExecute", c'est une API qui permettra de t'ouvrir ton fichier Excel, juste en spécifiant sont chemin et son nom.

Sinon tu as aussi l'instruction VB "Shell".

Starec

[The_Super_Steph]

Re,

Dans la Faq, j'ai trouvé ce que je viens de faire, c'est-à-dire :

Dans un module que j'ai appelé bêtement ShellExecute, j'ai placé ce code :

Code :

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

1
2
3
4
5
Option Compare Database
 
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

Ensuite, j'ai mis le code suivant au niveau de mon bouton de bascule de mon formulaire :

Code :

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

1
2
3
Private Sub Stat1_Click()
ShellExecute Me.hwnd, "open", "C:\Documents and Settings\vendeur\Mes documents\Stephanie\CA_par_tournee.xls", "", App.Path, 1
End Sub

Mais là, lorsque je clique sur mon bouton, bug, et j'ai le message suivant :

Erreur de compilation : variable ou procédure attendue, et non un module

Donc, ça ne marche pas...

[Invité]

Re

Dans un module que j'ai appelé bêtement ShellExecute, j'ai placé ce code :

Voilà l'explication, on n'appelle pas un module du même nom qu'une fonction.

Starec

[The_Super_Steph]

D'accord... la connerie à ne pas faire...

bon, j'ai rectifié ceci, je l'ai maintenant appelé OuvrirAppliExterne.
Par contre, maintenant, j'ai le message suivant :

Erreur de compilation : Sub ou Function non définie

???

[The_Super_Steph]

J'ai changé le code du bouton de bascule, j'ai mis celui-ci, de Maxence HUBICHE, que j'ai également trouvé dans la FAQ :

Code :

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

1
2
3
4
Private Sub Stat1_Click()
ShellExecute Me.hwnd, vbNullString, "C:\Documents and Settings\vendeur\Mes documents\Stephanie\CA_par_tournee.xls", "", vbNullString, 1
 
End Sub

Mais le résultat est le même, j'ai toujours le même message d'erreur

[The_Super_Steph]

Hourrah ! J'ai trouvé !

En fait, il fallait mettre Public au lieu de Private dans le code du module , soit dans le module :

Code :

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

1
2
3
4
5
Option Compare Database
 
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

Et maintenant, ça marche !

Grand merci à toi, Starec, de m'avoir aiguillé

Stéphanie