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 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 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:

Paramétrer le nom d'un fichier
Fichier rar - Guide
Fichier host - Guide
Fichier iso - Guide
Comment réduire la taille d'un fichier - Guide
Comment ouvrir un fichier epub ? - Guide

1 réponse

Réponse 1 / 1

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476
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.

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

yg_be Messages postés 22724 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 25 avril 2024 1 476 > 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?

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

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

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

Discussions similaires

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

Annuaire portable gratuit à partir d'un nom

comment donner les droits sur fichier partage

Chemin Logo du site de la Cité de l'espace

Comment trouver un numéro à partir du nom et prénom

Discussions similaires

Newsletters