Discussion :

[pascal913]

salut c'est encore moi !!

Sous access97, j'ai une macro qui m'envoie le resultat d'un filtre sur feuille excel. ce que j'arrive à faire dans problème, mais la ou je lutte dpuis plus d'une semaine, c'est que je voudrais que le fichier excel s'ouvre tout seul de façon que je n'ai pas à aller le chercher.
Si quelqu'un a une idée je suis preneur ! merci d'avance pour ceux qui s'interesseront à mon problème.

Merci

[Muhad'hib]

Salut,

Regarde ça par exemple.

A+

[LedZeppII]

Bonjour,

tu peux utiliser ceci dans la FAQ http://access.developpez.com/faq/?pa...n#shellexecute
Remplace "http://www.developpez.com" par le chemin+Nom de ton fichier Excel

A+

[pascal913]

merci Muhad'hib pour ton aide mais je n'ai pas trouvé mon bonheur sur ton lien mais c'est gentil de ta part de m'avoir aidé.

est-ce possible de faire ce que je demande par l'intermédiaire d'une macro?

Quand à toi LedZeppII je crains que ton code ne fonctionne pas à moins (et c'est fort probable) que je me sois planté en l'intégrant dans mon cas. C'est sympa quans toi aussi.

[Arkham46]

ShellExecute fonctionne pourtant très bien

une autre solution toute simple :

Code :

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

Application.FollowHyperlink "c:\test.xls"

[Muhad'hib]

Re,

Si tu avais regarder mon lien en détail tu en aurais retenu qu'on peux faire :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim Excel As Object
'Affectation de la variable
Set Excel = GetObject("c:\test.xls")
'rendre le classeur visible
Excel.windows("test.xls").Visible = True
'rendre l'appli visible
Excel.Application.Visible = True
'libération de la variable
Set Excel = Nothing

L'avantage de cette méthode par rapport à Application.FollowHyperlink c'est que tu peux manipuler l'objet Excel (entrer des données, mettre en forme, renseigner des cellules ...) avant de le rendre visible :

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
17
18
 
Dim Excel As Object
Set Excel = GetObject("c:\test.xls")
 
 
Excel.windows("test.xls").Visible = True
With Excel.sheets(1)
    .cells(11, 1) = "Salutation en cette belle journée du " & Format(Now, "dd/mm/yyyy")
    .Range("A12:H15").MergeCells = True
    .cells(12, 1).Font.Bold = True
    .cells(12, 1).Font.Size = 18
    .cells(12, 1) = CurrentDb.Name
    .cells(12, 1).HorizontalAlignment = -4131
 
End With
Excel.Application.Visible = True
 
Set Excel = Nothing

A+