Recupération de valeur dans word2000
Soyez le premier à donner votre avis sur cette source.
Vue 8 792 fois - Téléchargée 620 fois
Description
Bon ben c tout simple...le but c'est a partir d'un fichier asp, on envoie des valeurs que l'on pourra récupèrer dans un fichier word...vous me direz ke cela n'est pas très util mais pour ceux ki travail avec des commerciaux (lesbeubeus de word)..et bien c très util...Attention, le seul problème pour que le code se déroule correctement, il faut bien sur que l'utilisateur lance la macro de word (ben oui y une macro) afin de pouvoir récupèrer les données. Cette macro enregistrera votre fichier en RTF dans le repertoire de votre choix....voila...
si kkl un connait un code moins lourd, pourriez vous me l'envoyer...je vous aime...heu non je deconne...
Source / Exemple :
pour ne pas vous perdre, le but en asp est de passer des paramètre en les copiant dans un fichier TMP...
voici juste en asp la fonction de copie du fichier sinon tout et dans le zip
<%
'**************************************
'** Word2000 asp **
'**************************************
if request("Envoyer")="Envoyer" then
nom = request("nom")
prenom = request("prenom")
adresse = request("adresse")
telephone = request("telephone")
cheminVirtuel = Request.ServerVariables("PATH_INFO")
cheminPhysique = Server.MapPath(cheminVirtuel)
chemin = Left(cheminPhysique,InStrRev(cheminPhysique,"\")-1)
fichier_word = "monfichier.doc"
fichier = "\imprime.txt"
repertoire = ""
chemin_fichier = chemin & repertoire& fichier
chemin_fichier_word = chemin & repertoire& fichier
' bon commencon..le but c 'est d'inscrire les données dans un fichier text
' afin de pouvoir ensuite lire se fichier sous word
' et de recupèrer les valeurs
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile(chemin_fichier,8,True)
'** bon ben le truc standard pour ecrire dans un fichier
MyFile.Write("Nom="&nom&"&prenom="&prenom&"&adresse="&adresse&"&telephone="&telephone&"&")
MyFile.Close ' verifier bien que vous avez l'autorisation d'ecriture dans votre rep
response.redirect (fichier_word) ' et on lance la macro word
end if ' fin de l'action
%>
Conclusion :
si kkl un connait un code moins lourd, pourriez vous me l'envoyer...je vous aime...heu non je deconne...
Codes Sources
A voir également
- Recupération de valeur dans word2000
- Récupérer la valeur d'un select javascript ✓ - Forum - Javascript / DHTML
- Récupérer la valeur d'un id javascript ✓ - Forum - Javascript / DHTML
- Récupérer la valeur d'un textbox d'une autre form - Forum - C# / .NET
- Récupérer la valeur d'une cellule dans un textbox - Forum - Visual Basic
- Recuperer la valeur d'un cookies - Codes sources - Visual Basic / VB.NET (ASP)
Commentaires
et bien tu dois ecrire Set f = fs.GetFile("http://www.monsiteweb/imprime.txt")
c tout
Votre exemple me parait pas mal sauf que j'ai toujours la même erreur : fichier introuvable.
en effet, l'erreur se situe dans le fichier word :
Set f = fs.GetFile("\\m_serveur\SQL_intranet\intranet\code\Fichier_word_asp\imprime.txt")
si l'adresse de mon fichier texte est par exemple
http://www.monsiteweb/imprime.txt
que dois écrire dana la ligne fs.gestFile(... ?
Merci d'avance
jma@isalis.fr
Ensuite je lance excel et je vais chercher le .txt créé, l'assistant d'importation se lance, je détermine le caractère de délimitation -> ça marche nickel sur un poste 2000 mais pas sur un poste XP (le texte sous Excel est écrit avec des caractères chinois).
Que faut-il changer dans le code pour que ça fonctionne en XP?
Merci d'avance.
Encore bravo :)
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.