Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= > TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= > TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= > TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
449584d6$0$924$ba4acef3@news.orange.fr...
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les autres
méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le message
de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les autres
méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le message
de news: %230VS$NwkGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
449584d6$0$924$ba4acef3@news.orange.fr...
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les autres
méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le message
de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de calcul
Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" a écrit dans le message de news:
4496c01e$0$886$Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le
message de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
4496c01e$0$886$ba4acef3@news.orange.fr...
Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message de news: %230VS$NwkGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
449584d6$0$924$ba4acef3@news.orange.fr...
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" a écrit dans le message de news:
4496c01e$0$886$Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le
message de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" a écrit dans le message de news:
4496c01e$0$886$Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le
message de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
4496c01e$0$886$ba4acef3@news.orange.fr...
Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" <clement.marcotte@sympatico.ca> a écrit dans le
message de news: %230VS$NwkGHA.1264@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
449584d6$0$924$ba4acef3@news.orange.fr...
Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
Bonjour
Dans ces conditions enlève ton With et end With et rattache à chaque
méthode Find ton objet oWord :
oWord.Selection.Find.ClearFormatting
oWord.Selection.Find.Text = "JUSTIFICATION DU PROJET"
'etc...
Cordialement
Pascal
"Joël" a écrit dans le message de news:
4496c01e$0$886$Merci Clément pour avoir pris le temps de répondre. Malheureusement, le
Problème de vient pas de là (à moins que les références en question ne
soient pas les mêmes), car seule la méthode Find pose problème. Les
autres méthodes fonctionnent correctement !!!
Si tu as une autre idée...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Clément Marcotte" a écrit dans le
message de news: %230VS$Bonjour,
Je me demande si ce n'est pas une histoire de références. Si ton objet
Word est appelé comme ça:
set oWord = new "word.application"
Il faut cocher la référence à Microsoft Word XX Objects librairy dans
Outils - Références
Si ton objet Word est appelé comme ça:
set oWord = createobject("word.application")
Tu n'es pas obligé de cocher la référence à Word; encore que le fait de
la cocher quand même soit utile pour retrouver les informations sur les
objets Word dans l'Explorateur d'Objets d'Excel et permette aussi de
retrouver le complément automatique d'instructions et les autres
caractéritiques "Intellisense" de VBA.
"Joël" a écrit dans le message de news:
449584d6$0$924$Bonjour à toutes et à tous !
J'ai une application qui permet de récupérer, dans une feuille de
calcul Excel, des informations saisies dans des documents Word.
Cela se passe très bien sur un poste de travail, mais un autre micro
provoque problème sur une recherche de texte.
'========================================= >>>> TestNom = ""
With Oword
.Selection.HomeKey unit:=wdStory
.Selection.Find.ClearFormatting
.Selection.Find.Text = "JUSTIFICATION DU PROJET"
.Selection.Find.Execute
.Selection.MoveRight unit:=wdCell
TestNom = .Selection.Text
End With
'======================================== >>>>
aucune instruction " .Selection.Find." ne fonctionne
Différence entre les 2 micros :
Il semble que sur le poste en erreur, la base Office soit une base US,
remixée en Français (les menus, boîtes de dialogue, etc... sont en
français)
Excel OK : V9.0.6926 sp3 ; VBA : V retail 6.4.9972 ; Forms3 : 11.0.6950
Excel not OK : V9.0.7616 sp3 ; VBA V retail 6.4.8869 ; Fomrs3 : 2.01
Si vous aviez une petite idée du pourquoi de la chose, cela
m'arrangerait.
Par avance merci,
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
