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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23BReJ7CJFHA.3916@TK2MSFTNGP14.phx.gbl...
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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23BReJ7CJFHA.3916@TK2MSFTNGP14.phx.gbl...
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
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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,
Il est difficile d'être plus explicite que ma réponse précédente ...
Application.UserName = barre des menus / outils / options / Général / Nom de l'utilisateur .... Tu peux y inscrire ce
que tu veux ....mais en aucun moment cela représente OBLIGATOIREMENT le répertoire inscrit au nom de l'usager dans
l'arborescence des fichiers que tu peux visualiser et expérimenter toi-même à partir de l'explorateur de Windows. Dans
un message antérieur, je t'ai donné une alternative ...!
Cependant, attention, ce répertoire au nom de l'usager dans l'arborescence de Windows, je ne crois pas que cela existe
sous windows 98... windows Me .... c'est un truc qui est arrivé avec windows 2000 pro, Windows XP.
Ce répertoire n'est pas donc pas universelle à tous les systèmes d'exploitation.
Salutations!
"GA" a écrit dans le message de news:
Merci pour la réponse très détaillée et explicite.
En effet j'ai Windows XP Pro et Microsoft Word "11.0" objects library
est coché, sauf que moi c'est 9 au lieu de 11...
Dans ma macro (à partir d'excel) j'indique juste le chemin d'accès au
fichier "doc1.doc" pour que ce chemin soit retrouvé quel que soit l'ordi
utilisé. Chacun a son UserName (ils ne sommes pas "Administrateur").Et
le fichier sera tjrs stocké dans "Mes Documents".Ce n'est pas le nom
utilisateur déclaré dans le chemin que tu indiques mais plutôt celui que
l'on saisi pour ouvert notre cession. Celui que l'on trouve en
développant le poste de travail pour trouver "Mes Documents".
Est-ce toujours correct ou Application.UserName ne correspond pas à cela ??
Cordialement
GaBonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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,
Il est difficile d'être plus explicite que ma réponse précédente ...
Application.UserName = barre des menus / outils / options / Général / Nom de l'utilisateur .... Tu peux y inscrire ce
que tu veux ....mais en aucun moment cela représente OBLIGATOIREMENT le répertoire inscrit au nom de l'usager dans
l'arborescence des fichiers que tu peux visualiser et expérimenter toi-même à partir de l'explorateur de Windows. Dans
un message antérieur, je t'ai donné une alternative ...!
Cependant, attention, ce répertoire au nom de l'usager dans l'arborescence de Windows, je ne crois pas que cela existe
sous windows 98... windows Me .... c'est un truc qui est arrivé avec windows 2000 pro, Windows XP.
Ce répertoire n'est pas donc pas universelle à tous les systèmes d'exploitation.
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: eShQh5KJFHA.3332@TK2MSFTNGP15.phx.gbl...
Merci pour la réponse très détaillée et explicite.
En effet j'ai Windows XP Pro et Microsoft Word "11.0" objects library
est coché, sauf que moi c'est 9 au lieu de 11...
Dans ma macro (à partir d'excel) j'indique juste le chemin d'accès au
fichier "doc1.doc" pour que ce chemin soit retrouvé quel que soit l'ordi
utilisé. Chacun a son UserName (ils ne sommes pas "Administrateur").Et
le fichier sera tjrs stocké dans "Mes Documents".Ce n'est pas le nom
utilisateur déclaré dans le chemin que tu indiques mais plutôt celui que
l'on saisi pour ouvert notre cession. Celui que l'on trouve en
développant le poste de travail pour trouver "Mes Documents".
Est-ce toujours correct ou Application.UserName ne correspond pas à cela ??
Cordialement
Ga
Bonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" <gerard.a.ayme@wanadoo.fr> a écrit dans le message de news: %23BReJ7CJFHA.3916@TK2MSFTNGP14.phx.gbl...
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
Bonjour GA,
Il est difficile d'être plus explicite que ma réponse précédente ...
Application.UserName = barre des menus / outils / options / Général / Nom de l'utilisateur .... Tu peux y inscrire ce
que tu veux ....mais en aucun moment cela représente OBLIGATOIREMENT le répertoire inscrit au nom de l'usager dans
l'arborescence des fichiers que tu peux visualiser et expérimenter toi-même à partir de l'explorateur de Windows. Dans
un message antérieur, je t'ai donné une alternative ...!
Cependant, attention, ce répertoire au nom de l'usager dans l'arborescence de Windows, je ne crois pas que cela existe
sous windows 98... windows Me .... c'est un truc qui est arrivé avec windows 2000 pro, Windows XP.
Ce répertoire n'est pas donc pas universelle à tous les systèmes d'exploitation.
Salutations!
"GA" a écrit dans le message de news:
Merci pour la réponse très détaillée et explicite.
En effet j'ai Windows XP Pro et Microsoft Word "11.0" objects library
est coché, sauf que moi c'est 9 au lieu de 11...
Dans ma macro (à partir d'excel) j'indique juste le chemin d'accès au
fichier "doc1.doc" pour que ce chemin soit retrouvé quel que soit l'ordi
utilisé. Chacun a son UserName (ils ne sommes pas "Administrateur").Et
le fichier sera tjrs stocké dans "Mes Documents".Ce n'est pas le nom
utilisateur déclaré dans le chemin que tu indiques mais plutôt celui que
l'on saisi pour ouvert notre cession. Celui que l'on trouve en
développant le poste de travail pour trouver "Mes Documents".
Est-ce toujours correct ou Application.UserName ne correspond pas à cela ??
Cordialement
GaBonsoir GA,
La proposition d'Isabelle fonctionne sur windows Xp pro... tu dois cependant ajouter la référence suivante à ton
projet
excel :
"Microsoft Word "11.0" objects librairy"
Et concernant le chemin du fichier avec Application.UserName , Cette dernière expression retourne la propriété définie
dans Barre de menu / outils / options / Général / Nom de l'utilisateur ....Mais cette information n'a rien à voir avec
le répertoire dans la struture hiérarchique des répertoires de Windows.
En conséquence, il se peut très bien que l'usager définisse cette propriété comme il le désire mais cela ne va pas
modifier le nom de SON répertoire. Il ne faut pas mélanger les 2 choses !!!!
Dans la procédure d'Isabelle, tu peux ajouter ceci :
if dir(c:documents and settings_
& Application.UserName & Mes Documentsdoc1.doc") = "" then
Msgbox "Le chemin n'est pas bon."
exit sub
end if
Salutations!
"GA" a écrit dans le message de news: %
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
GaBonjour 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" a écrit dans le message de news: %
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
Gacomme ça,
"C:documents and settings" & Application.UserName & _
mes Documentszaza.xls"
attention au retour, intempestif, à la ligne
isabelleMerci 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
Gare 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
isabelleMerci 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
Gabonjour Ga,
Selection.MoveDown Unit:=wdScreen, _
Count:¬tiveDocument.BuiltInDocumentProperties(14) + 1
isabelleBonsoir à 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
