OVH Cloud OVH Cloud

execution macro gestionnaire de rapports

4 réponses
Avatar
2j-vaugeois
Bonjour,

J'ai réalisé un rapport avec la macro complémentaire Gestionnaire de
rapports (Rapports.xla) et créer une macro pour pouvoir lancer son
impression à partir d'un bouton. Le code enregistré par la macro est le
suivant :

Sub Impression_Rapport()
'
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:= _
" IMPRIMER.RAPPORT(""Etat_RensPrel"",1)"
End Sub

Le débogueur me signale un bogue au niveau de la 3ème ligne. J'ai essayé
plusieurs modifications notamment

Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(""Etat_RensPrel"",1)")
ou
Application.ExecuteExcel4Macro
("RensPreliminaires!IMPRIMER.RAPPORT(""Etat_RensPrel"",1") RensPreliminaires
étant le nom du classeur actif

et cela n'a pas régler mon problème. Merci pour votre aide.

4 réponses

Avatar
papou
Bonjour
Pas possible de le tester mais peut-être un problème de double-quotes :
Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(Etat_RensPrel,1)")
ou sinon en ajoutant le nom de la macro complémentaire sous la forme :
Rapports.XLA!IMPRIMER.RAPPORT
?
Cordialement
Pascal

"2j-vaugeois" a écrit dans le message de
news:%
Bonjour,

J'ai réalisé un rapport avec la macro complémentaire Gestionnaire de
rapports (Rapports.xla) et créer une macro pour pouvoir lancer son
impression à partir d'un bouton. Le code enregistré par la macro est le
suivant :

Sub Impression_Rapport()
'
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:= _
" IMPRIMER.RAPPORT(""Etat_RensPrel"",1)"
End Sub

Le débogueur me signale un bogue au niveau de la 3ème ligne. J'ai essayé
plusieurs modifications notamment

Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(""Etat_RensPrel"",1)")
ou
Application.ExecuteExcel4Macro
("RensPreliminaires!IMPRIMER.RAPPORT(""Etat_RensPrel"",1")
RensPreliminaires

étant le nom du classeur actif

et cela n'a pas régler mon problème. Merci pour votre aide.




Avatar
MichDenis
Bonjour 2j-vaugeois,

Seulement une ligne de code comme celle-ci suffit pour lancer l'impression :

toto étant le nom du rapport à imprimer ! (tester avec excel 2003)

Application.ExecuteExcel4Macro String:="IMPRIMER.RAPPORT(""toto"",1)"


Salutations!


"2j-vaugeois" a écrit dans le message de news: %
Bonjour,

J'ai réalisé un rapport avec la macro complémentaire Gestionnaire de
rapports (Rapports.xla) et créer une macro pour pouvoir lancer son
impression à partir d'un bouton. Le code enregistré par la macro est le
suivant :

Sub Impression_Rapport()
'
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:= _
" IMPRIMER.RAPPORT(""Etat_RensPrel"",1)"
End Sub

Le débogueur me signale un bogue au niveau de la 3ème ligne. J'ai essayé
plusieurs modifications notamment

Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(""Etat_RensPrel"",1)")
ou
Application.ExecuteExcel4Macro
("RensPreliminaires!IMPRIMER.RAPPORT(""Etat_RensPrel"",1") RensPreliminaires
étant le nom du classeur actif

et cela n'a pas régler mon problème. Merci pour votre aide.
Avatar
jjv14
Bonjour Michel?,

"MichDenis" wrote:

Bonjour 2j-vaugeois,

Seulement une ligne de code comme celle-ci suffit pour lancer l'impression :

toto étant le nom du rapport à imprimer ! (tester avec excel 2003)

Application.ExecuteExcel4Macro String:="IMPRIMER.RAPPORT(""toto"",1)"


C'est la bonne solution ! Je l'avais déjà essayée mais sans modifier le nom
du rapport. Or pour avoir fait le test, en enlevant le seul underscore que
j'avais dans mon nom de rapport cela ne fonctionnait toujours pas. Alors j'ai
ramené mon nom de rapport à seulement 5 caractères soit Etat et cela a
fonctionné !! Merci encore ! Jean-Jacques

Salutations!



Avatar
jjv14
Bonjour,

Merci pour cette proposition de solution.

"papou" wrote:

Bonjour
Pas possible de le tester mais peut-être un problème de double-quotes :
Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(Etat_RensPrel,1)")


Non cela ne provient pas de là. Au contraire le doublement des quotes fait
partie des règles à respecter (cf aide sur ExecuteExcel4Macro).

ou sinon en ajoutant le nom de la macro complémentaire sous la forme :
Rapports.XLA!IMPRIMER.RAPPORT
?
J'avais testé celà parce que j'avais lu sur un forum que cela pouvait être

une piste. Apparemment cela n'est pas nécessaire puisque comme indiqué dans
ma réponse à Michel le problème provenait du libellé du nom que j'avais donné
au rapport. Encore merci. Bien cordialement. Jean-Jacques
Cordialement
Pascal

"2j-vaugeois" a écrit dans le message de
news:%
Bonjour,

J'ai réalisé un rapport avec la macro complémentaire Gestionnaire de
rapports (Rapports.xla) et créer une macro pour pouvoir lancer son
impression à partir d'un bouton. Le code enregistré par la macro est le
suivant :

Sub Impression_Rapport()
'
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:="Gestionnaire de rapports"
Application.ExecuteExcel4Macro String:= _
" IMPRIMER.RAPPORT(""Etat_RensPrel"",1)"
End Sub

Le débogueur me signale un bogue au niveau de la 3ème ligne. J'ai essayé
plusieurs modifications notamment

Application.ExecuteExcel4Macro ("IMPRIMER.RAPPORT(""Etat_RensPrel"",1)")
ou
Application.ExecuteExcel4Macro
("RensPreliminaires!IMPRIMER.RAPPORT(""Etat_RensPrel"",1")
RensPreliminaires

étant le nom du classeur actif

et cela n'a pas régler mon problème. Merci pour votre aide.