Discussion :

[flolou]

Bonjour,

Je cherche à créer une macro qui me permette d'éclater un fichier de données en plusieurs fichiers.
Cela marche pas mal, sauf que j'ai un problème de nom de classeur.
J'aimerais nommer le classeur nouveau avec le contenu d'une cellule, afin de pouvoir faire des copier/coller de données vers les différents classeurs.
Merci de m'aider en me donnant une piste de recherche.

Toutes les réponses que vous m'avez données sur d'autres problèmes ont été supers !

Merci

[Chipss]

Hmm je pense que quelquechose de ce genre la devrait pouvoir repondre à ton besoin:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
FicName = FicName & Sheets(feuille_de_travail).Range("libele")
FicName = FicName & ".xls"
Mypath = ThisWorkbook.path & FicName
 
If Nom_Fichier_courant <> FicName Then
    ActiveWorkbook.SaveAs Filename:=Mypath, _
    FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
    ReadOnlyRecommended:=False, CreateBackup:=False, ConflictResolution:=xlLocalSessionChanges
End If

Apres à toi d'adapter les prametres de SaveAs suivant ce que tu veux faire.


Chipss

[simpson79]

Bonsoir,

je ne sais pas si cette indication peut t'aider :
- en VBA, tu ne peux pas renommer un classeur ouvert. Il faut absolument que ce classeur soit fermé pour pouvoir changer son nom. L'explication est que lorsque le classeur est fermé, il est considéré comme un fichier donc tu peux le renommer avec les commandes de fichiers. Il y a un très bon tuto dessus dans la rubrique Tutoriels.

A ta place, je copierai la valeur de ta cellule dans une variable, je copierai le nom du Workbook que tu veux modifier, je m'assurerai que le classeur que tu veux renommer soit bien fermer et ensuite je nommerai le nom de ton fichier avec la variable.

Voilà, je ne sais pas si çà t'avance.

Cdlt
Simpson79