Recupération de valeur dans word2000

Soyez le premier à donner votre avis sur cette source.

Vue 8 723 fois - Téléchargée 583 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...

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

Ajouter un commentaire

Commentaires

MalcolMZ
Messages postés
110
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006
-
si ton site web est sur http://www.monsiteweb/imprime.txt
et bien tu dois ecrire Set f = fs.GetFile("http://www.monsiteweb/imprime.txt")
c tout
cs_jma85
Messages postés
1
Date d'inscription
mardi 28 janvier 2003
Statut
Membre
Dernière intervention
27 août 2007
-
Bonjour,

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
cs_slm59
Messages postés
1
Date d'inscription
jeudi 6 mai 2004
Statut
Membre
Dernière intervention
18 juillet 2006
-
J'ai utilisé le code juste pour créer un fichier txt.
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.
Syruis
Messages postés
184
Date d'inscription
mardi 8 juin 2004
Statut
Membre
Dernière intervention
28 avril 2009
-
moi je l'ai fait en java :) mais c pas mal du tout !!!
Slashgo
Messages postés
44
Date d'inscription
jeudi 18 octobre 2001
Statut
Membre
Dernière intervention
19 octobre 2002
-
Franchement du bon travail. J'avais vu sa en PHP mais je ne savais pas comment faire en ASP. J'avais cherché des trucs trop comlpliqué.
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.