Créer dossier automatiquement sur VBA

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

Réponse 1 / 3
Polux31 Messages postés 6917 Date d'inscription   Statut Membre Dernière intervention   1 204
 
Bonjour,

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

;o)
0
Marie
 
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   Statut Membre Dernière intervention   1 204
 
MkDir("C:\" & Combo1.Text)
0
Marie
 
cela ne marche pas, ca me dit qu'il y a une erreur :((
0
Marie
 
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   Statut Membre Dernière intervention   1 204
 
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
Réponse 2 / 3
achrefghanmi Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
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
Marie
 
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   Statut Membre Dernière intervention   1 204
 
joli ... mais hors sujet.

Il faut lire et comprendre, au besoin poser une question avant de poster n'importe quoi. Merci
0
Réponse 3 / 3
dct33 Messages postés 41 Date d'inscription   Statut Membre Dernière intervention   39
 
bonjour,

'Exemple

ChDir "C:\Sauvegarde"

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