fichier dèjà ouvert

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le créer ?
une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le créer ?
une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

Merci beaucoup pour la réponse, je vais essayer çà.

Une petite aide encore...
quelle syntaxe utiliser pour le chemin du fichier
ex: C:documents and settings??mes Documentszaza.xls
?? = le nom utilisateur de la cession (username)car ma macro va être
installée sur plusieurs ordi et il faut qu'elle soit universelle !!!

Merci encore pour toutes ces réponses pertinentes qui me permettent
d'avancer petit à petit dans mon projet ....

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le créer
? une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

comme ça,

"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"

attention au retour, intempestif, à la ligne

isabelle

Merci beaucoup pour la réponse, je vais essayer çà.

Une petite aide encore...
quelle syntaxe utiliser pour le chemin du fichier
ex: C:documents and settings??mes Documentszaza.xls
?? = le nom utilisateur de la cession (username)car ma macro va être
installée sur plusieurs ordi et il faut qu'elle soit universelle !!!

Merci encore pour toutes ces réponses pertinentes qui me permettent
d'avancer petit à petit dans mon projet ....

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le créer
? une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

Merci pour la réponse mais lorsque je l'inclus dans ta macro donnée plus
tôt (sub DonnéesVersWord) j'ai une erreur chemin ou docu non valide ...

Set DocWord = appword.Documents.Open("c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc")

j'ai essayé avec les ", sans les " etc.. sans succès.. d'où vient le prob ??

Merci d'avance

Cordialement

Ga

comme ça,

"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"

attention au retour, intempestif, à la ligne

isabelle

Merci beaucoup pour la réponse, je vais essayer çà.

Une petite aide encore...
quelle syntaxe utiliser pour le chemin du fichier
ex: C:documents and settings??mes Documentszaza.xls
?? = le nom utilisateur de la cession (username)car ma macro va être
installée sur plusieurs ordi et il faut qu'elle soit universelle !!!

Merci encore pour toutes ces réponses pertinentes qui me permettent
d'avancer petit à petit dans mon projet ....

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le
créer ? une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

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()


http://groups.google.com/groups?q=getobject+createobject+on+error+goto+group:microsoft.public.fr.excel+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&c2coff=1&scoring=d&selm=uqYcVDdGFHA.2740%40TK2MSFTNGP12.phx.gbl&rnum=1



"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de
news:%23sCbK%231IFHA.3628@TK2MSFTNGP15.phx.gbl...

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 ?

Merci d'avence

Cordialement

Ga

Bonjour Ga,


si tu veux obtenir l'usager qui travaille sur le poste ....

'Copie ce qui suit dans le haut d'un module Standard
'déclaration API
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'-------------------
Public Function FindUserName() As String
' Andrew, mpep
Dim strName As String
strName = Space$(512)
GetUserName strName, Len(strName)
FindUserName = Trim$(strName)
End Function

'-------------------
Sub Test()

MsgBox FindUserName

End Sub
'-------------------

P.S. dans ta procédure tu peux remplacer Application.UserName par FindUserName


Salutations!










"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23U2nbkCJFHA.3376@TK2MSFTNGP14.phx.gbl...
Merci pour la réponse mais lorsque je l'inclus dans ta macro donnée plus
tôt (sub DonnéesVersWord) j'ai une erreur chemin ou docu non valide ...

Set DocWord = appword.Documents.Open("c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc")

j'ai essayé avec les ", sans les " etc.. sans succès.. d'où vient le prob ??

Merci d'avance

Cordialement

Ga

comme ça,

"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"

attention au retour, intempestif, à la ligne

isabelle

Merci beaucoup pour la réponse, je vais essayer çà.

Une petite aide encore...
quelle syntaxe utiliser pour le chemin du fichier
ex: C:documents and settings??mes Documentszaza.xls
?? = le nom utilisateur de la cession (username)car ma macro va être
installée sur plusieurs ordi et il faut qu'elle soit universelle !!!

Merci encore pour toutes ces réponses pertinentes qui me permettent
d'avancer petit à petit dans mon projet ....

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le
créer ? une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga

