Créer un repertoire ayant pour nom la valeur d'une cellule ?

[Eric]

Bonjour

En effet je cherche à enregistrer un fichier qui se nomme automatiquement avec le contenu d'une cellule. (Pour ça je connais la méthode)

Mais je souhaite que pour l'enregistrement, ce fichier figure ds un repertoire du meme nom que le dit fichier.

1°) Comment peut t'il verifier si le rep existe déjà et si non le créer ?

2°) Et ds ce cas comment faire pour qu'il créer le repertoire avec la meme valeur contenue ds la meme cellule que pour le fichier.

Exemple : Valeur de la cellule "800" le fichier se nomme 800.xls
Il faut verifier si le repertoire 800 existe, si oui il enreg le fichier dedans, si non il faut le créer.


Merci d'avance pour votre aide. Eric

 

[STéphane]

bonjour

tu peux le faire comme ça :
repertoire = "C:\WINNT\Profiles\royers\bureau\toto"
If Dir(repertoire, vbDirectory) <> "" Then MsgBox "existe" Else MkDir repertoire

sub autretest
nomrepertoire=curdir & "\" & range("A1").value
If Dir(nomrepertoire, vbDirectory) <> "" Then MsgBox "existe" Else MkDir nomrepertoire
nomsauvegarde=nomrepertoire & "\" & range("A1").value

... puis les instructions pour sauvegarder ton fichier avec filename:=nomsauvegarde


end sub

 

[Franck]

Salut,
Je pense que le code suivant devrait t'aider :
- Récupération du nom dans la cellule A1
- Créer un répertoire nom.xls sur c: (on error resume next permet de sauter cette étape si la création est impossible (ex : si le rép. existe déjà))
- sauvegarder le classeur actif sous nom.xls


sub aaa ()

nom=range("A1")
On Error Resume Next
MkDir "c:\" & nom & ".xls
activeworkbook.save as (nom)

end sub()