J'ai créé une macro VBA en Microsoft Word pour mettre en page un
document. J'ai également ajouté dans la barre des icônes de Word un nouveau
bouton associé à cet macro.
Cependant, lorsque Word est ouvert mais sans doucment et que
l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il
possible d'insérer en début de procédure dans la macro une (ou plusieurs)
ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas
démarrer la macro.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Oliv'
Christian que je salut a écrit dans 434e5569$0$2562$
Bonjour à tout le monde,
J'ai créé une macro VBA en Microsoft Word pour mettre en page un document. J'ai également ajouté dans la barre des icônes de Word un nouveau bouton associé à cet macro.
Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas démarrer la macro.
Merci déjà pour vos réponses d'aide...
Christian
Tu peux faire cela par exemple
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 13/10/2005 par Olivier CATTEAU ' On Error GoTo nodocument Set toto = Application.ActiveDocument On Error GoTo 0 'retourne à la gestion d erreur normale
'ma macro
nodocument: End
End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Christian <christb1226@hotmail.com> que je salut a écrit dans
434e5569$0$2562$ba620e4c@news.skynet.be
Bonjour à tout le monde,
J'ai créé une macro VBA en Microsoft Word pour mettre en page un
document. J'ai également ajouté dans la barre des icônes de Word un
nouveau bouton associé à cet macro.
Cependant, lorsque Word est ouvert mais sans doucment et que
l'utilisateur clique sur le bouton, il m'affiche un message d'erreur.
Est-il possible d'insérer en début de procédure dans la macro une (ou
plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert.
Sinon, ne pas démarrer la macro.
Merci déjà pour vos réponses d'aide...
Christian
Tu peux faire cela par exemple
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 13/10/2005 par Olivier CATTEAU
'
On Error GoTo nodocument
Set toto = Application.ActiveDocument
On Error GoTo 0 'retourne à la gestion d erreur normale
'ma macro
nodocument:
End
End Sub
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Christian que je salut a écrit dans 434e5569$0$2562$
Bonjour à tout le monde,
J'ai créé une macro VBA en Microsoft Word pour mettre en page un document. J'ai également ajouté dans la barre des icônes de Word un nouveau bouton associé à cet macro.
Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas démarrer la macro.
Merci déjà pour vos réponses d'aide...
Christian
Tu peux faire cela par exemple
Sub Macro1() ' ' Macro1 Macro ' Macro enregistrée le 13/10/2005 par Olivier CATTEAU ' On Error GoTo nodocument Set toto = Application.ActiveDocument On Error GoTo 0 'retourne à la gestion d erreur normale
'ma macro
nodocument: End
End Sub
-- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' Pour me joindre : http://cerbermail.com/?V8r2o1YHl4 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Anacoluthe
Bonjour !
'Christian' nous a écrit ...
Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe « Il est très difficile d'imaginer quelque chose de simple. » - Pierre MAC ORLAN
Bonjour !
'Christian' nous a écrit ...
Cependant, lorsque Word est ouvert mais sans doucment et que
l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il
possible d'insérer en début de procédure dans la macro une (ou plusieurs)
ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas
démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe
« Il est très difficile d'imaginer quelque chose de simple. »
- Pierre MAC ORLAN
Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe « Il est très difficile d'imaginer quelque chose de simple. » - Pierre MAC ORLAN
Christian
Merci à vous tous !!
"Anacoluthe" a écrit dans le message de news:%2362mQl$
Bonjour !
'Christian' nous a écrit ... > Cependant, lorsque Word est ouvert mais sans doucment et que > l'utilisateur clique sur le bouton, il m'affiche un message d'erreur.
Est-il
> possible d'insérer en début de procédure dans la macro une (ou
plusieurs)
> ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas > démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe « Il est très difficile d'imaginer quelque chose de simple. » - Pierre MAC ORLAN
Merci à vous tous !!
"Anacoluthe" <nopub_anacoluthe@Ouanadoo.fr> a écrit dans le message de
news:%2362mQl$zFHA.3180@TK2MSFTNGP14.phx.gbl...
Bonjour !
'Christian' nous a écrit ...
> Cependant, lorsque Word est ouvert mais sans doucment et que
> l'utilisateur clique sur le bouton, il m'affiche un message d'erreur.
Est-il
> possible d'insérer en début de procédure dans la macro une (ou
plusieurs)
> ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas
> démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe
« Il est très difficile d'imaginer quelque chose de simple. »
- Pierre MAC ORLAN
"Anacoluthe" a écrit dans le message de news:%2362mQl$
Bonjour !
'Christian' nous a écrit ... > Cependant, lorsque Word est ouvert mais sans doucment et que > l'utilisateur clique sur le bouton, il m'affiche un message d'erreur.
Est-il
> possible d'insérer en début de procédure dans la macro une (ou
plusieurs)
> ligne(s) pour tester s'ily a bien un document d'ouvert. Sinon, ne pas > démarrer la macro.
If Documents.Count = 0 Then Exit Sub
et voilà ! :-)
Anacoluthe « Il est très difficile d'imaginer quelque chose de simple. » - Pierre MAC ORLAN
parci
> Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert.
Dim wd As Document
On Error Resume Next Set wd = ActiveDocument On Error GoTo 0
If wd Is Nothing Then Exit Sub End I
-- Message monitoré par axinews : http://www.axinews.com
> Cependant, lorsque Word est ouvert mais sans doucment et que
l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il
possible d'insérer en début de procédure dans la macro une (ou plusieurs)
ligne(s) pour tester s'ily a bien un document d'ouvert.
Dim wd As Document
On Error Resume Next
Set wd = ActiveDocument
On Error GoTo 0
If wd Is Nothing Then
Exit Sub
End I
--
Message monitoré par axinews : http://www.axinews.com
> Cependant, lorsque Word est ouvert mais sans doucment et que l'utilisateur clique sur le bouton, il m'affiche un message d'erreur. Est-il possible d'insérer en début de procédure dans la macro une (ou plusieurs) ligne(s) pour tester s'ily a bien un document d'ouvert.
Dim wd As Document
On Error Resume Next Set wd = ActiveDocument On Error GoTo 0
If wd Is Nothing Then Exit Sub End I
-- Message monitoré par axinews : http://www.axinews.com
