Je fait des recherche dans Word 2000 et d=E9clare ma=20
variable comme il se doit...(la biblioth=E8que est=20
correctement install=E9e)
Set oWord =3D CreateObject("Word.Application")
Je fais un certain nombre d'op=E9rations et j'arrive sur un=20
passage qui normalement fonctionne sans probl=E8me :
With oWord
'Pour adapter le chemin dans word =E0 celui d'excel
.Application.ChangeFileOpenDirectory CurDir
.Application.DisplayAlerts =3D wdAlertsNone
.Application.ChangeFileOpenDirectory CurDir
.Documents.Open Fichier, , True
.Selection.HomeKey unit:=3DwdStory
.Selection.EndKey wdLine, wdExtend
TestNom =3D .Selection.Text
If Left(TestNom, 35) =3D "Ouverture de Projet /=20
Project start" Then
'R=E9cup=E9ration des justifications dans doc word
TestNom =3D ""
.Selection.HomeKey unit:=3DwdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text =3D "JUSTIFICATION DU=20
PROJET"
Cela fonctionne sur diff=E9rente platteforme, mais j'ai une=20
configuration qui provoque un probl=E8me :=20
Erreur d'ex=E9cution "5" Argument ou appel de fonction=20
incorrecte
sur l'instruction .Selection.Find ClearFormatting
La platteforme o=F9 cela plante est de version : 9.0 3821 SR-
1
Qui aurait connaissance d'un =E9ventuel boggue en la=20
mati=E8re ?
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
michdenis
Bonjour Joël,
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut être y aller des derniers correctifs à partir du site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" a écrit dans le message de news:241f601c45f5d$73a9c680$ Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma variable comme il se doit...(la bibliothèque est correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un passage qui normalement fonctionne sans problème :
With oWord 'Pour adapter le chemin dans word à celui d'excel .Application.ChangeFileOpenDirectory CurDir .Application.DisplayAlerts = wdAlertsNone .Application.ChangeFileOpenDirectory CurDir .Documents.Open Fichier, , True .Selection.HomeKey unit:=wdStory .Selection.EndKey wdLine, wdExtend TestNom = .Selection.Text If Left(TestNom, 35) = "Ouverture de Projet / Project start" Then 'Récupération des justifications dans doc word TestNom = "" .Selection.HomeKey unit:=wdStory .Selection.Find.ClearFormatting .Selection.Find.Text = "JUSTIFICATION DU PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction incorrecte sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR- 1
Qui aurait connaissance d'un éventuel boggue en la matière ?
Vous en remerciant par avance,
Joël www.joelgarbe.fr
Bonjour Joël,
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut être y aller des derniers correctifs à partir du
site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" <joel@joelgarbe.fr> a écrit dans le message de news:241f601c45f5d$73a9c680$a301280a@phx.gbl...
Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma
variable comme il se doit...(la bibliothèque est
correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un
passage qui normalement fonctionne sans problème :
With oWord
'Pour adapter le chemin dans word à celui d'excel
.Application.ChangeFileOpenDirectory CurDir
.Application.DisplayAlerts = wdAlertsNone
.Application.ChangeFileOpenDirectory CurDir
.Documents.Open Fichier, , True
.Selection.HomeKey unit:=wdStory
.Selection.EndKey wdLine, wdExtend
TestNom = .Selection.Text
If Left(TestNom, 35) = "Ouverture de Projet /
Project start" Then
'Récupération des justifications dans doc word
TestNom = ""
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU
PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une
configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction
incorrecte
sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR-
1
Qui aurait connaissance d'un éventuel boggue en la
matière ?
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut être y aller des derniers correctifs à partir du site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" a écrit dans le message de news:241f601c45f5d$73a9c680$ Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma variable comme il se doit...(la bibliothèque est correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un passage qui normalement fonctionne sans problème :
With oWord 'Pour adapter le chemin dans word à celui d'excel .Application.ChangeFileOpenDirectory CurDir .Application.DisplayAlerts = wdAlertsNone .Application.ChangeFileOpenDirectory CurDir .Documents.Open Fichier, , True .Selection.HomeKey unit:=wdStory .Selection.EndKey wdLine, wdExtend TestNom = .Selection.Text If Left(TestNom, 35) = "Ouverture de Projet / Project start" Then 'Récupération des justifications dans doc word TestNom = "" .Selection.HomeKey unit:=wdStory .Selection.Find.ClearFormatting .Selection.Find.Text = "JUSTIFICATION DU PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction incorrecte sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR- 1
Qui aurait connaissance d'un éventuel boggue en la matière ?
Vous en remerciant par avance,
Joël www.joelgarbe.fr
Joel
Merci Michenis pour cette réponse.
Elle ne m'apporte pas énormément, mais c'est le geste qui compte ;-)
En fait, mes recherches s'orientent sur l'impact d'une DLL installée sur le poste "défaillant". D'autres postes ayant la même configuration (version) mais pas cette DLL ne présentent pas le problème....
Encore merci !
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "michdenis" a écrit dans le message de news:%
Bonjour Joël,
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut être y aller des derniers correctifs à partir du
site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" a écrit dans le message de news:241f601c45f5d$73a9c680$
Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma variable comme il se doit...(la bibliothèque est correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un passage qui normalement fonctionne sans problème :
With oWord 'Pour adapter le chemin dans word à celui d'excel .Application.ChangeFileOpenDirectory CurDir .Application.DisplayAlerts = wdAlertsNone .Application.ChangeFileOpenDirectory CurDir .Documents.Open Fichier, , True .Selection.HomeKey unit:=wdStory .Selection.EndKey wdLine, wdExtend TestNom = .Selection.Text If Left(TestNom, 35) = "Ouverture de Projet / Project start" Then 'Récupération des justifications dans doc word TestNom = "" .Selection.HomeKey unit:=wdStory .Selection.Find.ClearFormatting .Selection.Find.Text = "JUSTIFICATION DU PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction incorrecte sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR- 1
Qui aurait connaissance d'un éventuel boggue en la matière ?
Vous en remerciant par avance,
Joël www.joelgarbe.fr
Merci Michenis pour cette réponse.
Elle ne m'apporte pas énormément, mais c'est le geste qui compte ;-)
En fait, mes recherches s'orientent sur l'impact d'une DLL installée sur le
poste "défaillant". D'autres postes ayant la même configuration (version)
mais pas cette DLL ne présentent pas le problème....
Encore merci !
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:%23CwPkS2XEHA.3016@tk2msftngp13.phx.gbl...
Bonjour Joël,
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut
être y aller des derniers correctifs à partir du
site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton
problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" <joel@joelgarbe.fr> a écrit dans le message de
news:241f601c45f5d$73a9c680$a301280a@phx.gbl...
Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma
variable comme il se doit...(la bibliothèque est
correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un
passage qui normalement fonctionne sans problème :
With oWord
'Pour adapter le chemin dans word à celui d'excel
.Application.ChangeFileOpenDirectory CurDir
.Application.DisplayAlerts = wdAlertsNone
.Application.ChangeFileOpenDirectory CurDir
.Documents.Open Fichier, , True
.Selection.HomeKey unit:=wdStory
.Selection.EndKey wdLine, wdExtend
TestNom = .Selection.Text
If Left(TestNom, 35) = "Ouverture de Projet /
Project start" Then
'Récupération des justifications dans doc word
TestNom = ""
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU
PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une
configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction
incorrecte
sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR-
1
Qui aurait connaissance d'un éventuel boggue en la
matière ?
Elle ne m'apporte pas énormément, mais c'est le geste qui compte ;-)
En fait, mes recherches s'orientent sur l'impact d'une DLL installée sur le poste "défaillant". D'autres postes ayant la même configuration (version) mais pas cette DLL ne présentent pas le problème....
Encore merci !
--
Bien cordialement,
Joël GARBE www.joelgarbe.fr "michdenis" a écrit dans le message de news:%
Bonjour Joël,
Je crois qu'office 2000 possède plus qu'une mise à jour. Faudrait peut être y aller des derniers correctifs à partir du
site de Microsoft. Cela étant, je ne suis pas sûr que cela règle ton problème... je ne connais pas assez Word pour cela.
Salutations!
"Joël" a écrit dans le message de news:241f601c45f5d$73a9c680$
Bonjour,
Je rencontre un Pb à partir d'excel 2000
Je fait des recherche dans Word 2000 et déclare ma variable comme il se doit...(la bibliothèque est correctement installée)
Set oWord = CreateObject("Word.Application")
Je fais un certain nombre d'opérations et j'arrive sur un passage qui normalement fonctionne sans problème :
With oWord 'Pour adapter le chemin dans word à celui d'excel .Application.ChangeFileOpenDirectory CurDir .Application.DisplayAlerts = wdAlertsNone .Application.ChangeFileOpenDirectory CurDir .Documents.Open Fichier, , True .Selection.HomeKey unit:=wdStory .Selection.EndKey wdLine, wdExtend TestNom = .Selection.Text If Left(TestNom, 35) = "Ouverture de Projet / Project start" Then 'Récupération des justifications dans doc word TestNom = "" .Selection.HomeKey unit:=wdStory .Selection.Find.ClearFormatting .Selection.Find.Text = "JUSTIFICATION DU PROJET"
Cela fonctionne sur différente platteforme, mais j'ai une configuration qui provoque un problème :
Erreur d'exécution "5" Argument ou appel de fonction incorrecte sur l'instruction .Selection.Find ClearFormatting
La platteforme où cela plante est de version : 9.0 3821 SR- 1
Qui aurait connaissance d'un éventuel boggue en la matière ?
