Bonjour,
J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
tester si ce fichier est déja ouvert
pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
l'activer si il est en barre des taches.
A savoir que je dois naviguer entre plusieurs fichiers Word
j'ai entendu parler du handle mais je sais pas interprêter.
voici un bout de code
Dim AppWrd As Word.Application
Dim DocWrd As Word.Document
Set AppWrd = New Word.Application
Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
Merci et bonne soirée à tous
Bonjour,
J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
tester si ce fichier est déja ouvert
pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
l'activer si il est en barre des taches.
A savoir que je dois naviguer entre plusieurs fichiers Word
j'ai entendu parler du handle mais je sais pas interprêter.
voici un bout de code
Dim AppWrd As Word.Application
Dim DocWrd As Word.Document
Set AppWrd = New Word.Application
Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
Merci et bonne soirée à tous
Bonjour,
J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
tester si ce fichier est déja ouvert
pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
l'activer si il est en barre des taches.
A savoir que je dois naviguer entre plusieurs fichiers Word
j'ai entendu parler du handle mais je sais pas interprêter.
voici un bout de code
Dim AppWrd As Word.Application
Dim DocWrd As Word.Document
Set AppWrd = New Word.Application
Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
Merci et bonne soirée à tous
Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Merci Papou,
Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
J'ai testé ton code et je vais en erreur en derniere ligne,
le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
J'ai Office2000 et VB5
Encore merci
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
> voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Merci Papou,
Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
J'ai testé ton code et je vais en erreur en derniere ligne,
le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
J'ai Office2000 et VB5
Encore merci
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#gFvaf1FFHA.3312@TK2MSFTNGP15.phx.gbl...
Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
> voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Merci Papou,
Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
J'ai testé ton code et je vais en erreur en derniere ligne,
le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
J'ai Office2000 et VB5
Encore merci
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
#Bonjour
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 = "C:TestsDoc1.doc"
On Error Resume Next
AppWrd.Windows("Doc1.doc").Activate
If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Bonjour,
> J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
> voudrais
> tester si ce fichier est déja ouvert
> pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
> l'activer si il est en barre des taches.
> A savoir que je dois naviguer entre plusieurs fichiers Word
> j'ai entendu parler du handle mais je sais pas interprêter.
> voici un bout de code
>
> Dim AppWrd As Word.Application
> Dim DocWrd As Word.Document
> Set AppWrd = New Word.Application
> Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
> Merci et bonne soirée à tous
>
>
Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
%23QwRKR4FFHA.1396@tk2msftngp13.phx.gbl...
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #gFvaf1FFHA.3312@TK2MSFTNGP15.phx.gbl...
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
>> uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
news:>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$FFHA.3608@TK2MSFTNGP14.phx.gbl...
Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
%23QwRKR4FFHA.1396@tk2msftngp13.phx.gbl...
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #gFvaf1FFHA.3312@TK2MSFTNGP15.phx.gbl...
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
news:
>> uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
news:>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
news:>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$FFHA.3608@TK2MSFTNGP14.phx.gbl...
Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
%23QwRKR4FFHA.1396@tk2msftngp13.phx.gbl...
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #gFvaf1FFHA.3312@TK2MSFTNGP15.phx.gbl...
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
news:
>> uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Merci Papou,
Mes tests n'ont pas été rapide et j'ai toujours la même erreur en derniere
ligne
AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
essayé
Si je trouve le bon code pour cette ligne je serai presque au bout.
Bruno
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
OWHNbP$Bonjour
Modifie comme ceci :
Private Sub Command1_Click()
Dim AppWrd As Object
Dim DocWrd As String
Dim WrdOuvert As Boolean
On Error Resume Next
Set AppWrd = GetObject(, "Word.Application")
'Word non ouvert
If Err <> 0 Then
Set AppWrd = CreateObject("Word.Application")
On Error GoTo 0
WrdOuvert = False
AppWrd.Visible = True
End If
DocWrd = "C:TestsDoc1.doc"
If Not WrdOuvert Then
'Word non ouvert > ouverture fichier
AppWrd.Documents.Open (DocWrd)
Else
On Error Resume Next
'Word ouvert > tenter d'activer le doc
> End If
If Err <> 0 Then
'erreur d'activation > on ouvre le doc
AppWrd.Documents.Open (DocWrd)
On Error GoTo 0
End If
AppActivate AppWrd
End Sub
Cordialement
Pascal
"Youky" a écrit dans le message de news:
%
> Merci Papou,
> Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
> J'ai testé ton code et je vais en erreur en derniere ligne,
> le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
> J'ai Office2000 et VB5
> Encore merci
> Bruno
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> #
>> Bonjour
>> 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 = "C:TestsDoc1.doc"
>> On Error Resume Next
>> AppWrd.Windows("Doc1.doc").Activate
>> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> AppActivate AppWrd
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
news:>>
>> > Bonjour,
>> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> > voudrais
>> > tester si ce fichier est déja ouvert
>> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> > pouvoir
>> > l'activer si il est en barre des taches.
>> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> > j'ai entendu parler du handle mais je sais pas interprêter.
>> > voici un bout de code
>> >
>> > Dim AppWrd As Word.Application
>> > Dim DocWrd As Word.Document
>> > Set AppWrd = New Word.Application
>> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> > Merci et bonne soirée à tous
>> >
>> >
>>
>>
>
>
Re
En complément, ajoute ces deux lignes en tête de ton code :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Puis modifie (après le dernier End If dans ton code) comme ceci :
Dim WinWnd&
WinWnd = FindWindow(vbNullString, AppWrd.Caption)
SetForegroundWindow (WinWnd)
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Merci Papou,
> Mes tests n'ont pas été rapide et j'ai toujours la même erreur en
> ligne
> AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
> essayé
> Si je trouve le bon code pour cette ligne je serai presque au bout.
> Bruno
>
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> OWHNbP$
>> Bonjour
>> Modifie comme ceci :
>> Private Sub Command1_Click()
>> Dim AppWrd As Object
>> Dim DocWrd As String
>> Dim WrdOuvert As Boolean
>> On Error Resume Next
>> Set AppWrd = GetObject(, "Word.Application")
>> 'Word non ouvert
>> If Err <> 0 Then
>> Set AppWrd = CreateObject("Word.Application")
>> On Error GoTo 0
>> WrdOuvert = False
>> AppWrd.Visible = True
>> End If
>> DocWrd = "C:TestsDoc1.doc"
>> If Not WrdOuvert Then
>> 'Word non ouvert > ouverture fichier
>> AppWrd.Documents.Open (DocWrd)
>> Else
>> On Error Resume Next
>> 'Word ouvert > tenter d'activer le doc
>> > End If
>> If Err <> 0 Then
>> 'erreur d'activation > on ouvre le doc
>> AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> End If
>> AppActivate AppWrd
>> End Sub
>>
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
>> %
>> > Merci Papou,
>> > Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
>> > J'ai testé ton code et je vais en erreur en derniere ligne,
>> > le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
>> > J'ai Office2000 et VB5
>> > Encore merci
>> > Bruno
>> > "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
>> > #
>> >> Bonjour
>> >> 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 = "C:TestsDoc1.doc"
>> >> On Error Resume Next
>> >> AppWrd.Windows("Doc1.doc").Activate
>> >> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> >> On Error GoTo 0
>> >> AppActivate AppWrd
>> >>
>> >> Cordialement
>> >> Pascal
>> >>
>> >> "Youky" a écrit dans le message de
> news:
>> >>
>> >> > Bonjour,
>> >> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> >> > voudrais
>> >> > tester si ce fichier est déja ouvert
>> >> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> >> > pouvoir
>> >> > l'activer si il est en barre des taches.
>> >> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> >> > j'ai entendu parler du handle mais je sais pas interprêter.
>> >> > voici un bout de code
>> >> >
>> >> > Dim AppWrd As Word.Application
>> >> > Dim DocWrd As Word.Document
>> >> > Set AppWrd = New Word.Application
>> >> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> >> > Merci et bonne soirée à tous
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
Re
En complément, ajoute ces deux lignes en tête de ton code :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Puis modifie (après le dernier End If dans ton code) comme ceci :
Dim WinWnd&
WinWnd = FindWindow(vbNullString, AppWrd.Caption)
SetForegroundWindow (WinWnd)
AppActivate AppWrd
Cordialement
Pascal
"Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de news:
O2HkCMQGFHA.1476@TK2MSFTNGP09.phx.gbl...
> Merci Papou,
> Mes tests n'ont pas été rapide et j'ai toujours la même erreur en
> ligne
> AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
> essayé
> Si je trouve le bon code pour cette ligne je serai presque au bout.
> Bruno
>
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> OWHNbP$FFHA.3608@TK2MSFTNGP14.phx.gbl...
>> Bonjour
>> Modifie comme ceci :
>> Private Sub Command1_Click()
>> Dim AppWrd As Object
>> Dim DocWrd As String
>> Dim WrdOuvert As Boolean
>> On Error Resume Next
>> Set AppWrd = GetObject(, "Word.Application")
>> 'Word non ouvert
>> If Err <> 0 Then
>> Set AppWrd = CreateObject("Word.Application")
>> On Error GoTo 0
>> WrdOuvert = False
>> AppWrd.Visible = True
>> End If
>> DocWrd = "C:TestsDoc1.doc"
>> If Not WrdOuvert Then
>> 'Word non ouvert > ouverture fichier
>> AppWrd.Documents.Open (DocWrd)
>> Else
>> On Error Resume Next
>> 'Word ouvert > tenter d'activer le doc
>> > End If
>> If Err <> 0 Then
>> 'erreur d'activation > on ouvre le doc
>> AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> End If
>> AppActivate AppWrd
>> End Sub
>>
>>
>> Cordialement
>> Pascal
>>
>> "Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
>> %23QwRKR4FFHA.1396@tk2msftngp13.phx.gbl...
>> > Merci Papou,
>> > Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
>> > J'ai testé ton code et je vais en erreur en derniere ligne,
>> > le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
>> > J'ai Office2000 et VB5
>> > Encore merci
>> > Bruno
>> > "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
>> > #gFvaf1FFHA.3312@TK2MSFTNGP15.phx.gbl...
>> >> Bonjour
>> >> 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 = "C:TestsDoc1.doc"
>> >> On Error Resume Next
>> >> AppWrd.Windows("Doc1.doc").Activate
>> >> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> >> On Error GoTo 0
>> >> AppActivate AppWrd
>> >>
>> >> Cordialement
>> >> Pascal
>> >>
>> >> "Youky" <bruno.jeune-nospam@wanadoo.fr> a écrit dans le message de
> news:
>> >> uZIU66qFFHA.2180@TK2MSFTNGP10.phx.gbl...
>> >> > Bonjour,
>> >> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> >> > voudrais
>> >> > tester si ce fichier est déja ouvert
>> >> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> >> > pouvoir
>> >> > l'activer si il est en barre des taches.
>> >> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> >> > j'ai entendu parler du handle mais je sais pas interprêter.
>> >> > voici un bout de code
>> >> >
>> >> > Dim AppWrd As Word.Application
>> >> > Dim DocWrd As Word.Document
>> >> > Set AppWrd = New Word.Application
>> >> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> >> > Merci et bonne soirée à tous
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
Re
En complément, ajoute ces deux lignes en tête de ton code :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
(ByVal hwnd As Long) As Long
Puis modifie (après le dernier End If dans ton code) comme ceci :
Dim WinWnd&
WinWnd = FindWindow(vbNullString, AppWrd.Caption)
SetForegroundWindow (WinWnd)
AppActivate AppWrd
Cordialement
Pascal
"Youky" a écrit dans le message de news:
> Merci Papou,
> Mes tests n'ont pas été rapide et j'ai toujours la même erreur en
> ligne
> AppWrd.Windows("Doc1.doc").Activate 'n'active pas mon .doc et j'ai tout
> essayé
> Si je trouve le bon code pour cette ligne je serai presque au bout.
> Bruno
>
> "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
> OWHNbP$
>> Bonjour
>> Modifie comme ceci :
>> Private Sub Command1_Click()
>> Dim AppWrd As Object
>> Dim DocWrd As String
>> Dim WrdOuvert As Boolean
>> On Error Resume Next
>> Set AppWrd = GetObject(, "Word.Application")
>> 'Word non ouvert
>> If Err <> 0 Then
>> Set AppWrd = CreateObject("Word.Application")
>> On Error GoTo 0
>> WrdOuvert = False
>> AppWrd.Visible = True
>> End If
>> DocWrd = "C:TestsDoc1.doc"
>> If Not WrdOuvert Then
>> 'Word non ouvert > ouverture fichier
>> AppWrd.Documents.Open (DocWrd)
>> Else
>> On Error Resume Next
>> 'Word ouvert > tenter d'activer le doc
>> > End If
>> If Err <> 0 Then
>> 'erreur d'activation > on ouvre le doc
>> AppWrd.Documents.Open (DocWrd)
>> On Error GoTo 0
>> End If
>> AppActivate AppWrd
>> End Sub
>>
>>
>> Cordialement
>> Pascal
>>
>> "Youky" a écrit dans le message de
>> %
>> > Merci Papou,
>> > Souvent j'ai plaisir à te lire sur Excel pout tirer qlq astuces.
>> > J'ai testé ton code et je vais en erreur en derniere ligne,
>> > le fichier ici Doc1.doc deja ouvert n'est pas non plus selectionné
>> > J'ai Office2000 et VB5
>> > Encore merci
>> > Bruno
>> > "papou" <cestpasbon@çanonplus44.fr> a écrit dans le message news:
>> > #
>> >> Bonjour
>> >> 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 = "C:TestsDoc1.doc"
>> >> On Error Resume Next
>> >> AppWrd.Windows("Doc1.doc").Activate
>> >> If Err <> 0 Then AppWrd.Documents.Open (DocWrd)
>> >> On Error GoTo 0
>> >> AppActivate AppWrd
>> >>
>> >> Cordialement
>> >> Pascal
>> >>
>> >> "Youky" a écrit dans le message de
> news:
>> >>
>> >> > Bonjour,
>> >> > J'ouvre un fichier Word avec mon code mais avant de l'ouvrir je
>> >> > voudrais
>> >> > tester si ce fichier est déja ouvert
>> >> > pour ne pas avoir "en lecture seule" ou "notifier" et comment
>> >> > pouvoir
>> >> > l'activer si il est en barre des taches.
>> >> > A savoir que je dois naviguer entre plusieurs fichiers Word
>> >> > j'ai entendu parler du handle mais je sais pas interprêter.
>> >> > voici un bout de code
>> >> >
>> >> > Dim AppWrd As Word.Application
>> >> > Dim DocWrd As Word.Document
>> >> > Set AppWrd = New Word.Application
>> >> > Set DocWrd = AppWrd.Documents.Open("C:Teststoto.doc")
>> >> > Merci et bonne soirée à tous
>> >> >
>> >> >
>> >>
>> >>
>> >
>> >
>>
>>
>
>
