Sujet Précédent Sujet Suivant

Paramétrer le nom d'un fichier

Fermé
RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018 - 3 juin 2018 à 16:04
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 - 4 juin 2018 à 09:41
Bonjour, je possède un fichier xls contenant plusieurs feuilles nommées CSV1, CSV2, ... CSV10, ....
Dans chacune de ces feuilles CSV1, .. on trouve en cellule A1 un nom, variable de feuille à feuille.
Je voudrais ouvrir pour chaque feuille CSVi 1 nouveau fichiers CSV (ou txt) et y copier le contenu de la feuille CSVi. Ma question: comment faire pour donner à chacun de ces nouveaux fichiers CSV (ou TXT) le nom figurant en cellulle A1 de la feuille CSVi?

Merci d'avance pour votre aide!
Fernand
A voir également:

1 réponse

Réponse 1 / 1
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 Ambassadeur 1 554
Modifié le 3 juin 2018 à 16:43
bonjour, tu obtiendras cela en spécifiant le bon nom au moment de faire "save as" du nouveau fichier.
0
RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018
3 juin 2018 à 16:44
merci pour ta réponse, mais je souhaiterais que cela se fasse automatiquement..

Fd
0
yg_be Messages postés 23352 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 27 novembre 2024 1 554 > RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018
3 juin 2018 à 16:55
bien sûr, tu peux faire le "save as" automatiquement, en VBA.
peux-tu partager ton code VBA?
0
RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018
3 juin 2018 à 17:36
voici, j'aimerais donc que mon nouveau fichier s'appelle par la valeur "NOM.txt" plutôt que "Copytxtdoxcsv1.txt", NOM ayant été lu en cells(1,1)


Sub copytxt()
' copytxt Macro
Sheets("CSV1").Select
NOM=cells(1,1)
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.SaveAs Filename:= _
"C:\Users\ferna\Desktop\travail\Copytxtdoscsv1.txt", FileFormat:=xlCSVMSDOS _
, CreateBackup:=False
ActiveWindow.Close
End Sub
0
JuanLucas38 Messages postés 57 Date d'inscription mardi 22 mai 2018 Statut Membre Dernière intervention 3 avril 2023 4 > RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018
3 juin 2018 à 18:21
Bonjour,

Essaies le code suivant : 


C:\Users\ferna\Desktop\travail\"& NOM & ".txt", FileFormat:=xlCSVMSDOS _
, CreateBackup:=False
0
RocheB Messages postés 4 Date d'inscription dimanche 3 juin 2018 Statut Membre Dernière intervention 4 juin 2018 > JuanLucas38 Messages postés 57 Date d'inscription mardi 22 mai 2018 Statut Membre Dernière intervention 3 avril 2023
4 juin 2018 à 07:55
Magnifique, cela fonctionne!
Un très très grand merci pour ton aide!

Merci à vous deux, JuanLucas38 et yg_be.

fernand
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
comment donner les droits sur fichier partage
ch'ti du 57 -
fil1958 -

2 réponses
PB pour trouver le nom d'une image
Alexandra -
Alexandra -

12 réponses