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

fixou81
Messages postés
200
Date d'inscription
lundi 9 mai 2005
Dernière intervention
12 juin 2007
- 12 mars 2007 à 16:45 - Dernière réponse : cs_Exploreur
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 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
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 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é 86 internautes ce mois-ci

Commenter la réponse de cs_Exploreur
cs_casy
Messages postés
7745
Date d'inscription
mercredi 1 septembre 2004
Dernière intervention
24 septembre 2014
- 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
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 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
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 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
Messages postés
200
Date d'inscription
lundi 9 mai 2005
Dernière intervention
12 juin 2007
- 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
Messages postés
200
Date d'inscription
lundi 9 mai 2005
Dernière intervention
12 juin 2007
- 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
Messages postés
4824
Date d'inscription
lundi 11 novembre 2002
Dernière intervention
15 novembre 2016
- 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.