J'envoie, à partir de textbox excel, plusieurs textes dans un fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais
lorsque le fichier word est créé et ouvert, si je refait la même manip
et envoie d'autres données pour créer un tableau dessous celui existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word.
Comment faire pour envoyer d'autres textes, à partir d'autres textbox
excel, dans le même fichier ???
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
Geo
Bonjour GA
Bonsoir à tous,
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip et envoie d'autres données pour créer un tableau dessous celui existant, ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Tu sais, sans le code, difficile de te dire --
A+
Bonjour GA
Bonsoir à tous,
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais
lorsque le fichier word est créé et ouvert, si je refait la même manip
et envoie d'autres données pour créer un tableau dessous celui
existant, ma macro me renvoie une erreur et ouvre un nouveau fichier
word. Comment faire pour envoyer d'autres textes, à partir d'autres
textbox excel, dans le même fichier ???
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip et envoie d'autres données pour créer un tableau dessous celui existant, ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Tu sais, sans le code, difficile de te dire --
A+
GA
Sorry, c'est sûr c'est plus pratique!! avec un bout de macro: Sub envoi_word() Dim appword As Word.Application Dim DocWord As Word.Document Dim LTexte2 As String Set appword = New Word.Application LTexte2 = UserForm2.TextBox1.Value Set appword = CreateObject("word.application") Set DocWord = appword.Documents.Add DocWord.Tables.Add appword.Selection.Range, 2, 2... 'créer le tableau appword.Selection.TypeText Text:="RECOMMANDATIONS" appword.Selection.MoveDown unit:=wdLine, Count:=1 appword.Selection.InsertAfter LTexte2
etc... pour le reste des texbox.value
Merci
Cordialement
Ga
Bonjour GA
Bonsoir à tous,
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip et envoie d'autres données pour créer un tableau dessous celui existant, ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Tu sais, sans le code, difficile de te dire
Sorry, c'est sûr c'est plus pratique!! avec un bout de macro:
Sub envoi_word()
Dim appword As Word.Application
Dim DocWord As Word.Document
Dim LTexte2 As String
Set appword = New Word.Application
LTexte2 = UserForm2.TextBox1.Value
Set appword = CreateObject("word.application")
Set DocWord = appword.Documents.Add
DocWord.Tables.Add appword.Selection.Range, 2, 2... 'créer le tableau
appword.Selection.TypeText Text:="RECOMMANDATIONS"
appword.Selection.MoveDown unit:=wdLine, Count:=1
appword.Selection.InsertAfter LTexte2
etc... pour le reste des texbox.value
Merci
Cordialement
Ga
Bonjour GA
Bonsoir à tous,
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais
lorsque le fichier word est créé et ouvert, si je refait la même manip
et envoie d'autres données pour créer un tableau dessous celui
existant, ma macro me renvoie une erreur et ouvre un nouveau fichier
word. Comment faire pour envoyer d'autres textes, à partir d'autres
textbox excel, dans le même fichier ???
Sorry, c'est sûr c'est plus pratique!! avec un bout de macro: Sub envoi_word() Dim appword As Word.Application Dim DocWord As Word.Document Dim LTexte2 As String Set appword = New Word.Application LTexte2 = UserForm2.TextBox1.Value Set appword = CreateObject("word.application") Set DocWord = appword.Documents.Add DocWord.Tables.Add appword.Selection.Range, 2, 2... 'créer le tableau appword.Selection.TypeText Text:="RECOMMANDATIONS" appword.Selection.MoveDown unit:=wdLine, Count:=1 appword.Selection.InsertAfter LTexte2
etc... pour le reste des texbox.value
Merci
Cordialement
Ga
Bonjour GA
Bonsoir à tous,
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip et envoie d'autres données pour créer un tableau dessous celui existant, ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Tu sais, sans le code, difficile de te dire
Clément Marcotte
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip
et envoie d'autres données pour créer un tableau dessous celui existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox
excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Merci d'avence
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple
amplement commenté de tentative de récupérer l'instance de Word
existante avec getobject(), et si getobject() retourne une erreur,
elle est interceptée à cause du On error goto et le getobject est
remplacé par createobject()
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
J'envoie, à partir de textbox excel, plusieurs textes dans un fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même manip
et envoie d'autres données pour créer un tableau dessous celui existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres textbox
excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Merci d'avence
Cordialement
Ga
GA
Absolument, mais j'ai une erreur: un composant activeX ne peut pas créer d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
J'envoie, à partir de textbox excel, plusieurs textes dans un
fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même
manip
et envoie d'autres données pour créer un tableau dessous celui
existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres
textbox
excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Merci d'avence
Cordialement
Ga
Absolument, mais j'ai une erreur: un composant activeX ne peut pas créer
d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple
amplement commenté de tentative de récupérer l'instance de Word
existante avec getobject(), et si getobject() retourne une erreur,
elle est interceptée à cause du On error goto et le getobject est
remplacé par createobject()
Absolument, mais j'ai une erreur: un composant activeX ne peut pas créer d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
J'envoie, à partir de textbox excel, plusieurs textes dans un
fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais lorsque le fichier word est créé et ouvert, si je refait la même
manip
et envoie d'autres données pour créer un tableau dessous celui
existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres
textbox
excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Merci d'avence
Cordialement
Ga
Clément Marcotte
Bonjour,
Tu as aussi besoin de:
On Error GoTo existepas
En début de procédure
et de
existepas: Select Case Err.Number Case 429 Set AppWord = CreateObject("word.application") AppWord.Visible = True Err.Clear Resume Next Case 4608 Set myrange = ledocument.Range(Start:=0, End:=0) Err.Clear Resume Next Case 5174 Set ledocument = AppWord.Documents.Add AppWord.ActiveDocument.SaveAs ("c:copieici.doc") Err.Clear Resume Next Case Else End Select
juste avant end sub
"GA" a écrit dans le message de news:
Absolument, mais j'ai une erreur: un composant activeX ne peut pas créer
d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
J'envoie, à partir de textbox excel, plusieurs textes dans un
fichier
word, en créant un tableau à 2 colonnes, jusque là tout va bien mais
lorsque le fichier word est créé et ouvert, si je refait la même
manip
et envoie d'autres données pour créer un tableau dessous celui
existant,
ma macro me renvoie une erreur et ouvre un nouveau fichier word. Comment faire pour envoyer d'autres textes, à partir d'autres
textbox
excel, dans le même fichier ???
Quelqu'un pour m'aider ?
Merci d'avence
Cordialement
Ga
Bonjour,
Tu as aussi besoin de:
On Error GoTo existepas
En début de procédure
et de
existepas:
Select Case Err.Number
Case 429
Set AppWord = CreateObject("word.application")
AppWord.Visible = True
Err.Clear
Resume Next
Case 4608
Set myrange = ledocument.Range(Start:=0, End:=0)
Err.Clear
Resume Next
Case 5174
Set ledocument = AppWord.Documents.Add
AppWord.ActiveDocument.SaveAs ("c:copieici.doc")
Err.Clear
Resume Next
Case Else
End Select
juste avant end sub
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de
news:uwIEJqLJFHA.2628@tk2msftngp13.phx.gbl...
Absolument, mais j'ai une erreur: un composant activeX ne peut pas
créer
d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple
amplement commenté de tentative de récupérer l'instance de Word
existante avec getobject(), et si getobject() retourne une erreur,
elle est interceptée à cause du On error goto et le getobject est
remplacé par createobject()
existepas: Select Case Err.Number Case 429 Set AppWord = CreateObject("word.application") AppWord.Visible = True Err.Clear Resume Next Case 4608 Set myrange = ledocument.Range(Start:=0, End:=0) Err.Clear Resume Next Case 5174 Set ledocument = AppWord.Documents.Add AppWord.ActiveDocument.SaveAs ("c:copieici.doc") Err.Clear Resume Next Case Else End Select
juste avant end sub
"GA" a écrit dans le message de news:
Absolument, mais j'ai une erreur: un composant activeX ne peut pas créer
d'objet !!!sur la ligne: set appword=GetObject(",word.application"):
Cordialement
Ga
Bonjour,
Dans les réponses que je t'ai déjà données, il y a un exemple amplement commenté de tentative de récupérer l'instance de Word existante avec getobject(), et si getobject() retourne une erreur, elle est interceptée à cause du On error goto et le getobject est remplacé par createobject()
