Créer dossier automatiquement sur VBA

Fermé
Marie - 15 avril 2010 à 11:31
 Marie - 3 mai 2010 à 13:46
Bonjour
je cherche comment créer un dossier automatiquement à l'aide d'une combobox sur VBA. si quelqu'un sais faire pouvez vous m'aider svp? merci d'avance

A voir également:

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
15 avril 2010 à 11:32
Bonjour,

La commande pour créer un dossier est MkDir("mondossier")

;o)
0
ok merci mais je peux pas définir le nom de mon dossier car il dépend d'une combobox. En faite ce que je souhaiterais faire c'est que lorsque je séléctionne dans ma combobox ( j'ai rentrer un liste de nom que j'ai attribuer à cette combobox) cela me créer un dossier sous le même nom que j'ai séléctionné
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
15 avril 2010 à 11:46
MkDir("C:\" & Combo1.Text)
0
cela ne marche pas, ca me dit qu'il y a une erreur :((
0
excusez moi je voudrais savoir si vous savez tous faire sur VBA? Parce qu'en faite j'ai des difficultés et je n'arrive pas à les résoudres
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
15 avril 2010 à 12:41
Peux tu nous faire passer ton fichier en le déposant sur cjoint.com.
Tu postes ici le lien.

Enlève toutes les données qui seraient confidentielles. Seule la structure suffit. N'oublie pas de mettre une note explicative de ce que tu souhaites obtenir.

Merci

;o)
0
achrefghanmi Messages postés 7 Date d'inscription vendredi 5 février 2010 Statut Membre Dernière intervention 22 avril 2010
15 avril 2010 à 14:40
Imports System.IO

public calss blabalaala

' voila essayer ca :inserer le dans le code d'un buton

If Directory.Exists("c:\test") = False Then
Directory.CreateDirectory("c:\test")
End If


end class



' pour le copiage des fichier aussi inserer le dans le code d'un button ou 'n'importe quelle autre chose(listbox ou combobox,etc)
dialog.Title = "ajouter"
dialog.Filter = "Tout les fichiers (*.*)|*.*|JPEG (*.JPG;*.JPEG;*.JPE;*.JFIF)|*.JPG;*.JPEG;*.JPE;*.JFIF|PNG (*.PNG)|*.PNG|TIFF (*.TIF;*.TIF)|*.TIF;*.TIF|bitmap (*.bmp)|*.bmp"
dialog.ShowDialog()


If dialog.FileName <> Nothing Then
FileCopy(dialog.FileName(), "c:\test\" + Path.GetFileName(dialog.FileName()))
End If

' et pas de merci.
0
mais en faite je cherche pas à copier un fichier je veux qu'il s'enregistre directement dans un dossier créer
0
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
Modifié par Polux31 le 15/04/2010 à 15:40
joli ... mais hors sujet.

Il faut lire et comprendre, au besoin poser une question avant de poster n'importe quoi. Merci
0
dct33 Messages postés 41 Date d'inscription jeudi 8 avril 2010 Statut Membre Dernière intervention 20 avril 2010 39
15 avril 2010 à 18:22
bonjour,

'Exemple

ChDir "C:\Sauvegarde"

ActiveWorkbook.SaveAs Filename:= "C:\Sauvegarde\" & Combo.text & ".xls"
0
j'ai essayé votre méthode mais malheuresement cela ne marche pas
0