Creation classeur ou file

[YANN-56]

Bonsoir à tous

Par ce biais :

‘1-CREATION DU DOSSIER

Private Sub CommandButton1_Click()
MkDir "D:\" & "DOSSIER_TRUC" 'Si "D" existe dans la config.
'Attention si le dossier existe: Plantage..
'Il faut vérifier avant par une autre procédure.
End Sub


Je sais créer un dossier, mais je me heurte à celle de la création d’un
Fichier dans celui-ci ayant le nom de… xxx issu d’une Listview ou autre

A noter que cet évènement s’inscrit dans :
Application.FileSearch
.FoundFiles (i)

Et que je cherche le moyen de renommer
Le classeur initial trouvé par un préfixe (« ???? »)
Ou autre nom

Je patine Grave...

Merci d'avance si vous pouvez m'aider un p'tit peu

Yann

 

[Staple1600]

Re : Creation classeur ou file

message édité

 

[YANN-56]

Re : Creation classeur ou file

Merci Staple d'avoir pris
la pêne d'avoir lu ma demande et d'y répondre.

Ma Macro n'est que sur n'importe quel bouton
sheet ou USF...

Le "Clik" cée un dossier

Private Sub CommandButton1_Click()
MkDir "D:\" & "DOSSIER_TRUC"
End Sub

Mais par la suite, le sujet de mon souci
d'y mettre un fichier .xls avec un nom "x"

A plus, et encore Merci si tu as une réponse.

In any case, bonne fin de soirée.
Yann

 

[skoobi]

Re : Creation classeur ou file

Bonsoir,

si le nom est issue de la cellule A1:

ActiveWorkbook.SaveAs Filename:="D:\" & "DOSSIER_TRUC\" & Range("A1").Value & ".xls", FileFormat:=xlNormal

 

[YANN-56]

Re : Creation classeur ou file

Bonsoir,

si le nom est issue de la cellule A1:

ActiveWorkbook.SaveAs Filename:="D:\" & "DOSSIER_TRUC\" & Range("A1").Value & ".xls", FileFormat:=xlNormal

Enregistrer le classeur ouvert "SaveAs" est bien.
Cependant, je n'Open pas ceux-ci dans ce que je cherche.
d'autan qu'il peut y avoir autre type.

Mais, de guerre las, je vais finir par le faire.

Vive le Screen ne update pas!

Merci à toi, et bonne fin de soirée et semaine.

Yann