Pop-up pour entrer variable

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:

---

1 2 3 4

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

---

J'ai un peu avancé :

Code:

---

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

Bonjour,

Essais comme cela

Code:

---

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

---

Merci après quelques tests ça fonctionne :

Code:

---

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 !

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

Code:

---

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

---

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...

Personnellement, je n'utilise pas le sauvegarder sous au format csv car cela change le format du classeur actif et retire de la maitrise au niveau format

Sur ce lien, j'ai poster un code qui permet d'enregistrer uniquement le tableau de données sélectionné dans un fichier csv tout en gardant le fichier excel ouvert
http://www.developpez.net/forums/d11...-selectionnee/

Merci après quelques tests j'ai compris comment ça marchait, il faut que je bosse sur l'ergonomie de mon fichier maintenant que j'ai les clés en main !

Pour ceux qui se poseraient la même question que celle-ci :

Citation:

---

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 ?

---

J'ai trouvé, apparemment le saveas csv est de base en américain et ils ne prennent pas les points virgules.
Il faut donc dire à Excel qu'on veut un fichier CSV Français en mettant Local:=True comme ceci :

Code:

---

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

---

Ca simplifie tout de même la vie.

@ bientôt.