Discussion :

[mathspountz]

Bonjour,

J'ai un problème tout simple. A la fin de ma macro (qui marche), j'aimerais que excel enregistre le fichier en csv quelque part. Ca j'ai réussi grâce à l'enregistreur de macro.
Mais j'aimerais bien qu'un pop up s'affiche avec la question "Quel nom pour ce fichier ?" et un champ de saisie. Si l'utilisateur tape "Test" dans le champ de saisie. Excel enregistre le fichier sous le nom Test.csv.

C'est posssible ?
Il faut faire un userform ?

Pour l'instant j'ai ça et je modifie les noms à la main après, ce qui n'est pas très ergonomique.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
   ChDir "\\place\to\be"
    ActiveWorkbook.SaveAs Filename:= _
        "\\place\to\be\Test.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

[mathspountz]

J'ai un peu avancé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim blabla As String
blabla = InputBox("Quel nom pour ce fichier ? ", "Nom à entrer manuelement")
 
ChDir "\\place\to\be"
   ActiveWorkbook.SaveAs Filename:= _
        "\\place\to\be\blabla.csv", FileFormat:= _
        xlCSV, CreateBackup:=False

Le problème c'est que les fichiers enregistrés s'appellent donc "blabla.csv" et non "Test.csv" ou ce que j'entre dans la inputbox...
Comment lui faire comprendre que j'ai mis une varialbe dans mon chemin : \\place\to\be\blabla.csv

[jfontaine]

Bonjour,

Essais comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim blabla As String
blabla = InputBox("Quel nom pour ce fichier ? ", "Nom à entrer manuelement")
 
ChDir "\\place\to\be"
   ActiveWorkbook.SaveAs Filename:= _
        "\\place\to\be\" & blabla & ".csv", FileFormat:= _
        xlCSV, CreateBackup:=False

[mathspountz]

Merci après quelques tests ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim blabla As String
blabla = InputBox("Quel nom pour ce fichier ? ", blabla)
 
 
ChDir "\\place\to\be"
   ActiveWorkbook.SaveAs Filename:= _
        "\\place\to\be\" & blabla & ".csv", FileFormat:= _
        xlCSV, CreateBackup:=False

Ca fait un peu bisard cette ligne : blabla = InputBox("Quel nom pour ce fichier ? ", blabla
Mais bon ça marche.

Merci beaucoup pour cette piste qui m'aura permi de trouver !

[jfontaine]

A noter que tu peux aussi écrire comme cela sans passer par une variable string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   ActiveWorkbook.SaveAs Filename:=  "\\place\to\be\" & InputBox("Quel nom pour ce fichier ? ", blabla) & ".csv", FileFormat:= xlCSV, CreateBackup:=False

[mathspountz]

Ha oui c'est mieux comme ça !

Par contre j'ai un soucis tout autre maintenant.

Pourquoi lorsque j'enregistre par moi même en csv, des points virgules s'insèrent entre les colonnes alors que, là dans ma macro, ce sont des virgules ?

Je préfèrerais des points virgules...

edit : arf et les virgules sont devenues des points aussi...