Macro d'enregistrement avec come nom de fichier plusieurs données de cellules

[Philippe]

Bonjour,

Comment faire pour enregistrer via une macro une seule feuille bien spécifique et pour le nom de fichier, 3 cellules de la feuille à enregistrer dont les données sont à copier et à séparer d'un tiret.

ex : avec des cellules TITI, TATA, TOTO, avoir un nom de fichier ressemblant à TITI-TATA-TOTO.XLS.

Merci d'avance pour vos réponses.

 

[elodie]

Dim NomFichier
NomFichier = Range("a1") & "-" & Range("b1") & "-" & Range("c1")

ActiveWorkbook.SaveAs "C:\Chemin\" & NomFichier & ".xls"

 

[Philippe]

Merci beaucoups Elodie.

mais comment faire pour enregistrer qu'une feuille du classeur?

Merci d'avance.

 

[mDF]

Bonsoir,


Pour enregistrer une seule feuille, faire :

Sheets("MaFeuille").Copy
ActiveWorkbook.SaveAs "C:\Chemin\" & NomFichier & ".xls"


Cordialement.
Didier

 

[Philippe]

Bonjour,

Un grand merci à tout les 2 : Elodie et Didier.

Fleurs et bouteille de vin, ou l'inverse, Oh et puis choisissez ce que vous voulez.

Merci.

Philippe.

 

[Philippe]

Bonjour,

je croyais que mes soucis étaient finis mais non, mes trois cellules :

TITI TATA TOTO

Je voulais, en suivant la méthode d'Elodie, faire un enregistrement de type C:\ 1ere lettre de titi\TITI\TITI-TATA-TOTO.xls

Mais il est apparament impossible de créé un dossier a partir de ma macro.

Si vous avez des suggestions, merci d'acvance.

Philippe.

 

[mDF]

Bonsoir Philippe et le Forum,

Pour créer un répertoire, il faut utiliser :

MKDIR "chemin complet du répertoire"


Pour reprendre ton exemple, tu peux essayer :

'Création du Répertoire s'il n'existe pas
If Dir("C:\1ere lettre de titi", vbDirectory) = "" Then
MkDir "C:\1ere lettre de titi"
End If
'Création du Sous-Répertoire s'il n'existe pas
If Dir("C:\1ere lettre de titi\TITI", vbDirectory) = "" Then
MkDir "C:\1ere lettre de titi\TITI"
End If
'Sauvegarde de la feuille
Sheets("MaFeuille").Copy
ActiveWorkbook.SaveAs "C:\1ere lettre de titi\TITI\" & NomFichier & ".xls"


Heu.... je laisse les fleurs à Elodie...

Cordialement.
Didier

 

[Philippe]

Bonjour,

un dernier message pour vous dire merci et pour conclure :

Allez, une bouteille de St Joseph (excellent vin de ma région) chacun. A boire (avec modération) sur un petit St Marcelin fatigué.

Merci encore.

Philippe.

 

[batiscaf]

Bonjour tout le monde,

je me balade à la découverte du forum et j'ai une question à propos de ce post :

si finalement de décide d'intégrer à la fin du nom du fichier (et du répertoire), la date du jour. Je crois me souvenir que l'on est bloqué par le fait que d'office la fonction "date" est sous la forme "jj/mm/aaaa".

auriez-vous une solution pour que l'on puisse incorporer lors de créations des répertoires et des fichiers, la date sous la forme "jj mm aaaa" ?

Bien cordialement.

Batiscaf.