Créer dossier automatiquement sur VBA
Marie
-
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
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
3 réponses
Résumé de la discussion
La problématique porte sur la création automatique d'un dossier via une combobox en VBA sous Windows 2000.
Les réponses couvrent principalement des vérifications de saisie, des manipulations de données entre classeurs et des exemples de structures de boucle, sans exposer une solution directe.
Plusieurs échanges abordent des thèmes périphériques tels que l’utilisation de TextBox, la référence des feuilles et des plages, ou des questions sur le format des données, sans aboutir à une méthode opérationnelle.
Aucune proposition n’expose une implémentation utilisant MakeDir ou une instruction équivalente pour créer le dossier immédiatement à partir de la sélection de la combobox.
-
Bonjour,
La commande pour créer un dossier est MkDir("mondossier")
;o)-
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é
-
-
-
-
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)
-
-
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. -
bonjour,
'Exemple
ChDir "C:\Sauvegarde"
ActiveWorkbook.SaveAs Filename:= "C:\Sauvegarde\" & Combo.text & ".xls"
