Sujet Précédent Sujet Suivant

[access] exécuter application Excel

rodrigue62 Messages postés 201 Statut Membre -  
GUYSYS Messages postés 27 Statut Membre -
Bonjour,
j'ai réalisé une macro dans laquelle j'aimerai entre autre ouvrir un fichier excel particulier, j'ai donc utilisé la commande ExécuterApplication et j'ai entré en ligne de commande le chemin d'acces a ce fichier Excel. Mais ca ne fonctionne pas, et je pense en fait que c'est parceque cette commande sert à ouvrir Excel et qu'en ligne de commande je devrait juste indiquer le nom du chemin du exe d'excel. Alors comment faire pour ouvrir mon .XLS?
merci d'avance
A voir également:

3 réponses

Réponse 1 / 3
zenon Messages postés 729 Statut Membre 180
 
Salut,

En VB, avec la commande Shell, il suffit de faire suivre le path de l'application par le path du fichier:

X= Shell ("c:\...exe C:\...XLS",1)

Probablement que ça fonctionnerait aussi avec une macro.
0
Réponse 2 / 3
rodrigue62 Messages postés 201 Statut Membre 30
 
En passant par module j'ai ensuite ecrit ce code:

Sub ouv_recap()
'declaration de nom de fichier
NomFichier = "recap bilan.xls"
'ouverture du fichier Excel
Set AppExcel = CreateObject("Excel.Application")
AppExcel.Workbooks.Open ("C:\Documents and Settings\sap\Mes documents\rodrigue\" & NomFichier)
' rendre visible la fenetre
AppExcel.Visible = True

On Error Resume Next
AppExcel.UserControl = True
AppExcel.Close
End Sub

et sa marche, ca m'ouvre bien mon fichier excel, mais le probleme c'est qu'ensuite je n'arrive pas a faire appel à ce code dans ma macro.
0
Réponse 3 / 3
GUYSYS Messages postés 27 Statut Membre 11
 
Salut,

Dans ton module : remplace Sub par Function et End Sub par End Function.

code pour ta macro 

'------------------------------------------------------------
' Macro2
'
'------------------------------------------------------------
Function Macro2()
On Error GoTo Macro2_Err

    ouv_recap


Macro2_Exit:
    Exit Function

Macro2_Err:
    MsgBox Error$
    Resume Macro2_Exit

End Function


Ou utilise l'assistant macro en choisissant dans la colonne action
ExécuterCode et dans Nom fonction 
ouv_recap()


En affectant, cette macro à un bouton cela fonctionne nickel.
0