[access] exécuter application Excel
Fermé
rodrigue62
Messages postés
190
Date d'inscription
vendredi 18 février 2005
Statut
Membre
Dernière intervention
10 janvier 2011
-
30 mai 2006 à 09:02
GUYSYS Messages postés 27 Date d'inscription dimanche 25 septembre 2005 Statut Membre Dernière intervention 2 septembre 2006 - 6 juin 2006 à 23:35
GUYSYS Messages postés 27 Date d'inscription dimanche 25 septembre 2005 Statut Membre Dernière intervention 2 septembre 2006 - 6 juin 2006 à 23:35
A voir également:
- [access] exécuter application Excel
- Liste déroulante excel - Guide
- Formule excel - Guide
- Si et excel - Guide
- Application gps sans internet - Guide
- Aller à la ligne excel - Guide
3 réponses
zenon
Messages postés
726
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
13 février 2010
180
30 mai 2006 à 10:14
30 mai 2006 à 10:14
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.
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.
rodrigue62
Messages postés
190
Date d'inscription
vendredi 18 février 2005
Statut
Membre
Dernière intervention
10 janvier 2011
30
31 mai 2006 à 10:35
31 mai 2006 à 10:35
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.
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.
GUYSYS
Messages postés
27
Date d'inscription
dimanche 25 septembre 2005
Statut
Membre
Dernière intervention
2 septembre 2006
11
6 juin 2006 à 23:35
6 juin 2006 à 23:35
Salut,
Dans ton module : remplace Sub par Function et End Sub par End Function.
code pour ta macro
Ou utilise l'assistant macro en choisissant dans la colonne action
ExécuterCode et dans Nom fonction
En affectant, cette macro à un bouton cela fonctionne nickel.
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.
