bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée? merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée? merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée? merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
>Jean-marc wrote:
>Jean-marc wrote:
>Jean-marc wrote:
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
Bonjour Pascal,
Pascal a écrit :bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
Juste une petite remarque : si Word est présent, et qu'une instance est
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en créera
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voir les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
--
Cordialement,
Jacques.
Bonjour Pascal,
Pascal a écrit :
bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
Juste une petite remarque : si Word est présent, et qu'une instance est
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en créera
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voir les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
--
Cordialement,
Jacques.
Bonjour Pascal,
Pascal a écrit :bonjour,
Quel est d'après vous le meilleur moyen de tester l'existence de WORD
et/OU EXCEL sur le pc
je fais ceci pour word, est-ce correct? quelque soit la version
installée?
merci d'avance
Pascal
On Error Resume Next
' récupération de l'erreur
Set wd = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'Word existe
Set wd = CreateObject("Word.Application")
End If
Err.Clear
Juste une petite remarque : si Word est présent, et qu'une instance est
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en créera
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voir les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
--
Cordialement,
Jacques.
hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
Pascal wrote:hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
Non, Excel fonctionne identiquement.
Tu as bien écrit "Excel.Application" ?
En tout cas la fonction suivante (la même que pour
Word) fonctionne parfaitement (testé bien sur):
Private Function ExcelExists() As Boolean
Dim Wd As Object
On Error GoTo ExcelExists_ERR
Set Wd = CreateObject("Excel.Application")
Wd.Quit
Set Wd = Nothing
ExcelExists = True
ExcelExists_END:
Exit Function
ExcelExists_ERR:
Resume ExcelExists_END
End Function
Peut etre as tu fait une faute de frappe ?
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Pascal wrote:
hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
Non, Excel fonctionne identiquement.
Tu as bien écrit "Excel.Application" ?
En tout cas la fonction suivante (la même que pour
Word) fonctionne parfaitement (testé bien sur):
Private Function ExcelExists() As Boolean
Dim Wd As Object
On Error GoTo ExcelExists_ERR
Set Wd = CreateObject("Excel.Application")
Wd.Quit
Set Wd = Nothing
ExcelExists = True
ExcelExists_END:
Exit Function
ExcelExists_ERR:
Resume ExcelExists_END
End Function
Peut etre as tu fait une faute de frappe ?
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ; _no_spam_jean_marc_n2@yahoo.fr
Pascal wrote:hello jacques merci pour la réponse
mais pourquoi cette procédure ne fonctionne pas pour EXCELL
malgré le remplacement par GetObject(, "Excel.Application")
Excell travaille differement?
Non, Excel fonctionne identiquement.
Tu as bien écrit "Excel.Application" ?
En tout cas la fonction suivante (la même que pour
Word) fonctionne parfaitement (testé bien sur):
Private Function ExcelExists() As Boolean
Dim Wd As Object
On Error GoTo ExcelExists_ERR
Set Wd = CreateObject("Excel.Application")
Wd.Quit
Set Wd = Nothing
ExcelExists = True
ExcelExists_END:
Exit Function
ExcelExists_ERR:
Resume ExcelExists_END
End Function
Peut etre as tu fait une faute de frappe ?
--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;
Juste une petite remarque : si Word est présent, et qu'une instance e st
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en cré era
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voi r les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
Juste une petite remarque : si Word est présent, et qu'une instance e st
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en cré era
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voi r les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
Juste une petite remarque : si Word est présent, et qu'une instance e st
déjà active :
Set wd = GetObject(, "Word.Application")
te renverra un pointeur sur cette instance. et le CreateObject en cré era
une nouvelle. Donc tout dépend de ce que tu désires faire. Pour voi r les
différente possibilités, tu peux faire :
Dim wd As Object
On Error Resume Next
Set wd = GetObject(, "Word.Application")
If wd Is Nothing Then
' Word existe peut être, mais pas d'instance lancée
Set wd = CreateObject("Word.Application")
If wd Is Nothing Then
'Word n'est pas présent
MsgBox "Word non trouvé"
Else
' Word est présent et un nouvelle instance est crée
MsgBox "Lancement de Word"
wd.Visible = True
End If
Else
' Word existe et une instance est lancée
MsgBox "Word déjà lancé"
End If
Err.Clear
NB : tu peux combiner le code Err (429), et le wd Is Nothing
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble
que je n'obtiens quelque chose dans l'objet qu'une fois que la
session Word est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il
prévoir un temps maximum de chargement ? Ou y a-t-il un moyen plus
rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble
que je n'obtiens quelque chose dans l'objet qu'une fois que la
session Word est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il
prévoir un temps maximum de chargement ? Ou y a-t-il un moyen plus
rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble
que je n'obtiens quelque chose dans l'objet qu'une fois que la
session Word est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il
prévoir un temps maximum de chargement ? Ou y a-t-il un moyen plus
rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble que
je n'obtiens quelque chose dans l'objet qu'une fois que la session Word
est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il prévoir
un temps maximum de chargement ? Ou y a-t-il un moyen plus rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble que
je n'obtiens quelque chose dans l'objet qu'une fois que la session Word
est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il prévoir
un temps maximum de chargement ? Ou y a-t-il un moyen plus rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?
Bonjour,
Sur le principe très bien, mais une chose m'intrigue : il me semble que
je n'obtiens quelque chose dans l'objet qu'une fois que la session Word
est ouverte, ce qui n'est pas instantané.
Quand je tape
Set wd = CreateObject("Word.Application")
While wd Is Nothing
Wend
'Word est chargé
est-ce une ânerie ?
En faisant ça je pars du principe que Word est installé, faut-il prévoir
un temps maximum de chargement ? Ou y a-t-il un moyen plus rapide ?
Ou je peux partir du principe que CreateObject va tout de suite me
renvoyer une erreur si Word n'est pas installé ?