Tout à fait, mais j'étais parti sur l'optique proposée dans le PS à
savoir créer d'abord un tableau dans excel. Dur dur, car problème de
formats de cellules avec les textes de longueurs différentes sur
colonnes adjacentes atroce comme effet etc...
Je suis revenu à ma première idée: envoi direct dans word au fur et à
mesure. Pas facile non plus !!!
Je vais essayer d'utiliser cette macro...

Merci pour tout
A+
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()


http://groups.google.com/groups?q=getobject+createobject+on+error+goto+group:microsoft.public.fr.excel+author:clement.marcotte%40sympatico.ca&hl=fr&lr=&c2coff=1&scoring=d&selm=uqYcVDdGFHA.2740%40TK2MSFTNGP12.phx.gbl&rnum=1



"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de
news:%23sCbK%231IFHA.3628@TK2MSFTNGP15.phx.gbl...

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 ?

Merci d'avence

Cordialement

Ga

Merci pour la réponse,

Non, en fait je cherche simplement à trouver le fichier stocké dans le
dossier mes documents de l'ordi du gars....et pour indiquer le chemin
complet, il me faut son username. Je voudrais pas faire si compliqué ...
La réponse d'Isabelle m'allait bien mais pas fonctionne...
Why ?

Cordialement

Ga

Bonjour Ga,


si tu veux obtenir l'usager qui travaille sur le poste ....

'Copie ce qui suit dans le haut d'un module Standard
'déclaration API
Public Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

Declare Function WNetGetUser Lib "mpr.dll" Alias "WNetGetUserA" _
(ByVal lpName As String, ByVal lpUserName As String, lpnLength As Long) As Long
'-------------------
Public Function FindUserName() As String
' Andrew, mpep
Dim strName As String
strName = Space$(512)
GetUserName strName, Len(strName)
FindUserName = Trim$(strName)
End Function

'-------------------
Sub Test()

MsgBox FindUserName

End Sub
'-------------------

P.S. dans ta procédure tu peux remplacer Application.UserName par FindUserName


Salutations!










"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23U2nbkCJFHA.3376@TK2MSFTNGP14.phx.gbl...
Merci pour la réponse mais lorsque je l'inclus dans ta macro donnée plus
tôt (sub DonnéesVersWord) j'ai une erreur chemin ou docu non valide ...

Set DocWord = appword.Documents.Open("c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc")

j'ai essayé avec les ", sans les " etc.. sans succès.. d'où vient le prob ??

Merci d'avance

Cordialement

Ga

comme ça,

"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"

attention au retour, intempestif, à la ligne

isabelle

Merci beaucoup pour la réponse, je vais essayer çà.

Une petite aide encore...
quelle syntaxe utiliser pour le chemin du fichier
ex: C:documents and settings??mes Documentszaza.xls
?? = le nom utilisateur de la cession (username)car ma macro va être
installée sur plusieurs ordi et il faut qu'elle soit universelle !!!

Merci encore pour toutes ces réponses pertinentes qui me permettent
d'avancer petit à petit dans mon projet ....

Cordialement

Ga

re bonjour,

Sub DonnéesVersWord()
Dim DocWord As Word.Document
Dim AppWord As Word.Application
Set AppWord = New Word.Application
AppWord.ShowMe
AppWord.Visible = True

On Error Resume Next
Set DocWord = AppWord.Documents.Open("c:zazazaza1.doc")
If DocWord Is Nothing Then
MsgBox "le fichier n'existe pas"
AppWord.Documents.Add
'suite de la macro
Else
MsgBox "le fichier existe"
'suite de la macro
End If

Set DocWord = Nothing
AppWord.Application.Quit
End Sub

isabelle

Merci beaucoup pour la réponse.

Je ne sais pas quelle textbox va être envoyée en premier, je ne sais
donc pas si le fichier existe déjà.
Y-a-t-il moyen de faire une vérif si fichier existe ou sinon le
créer ? une boucle de test à chaque envoi ?
J'utilise: Set appword = CreateObject("word.application") mais si le
fichier existe, cela ne fonctionne pas ....

Merci d'avance

Cordialement

Ga

bonjour Ga,

Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1

isabelle

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 ?

Merci d'avence

Cordialement

Ga