J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
On Error GoTo 0
objWord.Visible = True
Set objDoc = objWord.documents.Open
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
Neo1976_
Avec cette commande ?
objWord.WindowState = wdWindowStateMaximize
Neo1976_
"Dardevil" a écrit dans le message de news:
Bonjour
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True Set objDoc = objWord.documents.Open
de meme comment faire pour un fichier html
Merci -- DARDEVIL
Avec cette commande ?
objWord.WindowState = wdWindowStateMaximize
Neo1976_
"Dardevil" <ggaudfroy@free.fr> a écrit dans le message de
news:eZwbs41sDHA.2416@TK2MSFTNGP10.phx.gbl...
Bonjour
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en
premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
On Error GoTo 0
objWord.Visible = True
Set objDoc = objWord.documents.Open
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True Set objDoc = objWord.documents.Open
de meme comment faire pour un fichier html
Merci -- DARDEVIL
Dardevil
je crois avoir trouvé...
Sub OuvrirDocWord() 'ouvrir ou activer Word, avec un nouveau document Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True objWord.Documents.Open filename:="GuillaumeProcéduresGestion_des_Caisses_ETC.doc", ReadOnly:=True End Sub
"Dardevil" a écrit dans le message de news:
Bonjour
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True Set objDoc = objWord.documents.Open
de meme comment faire pour un fichier html
Merci -- DARDEVIL
je crois avoir trouvé...
Sub OuvrirDocWord()
'ouvrir ou activer Word, avec un nouveau document
Dim objWord, objDoc
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
On Error GoTo 0
objWord.Visible = True
objWord.Documents.Open
filename:="\GuillaumeProcéduresGestion_des_Caisses_ETC.doc",
ReadOnly:=True
End Sub
"Dardevil" <ggaudfroy@free.fr> a écrit dans le message de
news:eZwbs41sDHA.2416@TK2MSFTNGP10.phx.gbl...
Bonjour
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en
premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
End If
On Error GoTo 0
objWord.Visible = True
Set objDoc = objWord.documents.Open
Sub OuvrirDocWord() 'ouvrir ou activer Word, avec un nouveau document Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True objWord.Documents.Open filename:="GuillaumeProcéduresGestion_des_Caisses_ETC.doc", ReadOnly:=True End Sub
"Dardevil" a écrit dans le message de news:
Bonjour
J'ai fouiller partout ou je pouvais.... mais j'ai pas la réponse..
je voudrait ouvrir un fichier word depuis excel, et que word soit en premier
plan... mais ca marche po....
voici le code que j'ai trouver sur le forum
Dim objWord, objDoc
On Error Resume Next Set objWord = GetObject(, "Word.Application") If objWord Is Nothing Then Set objWord = CreateObject("Word.Application") End If On Error GoTo 0 objWord.Visible = True Set objDoc = objWord.documents.Open
