Créer un repertoire en vba

[Daniel]

Bonjour à tout le forum!

Voilà, est-ce possible :
de créer dans un dossier (dont le chemin d'accès est C:\\LOGISTIQUE)

==> un répertoire qui se nomme par la valeur de la cellule A1 de la
feuille 'RESUMER' d'un classeur (ouvert lors du lancement de la macro)

==> et d'y sauvegarder un classeur ???

On sort du champs d'application d'Excel mais bon, j'ai appris ici qu'avec Exce; tout est possible!


Merci d'avance!

 

[stef]

bonjour,

oui tout est possible avec Excel ....

NomDossier = 'C:LOGISTIQUE\\' & Sheets('RESUME').Range('A1')
If Dir(NomDossier, vbDirectory) = '' Then MkDir NomDossier

SaveAs NomDossier & '\\LeNomFichier.xls'


Ca ne doit pas etre loin de ca
@+

 

[Yazou]

Salut
Pour créer ton répertoire essaye avec MKDIR

MkDir 'C:LOGISTIQUE\\' & sheets('RESUMER').range('A1').value

Je pense que ça pourrait aller

 

[Daniel]

GENIAL!!! :woohoo:

merci à vous Stef et Yazou!

A très bientôt !