Soyez le premier à donner votre avis sur cette source.
Vue 8 828 fois - Téléchargée 629 fois
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 %>
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.