Commande vba dans une instance d'Excel

michdenis

27/11/2004 à 19:06

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la bibliothèque VBA.

Salutations!

"Alain CROS" a écrit dans le message de news: ee%
Bonjour.

Comment utiliser une commande vba dans une autre instance d'XL.
Dans le code ci-dessous, j'aimerais remplacer la commande macro XL4 par son équivalent vba (en commentaire) qui ne
fonctionne pas.

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
.ExecuteExcel4Macro ("ALERT(""message"",3)")
'.MsgBox ("message", vbCritical)
End With
Set XL = Nothing
End Sub

Merci.

Alain CROS

Denis Michon

27/11/2004 à 19:13

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la bibliothèque VBA.

Salutations!

P.S. Désolé, si le message arrive en double ! Difficulté temporaire du ou des serveurs !

"Alain CROS" a écrit dans le message de news: ee%
Bonjour.

Comment utiliser une commande vba dans une autre instance d'XL.
Dans le code ci-dessous, j'aimerais remplacer la commande macro XL4 par son équivalent vba (en commentaire) qui ne
fonctionne pas.

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
.ExecuteExcel4Macro ("ALERT(""message"",3)")
'.MsgBox ("message", vbCritical)
End With
Set XL = Nothing
End Sub

Merci.

Alain CROS

Michel Pierron

27/11/2004 à 21:15

Bonsoir Alain;
Si c'est avec xl2002 et plus:
Private Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
'.ExecuteExcel4Macro ("ALERT(""message"",3)")
' Excel 2002 et plus
MessageBox .hWnd, "message", "Microsoft Excel", &H30&
End With
Set XL = Nothing
End Sub

Sinon, je n'ai pas de solution simple.
MP

"Alain CROS" a écrit dans le message de
news:ee%

Bonjour.

Comment utiliser une commande vba dans une autre instance d'XL.
Dans le code ci-dessous, j'aimerais remplacer la commande macro XL4 par
son équivalent vba (en commentaire) qui ne fonctionne pas.

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
.ExecuteExcel4Macro ("ALERT(""message"",3)")
'.MsgBox ("message", vbCritical)
End With
Set XL = Nothing
End Sub

Merci.

Alain CROS

Michel Pierron

27/11/2004 à 21:34

Re Alain;
Autant pour moi:
Private Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& Lib "user32" ()

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
'.ExecuteExcel4Macro ("ALERT(""message"",3)")
' xl toutes versions:
MessageBox GetForegroundWindow, "message", "Microsoft Excel", &H30&
End With
Set XL = Nothing
End Sub

MP

"Alain CROS" a écrit dans le message de
news:ee%

Bonjour.

Comment utiliser une commande vba dans une autre instance d'XL.
Dans le code ci-dessous, j'aimerais remplacer la commande macro XL4 par
son équivalent vba (en commentaire) qui ne fonctionne pas.

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
.ExecuteExcel4Macro ("ALERT(""message"",3)")
'.MsgBox ("message", vbCritical)
End With
Set XL = Nothing
End Sub

Merci.

Alain CROS

Alain CROS

27/11/2004 à 21:49

Bonjour

Merci pour ta réponse mais ce n'est pas ce que je recherche.
Le Msgbox étant un exemple pour illustrer.
Ce que je cherche à faire, c'est déclancher des commandes vba comme Msgbox mais aussi ChDir, etc ... depuis une instance d'XL dans
une autre instance d'XL ou bien depuis un vbs.

Alain CROS

"Michel Pierron" a écrit dans le message de news: eU$

Re Alain;
Autant pour moi:
Private Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Private Declare Function GetForegroundWindow& Lib "user32" ()

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
'.ExecuteExcel4Macro ("ALERT(""message"",3)")
' xl toutes versions:
MessageBox GetForegroundWindow, "message", "Microsoft Excel", &H30&
End With
Set XL = Nothing
End Sub

MP

"Alain CROS" a écrit dans le message de
news:ee%
Bonjour.

Comment utiliser une commande vba dans une autre instance d'XL.
Dans le code ci-dessous, j'aimerais remplacer la commande macro XL4 par
son équivalent vba (en commentaire) qui ne fonctionne pas.

Sub Instance()
Dim XL As New Application
With XL
.Workbooks.Add
.Visible = True
.ExecuteExcel4Macro ("ALERT(""message"",3)")
'.MsgBox ("message", vbCritical)
End With
Set XL = Nothing
End Sub

Merci.

Alain CROS

Alain CROS

27/11/2004 à 22:03

Re

J'ai trouvé ça récemment, pas eu le temps de trop regarder mais ça semble intéressant.
http://binaryworld.net/main/api.aspx

