A voir également:
- Créer dossier automatiquement sur VBA
- Comment créer un groupe whatsapp - Guide
- Dossier appdata - Guide
- Créer un compte google - Guide
- Créer un lien pour partager des photos - Guide
- Créer un compte gmail - Guide
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.
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.
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.
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)