Recupération de valeur dans word2000

Télécharger le projet
Commenter

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...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (MalcolMZ)