Creer dossier avec valeurs textbox

Bonjour a tous

je suis entrain de faire une gestion des adhérents pour une association

j'aimerais pour cela avoir la possibilité de créer un dossier en fonction des valeurs de 2 textbox

Dans le fichier que je joints les textbox nécessaires sont ceux du nom et prénom ( TNom et TPrenon)

En d'autre thermes en cliquant sur Menu puis sur Inscription je voudrais créer un fichier à un emplacement dans mon ordi dont le nom sera les valeurs du nom et du prénom

Merci pour votre aide

bonjour,

Quelle drôle d'idée !

Un peu de vocabulaire d'abord :

Un dossier (répertoire) ou un fichier (classeur) ?

Dans les 2 cas, je trouve que tu te compliques bien la vie. Et tu vas y mettre quoi ?

Pour créer un dossier c'est :

Sub test()
MkDir "TESTREP"
'En l'absence de chemin
'le dossier est créé dans le répertoire par défaut d'Excel
End Sub

Pour créer un fichier (classeur) YAKA ouvrir un nouveau classeur et l'enregistrer...

Dans ce dernier cas l'enregistreur de macro constitue un bon début pour nous fournir un classeur interressant.

Mais encore une fois cette question me parait bien prématurée : Est-tu certain que ce soit bien utile ?

A+

En fait c'est assez simple

je voudrais créer un dossier dans mon ordi dont le nom de ce dossier sera les valeurs des textbox précédemment cités dans le but d'y mettre divers documents administratif concernant l'adherent.

Par la suite je ferai un lien hypertext pour y acceder

Si c'est bien un dossier alors je t'ai donné la réponse :

Private Sub CreeRep()
MkDir TNom & TPrenom
'En l'absence de chemin
'le dossier est créé dans le répertoire par défaut d'Excel
End Sub

Si tu exécutes ça à partir du formulaire cette ligne injectée au bon endroit peut suffire :

MkDir TNom & TPrenom

Après il y a une histoire de chemin à résoudre, mais ça je ne peux pas le faire pour toi...

A+

je n'arrive pas a créer le chemin de destination

j'ai trouver ceci sur internet

il semble fonctionné sauf que le fichier se créer mais il me marque que le dossier existe déja alors qu'il devrait marqué qu'il a étét créer

Dim NomFic As String

Dim Rep As String

Dim Nom As String

Application.DisplayAlerts = False

Rep = "C:\Users\Kinny\Desktop\adherent judo\"

NomFic = TNom.Value & " " & TPrenom.Value

Nom = Rep & NomFic

On Error Resume Next

MkDir Nom

If Err <> 0 Then

MsgBox "Le repertoire " & Nom & " a été créé", vbOKOnly, "SUCCES"

Else

MsgBox "Le repertoire " & Nom & " existe déjà", vbOKOnly, "ECHEC"

End If

je vais laisser comme ca merci de votre aide