A voir également:
- Créer dossier automatiquement sur VBA
- Créer un compte instagram sur google - Guide
- Créer un compte google - Guide
- Créer un compte gmail - Guide
- Comment créer un groupe whatsapp - Guide
- Dossier appdata - Guide
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
15 avril 2010 à 11:32
Bonjour,
La commande pour créer un dossier est MkDir("mondossier")
;o)
La commande pour créer un dossier est MkDir("mondossier")
;o)
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
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.
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.
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
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
Il faut lire et comprendre, au besoin poser une question avant de poster n'importe quoi. Merci
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
15 avril 2010 à 18:22
bonjour,
'Exemple
ChDir "C:\Sauvegarde"
ActiveWorkbook.SaveAs Filename:= "C:\Sauvegarde\" & Combo.text & ".xls"
'Exemple
ChDir "C:\Sauvegarde"
ActiveWorkbook.SaveAs Filename:= "C:\Sauvegarde\" & Combo.text & ".xls"
15 avril 2010 à 11:38
15 avril 2010 à 11:46
15 avril 2010 à 11:48
Modifié par Marie le 15/04/2010 à 11:54
15 avril 2010 à 12:41
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)