Enregistrer document sous un nom différent [Résolu]

fixou81 200 Messages postés lundi 9 mai 2005Date d'inscription 12 juin 2007 Dernière intervention - 12 mars 2007 à 16:45 - Dernière réponse : cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention
- 13 mars 2007 à 10:59
bonjour,

en fait voila. J'acquiert les nom et prénom de personnes puis je créé un document texte. Je voudrais en fait avoir une commande qui me permette d'enregistrer mon document sous un nom différent à chaque fois. C'es à dire par exemple
1ere saisie nom :Dupont, prénom :Jacques --> Ceci me créé un fichier qui s'appelle DupontJacques.
2eme saisie nom :Pierpol, prénom :Jak -->Ceci me créé un fichier pierpoljak.
J'utilise déjà cette commande :
Set MonFic = FSys.CreateTextFile("C:\essai") et en fait je veux juste que le nom du fichier d'enregistrement diffère à chaque fois. Comment faire ?
Merci.!
Afficher la suite 

Votre réponse

7 réponses

Meilleure réponse
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 13 mars 2007 à 08:41
3
Merci
Salut,


Tu le récupères comment le nom et prénon de ton TextBox ?
Sinon essaye cela :

Dim VarNom As String
Dim VarPrénon As String
Dim Destination As String

VarNom = Text1.Text ' Tes TextBox
VarPrénon = Text2.Text ' Tes TextBox

Destination = "C:" & VarNom & VarPrénon & ".Txt"

Set MonFic = FSys.CreateTextFile("Destination")  


A+
Exploreur



 Linux à un noyau, windows un pépin

Merci cs_Exploreur 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 85 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
cs_casy 7745 Messages postés mercredi 1 septembre 2004Date d'inscription 24 septembre 2014 Dernière intervention - 12 mars 2007 à 16:51
0
Merci
remplace essai par le nom construit à partir de tes saisies.

Le problème c'est que l'on ne sait pas comment est stocké le nom et le prénom, mais ça devrai donner un truc du genre :

Set MonFic = FSys.CreateTextFile("C:" & nom & prenom)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #
Commenter la réponse de cs_casy
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 12 mars 2007 à 16:56
0
Merci
Salut,

Et ceci :

Dim VarNom As String
Dim VarPrénon As String
Dim Destination As String

VarNom = "Toto"
VarPrénon = "Tata"

Destination = "C:" & VarNom & VarPrénon & ".Txt"

Set MonFic = FSys.CreateTextFile("Destination")  

A+
Exploreur

 Linux à un noyau, windows un pépin
Commenter la réponse de cs_Exploreur
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 12 mars 2007 à 16:57
0
Merci
Oups...Décidement..Post croisé (Salut Casy)

A+
Exploreur

 Linux à un noyau, windows un pépin
Commenter la réponse de cs_Exploreur
fixou81 200 Messages postés lundi 9 mai 2005Date d'inscription 12 juin 2007 Dernière intervention - 12 mars 2007 à 17:16
0
Merci
marche pas...je comprend pas ca a l'air pas mal pourtant..En fait les nom et prénom je les récupères de deux textbox juste avant donc je sais pas...balo..
Commenter la réponse de fixou81
fixou81 200 Messages postés lundi 9 mai 2005Date d'inscription 12 juin 2007 Dernière intervention - 13 mars 2007 à 10:54
0
Merci
c cool ca marche mmais en fait maintenant je rencontre un problème car j'ai fait une macro qui me reouvre ce document fraichement créé mais ca marche pas avec cette technique, j'ai une erreur d'execution...
Commenter la réponse de fixou81
cs_Exploreur 4824 Messages postés lundi 11 novembre 2002Date d'inscription 15 novembre 2016 Dernière intervention - 13 mars 2007 à 10:59
0
Merci
Salut,


Peux-tu SVP, nous montrer le code qui permet donc d'ouvrir ton fichier, et préciser la nature de l'erreur, sa définition..


A+
Exploreur



 Linux à un noyau, windows un pépin
Commenter la réponse de cs_Exploreur

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.