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
Denis Michon
Bonjour GB,
Essaie ceci :
'-------------------------- Sub OuvrirFichierWord()
Dim Wd As Object Dim Fichier As String
Fichier = "C:ExcelTest.doc" 'A déterminer
A = Dir(Fichier) If A <> "" Then Set Wd = CreateObject("Word.Application") Wd.documents.Open (Fichier) Wd.Visible = True Else MsgBox "Fichier introuvable" End If
Set Wd = Nothing End Sub '--------------------------
Salutations!
"gb" a écrit dans le message de news:3f7b1a64$0$2809$ Bonjour, Excuzez cette question élémentaire, mais comment ouvrir un fichier Word depuis VBA d'excel
Merci
Bonjour GB,
Essaie ceci :
'--------------------------
Sub OuvrirFichierWord()
Dim Wd As Object
Dim Fichier As String
Fichier = "C:ExcelTest.doc" 'A déterminer
A = Dir(Fichier)
If A <> "" Then
Set Wd = CreateObject("Word.Application")
Wd.documents.Open (Fichier)
Wd.Visible = True
Else
MsgBox "Fichier introuvable"
End If
Set Wd = Nothing
End Sub
'--------------------------
Salutations!
"gb" <g.bezamat@worldonline.fr> a écrit dans le message de news:3f7b1a64$0$2809$626a54ce@news.free.fr...
Bonjour,
Excuzez cette question élémentaire, mais comment ouvrir un fichier Word
depuis VBA d'excel
'-------------------------- Sub OuvrirFichierWord()
Dim Wd As Object Dim Fichier As String
Fichier = "C:ExcelTest.doc" 'A déterminer
A = Dir(Fichier) If A <> "" Then Set Wd = CreateObject("Word.Application") Wd.documents.Open (Fichier) Wd.Visible = True Else MsgBox "Fichier introuvable" End If
Set Wd = Nothing End Sub '--------------------------
Salutations!
"gb" a écrit dans le message de news:3f7b1a64$0$2809$ Bonjour, Excuzez cette question élémentaire, mais comment ouvrir un fichier Word depuis VBA d'excel
