Nouveau dossier valeur combobox

Résolu
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -  
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
je voudrais créer un nouveau dossier au nom de la valeur d'un combobox
dans "H:\Versus\clients\+valeur combobox" H etant un lecteur en reseau
quand j'enregistre les valeurs de mon userform ou ne pas le creer si il existe deja
comment m'y prendre
merci de votre aide car j ai pas trouvè la solution
A voir également:

3 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

un exemple:

http://www.excelabo.net/excel/tester_creer_dossier
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
j ai regardé mais la ils ne proposent que sauvegarder le fichier excel
moi je voudrais un dossier au nom de la valeur d'un combobox quand je clique sur le bouton enregistrer les valeurs de l'userform
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

sub SaveInMyFolder()
Dim x As String, strPath As String
On Error Resume Next
strPath = "C:\mesdocuments\mondossier"
x = GetAttr(strPath) And 0
If Err 0 Then
' c'est quoi ceci ????
MkDir strPath
End If


ActiveWorkbook.SaveAs FileName:=strPath & "" & ActiveWorkbook.Name
end sub
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
Bonjour
je vais regarder mais dans la macro je ne vois pas le nom de mon combobox qui est "Nom"
c'est ce qui m'interpelle dans cette macro
merci
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Re,
Ben, c'est a vous de modifier ce code pour votre utilisation
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
Bonjour
et oui hélas c la mon soucis lol
je vais essayer
0
surplus Messages postés 673 Date d'inscription   Statut Membre Dernière intervention   4
 
bonjour
merci de votre aide j ai réussi
slts
0