Bonjour à toutes et à tous,
Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du
texte contenu dans une zone d'un formulaire word et placer celui-ci dans une
textbox d'une form excel ?
Merci d'avance
Michel69
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
Garette
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés)
Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du
form UserForm1
Sub ChampForm()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Open Filename:="c:toto.doc"
UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result
WordApp.Quit
Set WordApp = Nothing
UserForm1.Show
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 8E24F5A3-909B-4D67-9B60-4145B885DB3B@microsoft.com...
Bonjour à toutes et à tous,
Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du
texte contenu dans une zone d'un formulaire word et placer celui-ci dans
une
textbox d'une form excel ?
Merci d'avance
Michel69
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Michel69
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Bonjour Garette et merci pour ta réponse rapide.
Ici le doc woerd se nomme toto.doc.
Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms
du tout.
Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word
ouvert quelque soit son nom ?
Merci encore
Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés)
Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du
form UserForm1
Sub ChampForm()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Open Filename:="c:toto.doc"
UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result
WordApp.Quit
Set WordApp = Nothing
UserForm1.Show
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 8E24F5A3-909B-4D67-9B60-4145B885DB3B@microsoft.com...
Bonjour à toutes et à tous,
Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du
texte contenu dans une zone d'un formulaire word et placer celui-ci dans
une
textbox d'une form excel ?
Merci d'avance
Michel69
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Garette
Re,
Effectivement, on peut executer la proc sous Word. En stockant la proc dans normal.dot, elle sera executable à partir de n'importe quel document.
La proc suivante s'execute à partir de Word. Elle recupere le contenu du champ x et le copie dans la celllue A4 de Test.xls, enregistre el fichier et ferme. On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm() Set ExcelApp = CreateObject("excel.application") ExcelApp.Visible = True 'ou True pour voir Excel se lancer ExcelApp.workbooks.Open FileName:="c:Test.xls" ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result ExcelApp.ActiveWorkbook.Save ExcelApp.Quit Set ExcelApp = Nothing End Sub
"Michel69" a écrit dans le message de news:
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Re,
Effectivement, on peut executer la proc sous Word.
En stockant la proc dans normal.dot, elle sera executable à partir de
n'importe quel document.
La proc suivante s'execute à partir de Word.
Elle recupere le contenu du champ x et le copie dans la celllue A4 de
Test.xls, enregistre el fichier et ferme.
On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm()
Set ExcelApp = CreateObject("excel.application")
ExcelApp.Visible = True 'ou True pour voir Excel se lancer
ExcelApp.workbooks.Open FileName:="c:Test.xls"
ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result
ExcelApp.ActiveWorkbook.Save
ExcelApp.Quit
Set ExcelApp = Nothing
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 342F89CA-08E7-4EEF-A5EC-CB651C6CE60C@microsoft.com...
Bonjour Garette et merci pour ta réponse rapide.
Ici le doc woerd se nomme toto.doc.
Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms
du tout.
Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word
ouvert quelque soit son nom ?
Merci encore
Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés)
Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1
du
form UserForm1
Sub ChampForm()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Open Filename:="c:toto.doc"
UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result
WordApp.Quit
Set WordApp = Nothing
UserForm1.Show
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
de
news: 8E24F5A3-909B-4D67-9B60-4145B885DB3B@microsoft.com...
Bonjour à toutes et à tous,
Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer
du
texte contenu dans une zone d'un formulaire word et placer celui-ci
dans
une
textbox d'une form excel ?
Merci d'avance
Michel69
Effectivement, on peut executer la proc sous Word. En stockant la proc dans normal.dot, elle sera executable à partir de n'importe quel document.
La proc suivante s'execute à partir de Word. Elle recupere le contenu du champ x et le copie dans la celllue A4 de Test.xls, enregistre el fichier et ferme. On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm() Set ExcelApp = CreateObject("excel.application") ExcelApp.Visible = True 'ou True pour voir Excel se lancer ExcelApp.workbooks.Open FileName:="c:Test.xls" ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result ExcelApp.ActiveWorkbook.Save ExcelApp.Quit Set ExcelApp = Nothing End Sub
"Michel69" a écrit dans le message de news:
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Michel69
Merci Garette, J'essaie et te tiens au courant Michel69
Re,
Effectivement, on peut executer la proc sous Word. En stockant la proc dans normal.dot, elle sera executable à partir de n'importe quel document.
La proc suivante s'execute à partir de Word. Elle recupere le contenu du champ x et le copie dans la celllue A4 de Test.xls, enregistre el fichier et ferme. On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm() Set ExcelApp = CreateObject("excel.application") ExcelApp.Visible = True 'ou True pour voir Excel se lancer ExcelApp.workbooks.Open FileName:="c:Test.xls" ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result ExcelApp.ActiveWorkbook.Save ExcelApp.Quit Set ExcelApp = Nothing End Sub
"Michel69" a écrit dans le message de news:
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
Merci Garette,
J'essaie et te tiens au courant
Michel69
Re,
Effectivement, on peut executer la proc sous Word.
En stockant la proc dans normal.dot, elle sera executable à partir de
n'importe quel document.
La proc suivante s'execute à partir de Word.
Elle recupere le contenu du champ x et le copie dans la celllue A4 de
Test.xls, enregistre el fichier et ferme.
On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm()
Set ExcelApp = CreateObject("excel.application")
ExcelApp.Visible = True 'ou True pour voir Excel se lancer
ExcelApp.workbooks.Open FileName:="c:Test.xls"
ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result
ExcelApp.ActiveWorkbook.Save
ExcelApp.Quit
Set ExcelApp = Nothing
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message de
news: 342F89CA-08E7-4EEF-A5EC-CB651C6CE60C@microsoft.com...
Bonjour Garette et merci pour ta réponse rapide.
Ici le doc woerd se nomme toto.doc.
Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms
du tout.
Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word
ouvert quelque soit son nom ?
Merci encore
Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés)
Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1
du
form UserForm1
Sub ChampForm()
Set WordApp = CreateObject("word.application")
WordApp.Visible = False 'ou True pour voir Word se lancer
WordApp.Documents.Open Filename:="c:toto.doc"
UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result
WordApp.Quit
Set WordApp = Nothing
UserForm1.Show
End Sub
"Michel69" <Michel69@discussions.microsoft.com> a écrit dans le message
de
news: 8E24F5A3-909B-4D67-9B60-4145B885DB3B@microsoft.com...
Bonjour à toutes et à tous,
Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer
du
texte contenu dans une zone d'un formulaire word et placer celui-ci
dans
une
textbox d'une form excel ?
Merci d'avance
Michel69
Merci Garette, J'essaie et te tiens au courant Michel69
Re,
Effectivement, on peut executer la proc sous Word. En stockant la proc dans normal.dot, elle sera executable à partir de n'importe quel document.
La proc suivante s'execute à partir de Word. Elle recupere le contenu du champ x et le copie dans la celllue A4 de Test.xls, enregistre el fichier et ferme. On peut ensuite exploiter le contenu de A4 dans le userform1.textbox1
Sub ChampForm() Set ExcelApp = CreateObject("excel.application") ExcelApp.Visible = True 'ou True pour voir Excel se lancer ExcelApp.workbooks.Open FileName:="c:Test.xls" ExcelApp.activesheet.Range("A4").Value = ActiveDocument.Fields(1).Result ExcelApp.ActiveWorkbook.Save ExcelApp.Quit Set ExcelApp = Nothing End Sub
"Michel69" a écrit dans le message de news:
Bonjour Garette et merci pour ta réponse rapide. Ici le doc woerd se nomme toto.doc. Dans mon cas les docs word n'ont pas le même nom voir des fois pas de noms du tout. Y auratil un moyen de prendre ta proc et la faire tourner sur le doc word ouvert quelque soit son nom ? Merci encore Michel69
Bonjour,
Soit C:toto.doc contenant 2 champs de formulaire (renseignés) Le code suivant récupère le contenu du Champ n°2 et l'affiche le TextBox1 du form UserForm1
Sub ChampForm() Set WordApp = CreateObject("word.application") WordApp.Visible = False 'ou True pour voir Word se lancer WordApp.Documents.Open Filename:="c:toto.doc" UserForm1.TextBox1.Value = WordApp.ActiveDocument.Fields(2).Result WordApp.Quit Set WordApp = Nothing UserForm1.Show End Sub
"Michel69" a écrit dans le message de news:
Bonjour à toutes et à tous, Quelqu'un d'entre vous connaîtrait-il la solution en vba pour récupérer du texte contenu dans une zone d'un formulaire word et placer celui-ci dans une textbox d'une form excel ? Merci d'avance Michel69