Alain CROS

"Michel Pierron" a écrit dans le message de news: eU$

Alain CROS

27/11/2004 à 22:29

Bonjour

Désolé pour le message en perso.
Je reposte ma réponse.

Alain CROS

-----------------------------

Merci pour ta réponse mais ça ne fonctionne pas comme prévu.
La commande XL4 m'affiche directement le Msgbox.
Interaction fait clignoter la première instance d'XL qui affiche le Msgbox
lorsqu'elle a récupérée le focus.

-----------------------------

"michdenis" a écrit dans le message de news: #

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la bibliothèque VBA.

Salutations!

michdenis

27/11/2004 à 22:48

Bonjour Alain,

Beaucoup de messages ne s'affichent pas dans Outlook Express cet PM pour une raison qui m'est inconnue! D'où la
difficulté de suivre les échanges !

Salutations!

"Alain CROS" a écrit dans le message de news: %
Bonjour

Désolé pour le message en perso.
Je reposte ma réponse.

Alain CROS

-----------------------------

Merci pour ta réponse mais ça ne fonctionne pas comme prévu.
La commande XL4 m'affiche directement le Msgbox.
Interaction fait clignoter la première instance d'XL qui affiche le Msgbox
lorsqu'elle a récupérée le focus.

-----------------------------

"michdenis" a écrit dans le message de news: #

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la bibliothèque VBA.

Salutations!

twinley

27/11/2004 à 23:10

Salut michdenis

J'ai le même soucis depuis que j'ai 3 NG sur OE.
Un seul NG et il n'y avait pas de Pb.
Depuis que je suis abonné à 3 NG je dois faire le ménage tous les 3 jours :
compacter, désabonner, réabonner et j'ai 2 jours d'histo alors qu'il dit
charger 15 000 messages ???
J'envisage de prendre un autre lecteur de news. Il faut que je recherche
parmi les avis du MPFE.

Ou alors je supprime l'abonnement à 2 NG...Je suis sous Xp pro et 512 meg de
ram

--
à+twinley
"michdenis" a écrit dans le message de
news:%23LYf%

Bonjour Alain,

Beaucoup de messages ne s'affichent pas dans Outlook Express cet PM pour
une raison qui m'est inconnue! D'où la

difficulté de suivre les échanges !

Salutations!

"Alain CROS" a écrit dans le message de news:
%

Bonjour

Désolé pour le message en perso.
Je reposte ma réponse.

Alain CROS

-----------------------------

Merci pour ta réponse mais ça ne fonctionne pas comme prévu.
La commande XL4 m'affiche directement le Msgbox.
Interaction fait clignoter la première instance d'XL qui affiche le Msgbox
lorsqu'elle a récupérée le focus.

-----------------------------

"michdenis" a écrit dans le message de news:
#

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la
bibliothèque VBA.

Salutations!

isabelle

27/11/2004 à 23:16

et vive Netscape 4.7 qui n'a aucun problème de ce genre.

isabelle

Salut michdenis

J'ai le même soucis depuis que j'ai 3 NG sur OE.
Un seul NG et il n'y avait pas de Pb.
Depuis que je suis abonné à 3 NG je dois faire le ménage tous les 3 jours :
compacter, désabonner, réabonner et j'ai 2 jours d'histo alors qu'il dit
charger 15 000 messages ???
J'envisage de prendre un autre lecteur de news. Il faut que je recherche
parmi les avis du MPFE.

Ou alors je supprime l'abonnement à 2 NG...Je suis sous Xp pro et 512 meg de
ram

--
à+twinley
"michdenis" a écrit dans le message de
news:%23LYf%
Bonjour Alain,

Beaucoup de messages ne s'affichent pas dans Outlook Express cet PM pour
une raison qui m'est inconnue! D'où la

difficulté de suivre les échanges !

Salutations!

"Alain CROS" a écrit dans le message de news:
%

Bonjour

Désolé pour le message en perso.
Je reposte ma réponse.

Alain CROS

-----------------------------

Merci pour ta réponse mais ça ne fonctionne pas comme prévu.
La commande XL4 m'affiche directement le Msgbox.
Interaction fait clignoter la première instance d'XL qui affiche le Msgbox
lorsqu'elle a récupérée le focus.

-----------------------------

"michdenis" a écrit dans le message de news:
#

Bonjour Alain,

Essaie cette ligne de commande :

Interaction.MsgBox "message", vbCritical

Tu ne mets pas de point devant car Interaction relève directement de la
bibliothèque VBA.

Salutations!

Commande vba dans une instance d'Excel

10 réponses

Veuillez sélectionner un problème