Discussion :

[ZeitnotZatopek]

Bonjour à tous et merci d'avance
J'ai une macro Access appelant une macro Excel entre autre.
La feuille table.xls est attachée.

1-La macro exécute ce code sans problème

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
 
Function Excel_macro1()
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\table.xls")
 
    xlApp.Application.Run "''table.xls'!macro1"
 
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Function

2-les données sont traitées puis Access les copie dans une feuille resultat.xls

3-Je veux refaire tourner une macro Excel de la même table avec le code suivant

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
 
Function Excel_macro2()
 
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\table.xls")
 
    xlApp.Application.Run "''table.xls'!macro2"
 
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Function

Access écrit qu'il ne trouve pas le fichier Excel pourtant trouvé avant

[Tofalu]

L'erreur survient sur quelle ligne ?

[SfJ5Rpw8]

et pourquoi deux simples quotes avant table ..?

Code :

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

1
2
 xlApp.Application.Run "''table.xls'!macro2"

[ZeitnotZatopek]

les 2 simples cotes sont une erreur d'écriture lors de la copie sur le site.
Désolé de cette erreur

[SfJ5Rpw8]

les 2 simples cotes sont une erreur d'écriture lors de la copie sur le site.
Désolé de cette erreur

et le reste du code... c'est bien celui utilisé ..? .. sur quelle ligne est l'erreur..? message..?

[ZeitnotZatopek]

l'erreur "jaunit " cette ligne

Code :

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

xlApp.Application.Run "'table.xls'!macro2"

[ZeitnotZatopek]

Pardon c'est cette ligne qu'il "jaunit", en écrivant qu'il ne trouve pas ce fichier

Cependant, le code utilisé seul marche...
On pourrait croire que la macro doit se "reposer " avant de passer à ce code"

Code :

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

Set xlBook = xlApp.Workbooks.Open("C:\table.xls")

[SfJ5Rpw8]

..
Cependant, le code utilisé seul marche...
On pourrait croire que la macro doit se "reposer " avant de passer à ce code"
...

que ve tu dire par utilisé seul..? (sinon pour "reposer" la macro tu peu rajouter une instruction DoEvents..)

[ZeitnotZatopek]

Le code est appelé par une macro.
Cette même macro appelle d'abord le premier code déjà écrit qui marche, des requetes et enfin ce code.
Mais il bloque uniquement ici.

Si je fais marcher le code seul, hors de la macro,le programme marche et execute la macro Excel appelée.
Donc, en tournant seul ,Access accède au fichier Excel.

Merci

[Tofalu]

Et ça ne serait pas plutot la macro qui plante ? Parce que là, il n'est pas question d'accès au fichier étant donné qu'il se fait sur la ligne d'avant

[zeste]

Et ça ne serait pas plutot la macro qui plante ? Parce que là, il n'est pas question d'accès au fichier étant donné qu'il se fait sur la ligne d'avant

Bonjour a tous,
Cela fonctionne
J'ai 2 macros dans le classeur Table.xls
et les deux commandes sont lancées 1 ou 2 macro depuis access.

@°+zeste
CarpeDiem,CarpeNoctem
May The Force Be With Us

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
19
20
21
22
23
24
25
26
27
28
29
 
Option Compare Database
Function Excel_macro1()
On Error GoTo Erreur:
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\table.xls")
    xlApp.Application.Run "table.xls!macro1"
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
Erreur:
MsgBox (Err.Description)
End Function
 
Function Excel_macro2()
On Error GoTo Erreur:
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\table.xls")
    xlApp.Application.Run "table.xls!macro2"
    xlBook.Save
    xlBook.Close
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
Erreur:
MsgBox (Err.Description)
End Function

[ZeitnotZatopek]

Bonjour à tous,
J'ai testé denouveau mon programme mais en changeant une chose:rajouter "erreur" et retirant la fermeture du fichier

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Function Excel_macro2()
On Error GoTo Erreur:
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.Workbooks.Open("C:\table.xls")
 
 Erreur: 
 
    xlApp.Application.Run "'table.xls'!macro2"
    xlApp.Quit
    Set xlBook = Nothing
    Set xlApp = Nothing
 
End Function

Le programme ouvre en réalité la table, me demande si je veux activer les macros Excel, comme tout ouverture de fichier contenant des macros et exécute la macro.
Est ce logique ?

[zeste]

Bonjour,

As-tu le numéro de l'erreur ou sa description avec un

Code :

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

1
2
3
4
5
Dim Vble_txt_error as string
On error Goto Erreur.
Erreur :
Vble_txt_error = Err.description
Msgbox (Vble_txt_error)

Si non, tu peux utiliser ceci,

Pour supprimer les messages d'alerte

Code :

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

Application.DisplayAlerts = False

et pour les reactiver

Code :

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

Application.DisplayAlerts = True

@+ Zeste
CarpeDiem,CarpeNoctem,
J'y connais rien et je me soigne!
cherche un emploi Assistant chef projet (SI/Mkt/gestion) en IDF
est un tag bien utile pour les recherches de solutions dans les forums