Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes textbox,
soient transférées dans des champs prévus à cet effet dans mon formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message
de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: CCDBC9CD-20C0-42C6-A1A7-D6BDF7813949@microsoft.com...
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message
de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon bouton
"OK".
Merci
Bonjour,
Oui, j'ai bien créé les signets.Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le
message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci
Bonjour,
Oui, j'ai bien créé les signets.
Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: CCDBC9CD-20C0-42C6-A1A7-D6BDF7813949@microsoft.com...
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le
message
de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci
Bonjour,
Oui, j'ai bien créé les signets.Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le
message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci
Re
En fait je viens de comprendre ;-)
Je n'avais pas fait attention au fait qu'il s'agissait d'un formulaire et
que tu voulais intégrer tes valeurs dans des champs texte.
Dans ces conditions, il est inutile de créer des signets, il faut utiliser
une autre méthode et aussi penser à déprotéger le document Word avant de
faire quoi que ce soit (si tu as vérrouillé le formulaire):
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Unprotect
.FormFields("Texte1").Result = Me.ComboBox1.Value
.FormFields("Texte2").Result = Me.TextBox1.Value
.Protect wdAllowOnlyFormFields, True
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Il faudra que tu adaptes avec les noms de champs de ton document Word qui
vont bien (pour les trouver il te suffira d'aller vérifier les signets qui
ont automatiqumeent créés avec tes champs texte.
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Oui, j'ai bien créé les signets.Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le
message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci
Re
En fait je viens de comprendre ;-)
Je n'avais pas fait attention au fait qu'il s'agissait d'un formulaire et
que tu voulais intégrer tes valeurs dans des champs texte.
Dans ces conditions, il est inutile de créer des signets, il faut utiliser
une autre méthode et aussi penser à déprotéger le document Word avant de
faire quoi que ce soit (si tu as vérrouillé le formulaire):
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Unprotect
.FormFields("Texte1").Result = Me.ComboBox1.Value
.FormFields("Texte2").Result = Me.TextBox1.Value
.Protect wdAllowOnlyFormFields, True
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Il faudra que tu adaptes avec les noms de champs de ton document Word qui
vont bien (pour les trouver il te suffira d'aller vérifier les signets qui
ont automatiqumeent créés avec tes champs texte.
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: 7D229E43-3A68-462B-A69F-34622C5C1049@microsoft.com...
Bonjour,
Oui, j'ai bien créé les signets.
Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le message de
news: CCDBC9CD-20C0-42C6-A1A7-D6BDF7813949@microsoft.com...
Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"
Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.
Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" <Vincent@discussions.microsoft.com> a écrit dans le
message
de
news: DFA3D6AB-866E-41C7-99F2-05D402BDDAF9@microsoft.com...
Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci
Re
En fait je viens de comprendre ;-)
Je n'avais pas fait attention au fait qu'il s'agissait d'un formulaire et
que tu voulais intégrer tes valeurs dans des champs texte.
Dans ces conditions, il est inutile de créer des signets, il faut utiliser
une autre méthode et aussi penser à déprotéger le document Word avant de
faire quoi que ce soit (si tu as vérrouillé le formulaire):
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Unprotect
.FormFields("Texte1").Result = Me.ComboBox1.Value
.FormFields("Texte2").Result = Me.TextBox1.Value
.Protect wdAllowOnlyFormFields, True
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Il faudra que tu adaptes avec les noms de champs de ton document Word qui
vont bien (pour les trouver il te suffira d'aller vérifier les signets qui
ont automatiqumeent créés avec tes champs texte.
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Bonjour,
Oui, j'ai bien créé les signets.Bonjour
As-tu créé les signets "Un" et "Deux" sur une position dans ton document
Word ?
Cordialement
Pascal
"Vincent" a écrit dans le message de
news:Oups...
Autant pour moi, le message est "Erreur 6028-Impossible de supprimer la
plage"Au fonctionnement du code , le message suivant apparait:"Erreur 6028 -
Impossible de copier la plage"
En mode débogage, la zone en jaune correspond au code suivant:
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
Je ne vois pas trop ce qui manquer....
Merci du coup de main.Bonjour
Tu peux utiliser quelque chose dans ce style, tout en notant qu'ici
les
infos transcrites depuis Excel le sont dans le document Word à des
endroits
identifiés par des signets ("Un" et "Deux")
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdDoc = wrdApp.Documents.Open("C:testsformulaire.doc")
With wrdDoc
.Bookmarks("Un").Range.Text = Me.ComboBox1.Value
.Bookmarks("Deux").Range.Text = Me.TextBox1.Value
.Close (True)
End With
Set wrdDoc = Nothing
wrdApp.Quit
Set wrdApp = Nothing
Cordialement
Pascal
"Vincent" a écrit dans le
message
de
news:Bonjour,
Je vais essayer d'etre clair:
un tableau Excel, dans lequel sont extraites des données par
l'intermédiaire
d'un userform, d'une liste déroulante, et de textbox. Sur
l'activation
d'un
bouton "Ok", un fichier Word s'ouvre, de type formulaire, et je
voudrais
que
les valeurs sélectionnées dans la liste déroulante et dans mes
textbox,
soient transférées dans des champs prévus à cet effet dans mon
formulaire
Word.
Je recherche donc un bout de code VBA me permettant de joindre le
transfert
des valeurs à l'action d'ouverture de mon document Word de mon
bouton
"OK".
Merci