Nommer des dossiers à partir de cellules

Bonjour,

Étant novice dans l'utilisation des macros, je viens vers vous pour vous demandez de l'aide.

Je travaille sur une base de données, que je dois répartir dans plusieurs dossiers. Néanmoins, ces dossiers doivent être nommé de la même manière que la première cellule de ma BDD. Comment pourrais-je créer un nouveau dossier ayant donc le nom identique à cette cellule (A1), à partir d'une macro?

Je vous remercie par avance!

Thomas

bonjour thom le forum

tu peux faire un truc du style, cela te créera un nouveau fichier dans la même dossier que celui ou tu lances ta macro

a+

papou

Sub ajout()
    Dim chemin$
    chemin = ThisWorkbook.Path
    Workbook.Add (chemin & "\" & Feuil1.Cells(1, 1))
End Sub

PS: pardon en relisant ru veux créer des dossiers je te ferai cet après midi

a+

Ah c'est gentil je te remercie par avance!

Bonjour

A essayer

Sub Test
    Chemin =  ThisWorkbook.Path & "\" & Feuil1.Cells(1, 1) & "\"
    On Error Resume Next
    MkDir Chemin
    On Error GoTo 0
End Sub

Si le répertoire n'existe pas il sera créé sinon pas de message d'erreur

Bonne journée

Salut Banzaï,

Je te remercie pour ton aide, mais lorsque je lance la macro, rien ne se passe! Alors comme je l'ai dit auparavant, je suis débutant, et je me demandais si il ne fallait pas décrire le chemin où enregistrer le dossier créé dans le programme.

Merci encore!

Bonjour

Un exemple

En premier tu sauvegardes ce fichier avant de lancer la macro

Bonne journée

Je ne comprend pas pourquoi ça ne marche pas! Tempi, sinon il est possible de réaliser cette macro manuellement?

Bonjour

Moi je ne comprends pas pourquoi cela ne fonctionne pas chez toi

Si une bonne âme voulait bien tester

Merci par avance

Bonjour

Je suis en excel 2003

Je confirme que cela marche parfaitement

cordialement

Okay, je vais donc essayer de trouver l'erreur! Je vous remercie pour votre implication!

Merci BAnzaï!

A plus