Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer
comment tester (et m'assurer) que le document en question n'est pas déjà
ouvert ?
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
Youky
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
suivant = "SimulationEconomique" 'ici indique le nom du fichier
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True
On Error GoTo 0
DocWrd = ThisWorkbook.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 1
Set AppWrd = Nothing
End If
End Sub
Les fichiers doivent etre dans les meme repertoire
sinon remplacer thisworkbook.path par le bon chemin
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23BVazwQoGHA.4728@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous
m'indiquer
comment tester (et m'assurer) que le document en question n'est pas déjà
ouvert ?
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Newbie
Merci Youki ! C'est super !
"Youky" a écrit dans le message de news:%
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Merci Youki !
C'est super !
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de
news:%23KZu1fRoGHA.1656@TK2MSFTNGP03.phx.gbl...
suivant = "SimulationEconomique" 'ici indique le nom du fichier
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True
On Error GoTo 0
DocWrd = ThisWorkbook.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 1
Set AppWrd = Nothing
End If
End Sub
Les fichiers doivent etre dans les meme repertoire
sinon remplacer thisworkbook.path par le bon chemin
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23BVazwQoGHA.4728@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous
m'indiquer
comment tester (et m'assurer) que le document en question n'est pas déjà
ouvert ?
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Youky
Youky avec un "y" à la fin ....j'y tiens Youky "Newbie" a écrit dans le message de news: %
Merci Youki ! C'est super !
"Youky" a écrit dans le message de news:%
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Youky avec un "y" à la fin ....j'y tiens
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23qEhe7SoGHA.4616@TK2MSFTNGP05.phx.gbl...
Merci Youki !
C'est super !
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de
news:%23KZu1fRoGHA.1656@TK2MSFTNGP03.phx.gbl...
suivant = "SimulationEconomique" 'ici indique le nom du fichier
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True
On Error GoTo 0
DocWrd = ThisWorkbook.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 1
Set AppWrd = Nothing
End If
End Sub
Les fichiers doivent etre dans les meme repertoire
sinon remplacer thisworkbook.path par le bon chemin
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23BVazwQoGHA.4728@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous
m'indiquer
comment tester (et m'assurer) que le document en question n'est pas
déjà
ouvert ?
Youky avec un "y" à la fin ....j'y tiens Youky "Newbie" a écrit dans le message de news: %
Merci Youki ! C'est super !
"Youky" a écrit dans le message de news:%
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Newbie
Ooups..! Pardon Youky! Et merci encore !
Newbie
"Youky" a écrit dans le message de news:
Youky avec un "y" à la fin ....j'y tiens Youky "Newbie" a écrit dans le message de news: %
Merci Youki ! C'est super !
"Youky" a écrit dans le message de news:%
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?
Merci d'avance pour votre aide.
Newbie.
Ooups..!
Pardon Youky! Et merci encore !
Newbie
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de
news:u8GNCUToGHA.964@TK2MSFTNGP05.phx.gbl...
Youky avec un "y" à la fin ....j'y tiens
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23qEhe7SoGHA.4616@TK2MSFTNGP05.phx.gbl...
Merci Youki !
C'est super !
"Youky" <bruno.jeune@wanadoo.fr> a écrit dans le message de
news:%23KZu1fRoGHA.1656@TK2MSFTNGP03.phx.gbl...
suivant = "SimulationEconomique" 'ici indique le nom du fichier
Dim AppWrd As Object
Dim DocWrd As String
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
If Err <> 0 Then _
Set AppWrd = CreateObject("Word.Application")
AppWrd.Visible = True
On Error GoTo 0
DocWrd = ThisWorkbook.Path & "" & suivant & ".doc"
On Error Resume Next
AppWrd.Windows(suivant & ".doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate suivant
AppWrd.Windows(suivant & ".doc").WindowState = 1
Set AppWrd = Nothing
End If
End Sub
Les fichiers doivent etre dans les meme repertoire
sinon remplacer thisworkbook.path par le bon chemin
Youky
"Newbie" <newbie@beginers.com> a écrit dans le message de news:
%23BVazwQoGHA.4728@TK2MSFTNGP03.phx.gbl...
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous
m'indiquer
comment tester (et m'assurer) que le document en question n'est pas
déjà
ouvert ?
Youky avec un "y" à la fin ....j'y tiens Youky "Newbie" a écrit dans le message de news: %
Merci Youki ! C'est super !
"Youky" a écrit dans le message de news:%
suivant = "SimulationEconomique" 'ici indique le nom du fichier Dim AppWrd As Object Dim DocWrd As String On Error Resume Next Set AppWrd = GetObject(, "Word.Application") If Err <> 0 Then _ Set AppWrd = CreateObject("Word.Application") AppWrd.Visible = True On Error GoTo 0 DocWrd = ThisWorkbook.Path & "" & suivant & ".doc" On Error Resume Next AppWrd.Windows(suivant & ".doc").Activate If Err <> 0 Then AppWrd.Documents.Open (DocWrd) On Error GoTo 0 AppActivate suivant AppWrd.Windows(suivant & ".doc").WindowState = 1 Set AppWrd = Nothing End If End Sub
Les fichiers doivent etre dans les meme repertoire sinon remplacer thisworkbook.path par le bon chemin Youky
"Newbie" a écrit dans le message de news: %
Bonjour,
Je souhaite ouvrir un document Word à partir de VBA. Pouvez-vous m'indiquer comment tester (et m'assurer) que le document en question n'est pas déjà ouvert ?