dossier excel en VBA

[FIFI GREGRE]

Bonjour
je suis à la recherche d'un codage VBA car je souhaiterai pouvoir créer un dossier et un fichier excel en me servant du contenu d'une cellule:
pour être plus clair:
feuille excel 'feuil1'
cellule A1= 'coucou'
enregistrer le fichier excel du nom de la cellule A1 soit 'coucou' et le mettre dans un nouveau dossier qui se nommerait du nom de la cellule A1 soit 'coucou' pour obtenir par exemple: c:dossier/coucou/coucou.xls
merci de votre aide.

Message édité par: fifi gregre, à: 25/01/2006 22:07

 

[Temjeh]

Bonjour le forum
Et longue vie à ce site

Voici un exemple: Faire une sauvegarde avant du fichier car il save dans le même directory


A++

Temjeh [file name=Save_as_A1.zip size=8996]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Save_as_A1.zip[/file]

 

[pointdeblé]

bonjour temjeh

Je comprends pas l'histoire de save et même directory parce que c'est aussi ce que je cherche a faire mais avec deux noms différant est-ce que se serait possible avec c'est deux macro ? [file name=dossieretnom_20060125225900.zip size=8012]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/dossieretnom_20060125225900.zip[/file]

 

[FIFI GREGRE]

Salut Temjeh

Merci de ta réponse. avec ton exemple, comment mettre le fichier excel nommé q dans un dossier nommé aussi q.

 

[Temjeh]

Rebonjour
Voici une idée pour pointdeblésous le même bouton car autrement je ne sais faire)

Dim N As String
Dim bur As String
Dim nomdos As String
N = Sheets(1).Range('A1').Value & '_' & Sheets(1).Range('A2').Value & '_' & Format(Date, 'dd')
bur = ActiveWorkbook.Path
nomdos = Sheets(1).Range('A2').Value & '_' & Format(Date, 'dd')

MkDir bur & '/' & nomdos

ThisWorkbook.SaveCopyAs FileName:=bur & '/' & nomdos & '/' & N & '.xls'

Bon courage



Dieu nous a donné deux extrémités :
l'une pour s'asseoir, l'autre pour réfléchir.
La vie dépend de celle qu'on utilise :
face on gagne, pile on perd.

[Paul-Emile Victor]


A++

Temjeh
Ps: FIFI GREGRE je te reviens avec une idée

 

[Temjeh]

Voila une autre idée

A+

Temjeh [file name=Saveas_A1_B1.zip size=9985]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Saveas_A1_B1.zip[/file]

 

[pointdeblé]

désolé d'avoir été si impoli
Bonsoir FIFI GREGRE, reTemjeh et sans oublier le forum

Je te remercie beacoup du coup de pouce temjeh
et aussi FIFI GREGRE d'avoir poser cette question qui m'as permi de rebondir

bref merci a tous z'êtes super cool

 

[FIFI GREGRE]

Salut Temjeh

Un grand merci de ton aide, c'est tout à fait ce que je recherchais.
Je te souhaite une très bonne journée.
Encore merci.