Création d'un classeur Génération nom

[xvella]

Bonjour Forum,
Bonjour à tous,

Je cherche à Faire une copie d'une feuille d'un classeur vers un nouveau classeur Temporaire.

Il faudrait que ce classeur temporaire ne contienne que cette feuille et que le nom de ce classeur soit :

Temporaly_Date_Heure

Ou Date et Heure serait celle de l'exécution du code.

Merci d'avance pour vos réponce.

A+

 

[Staple1600]

Re : Création d'un classeur Génération nom

Bonjour

Un essai à finaliser (mais pas le temps, je pars au boulot)

Sub test()
Dim wtmp As Workbook
Workbooks.add -4167
Set wtmp = ActiveWorkbook
Application.DisplayAlerts = False
ThisWorkbook.Sheets(1).Move before:=wtmp.Sheets(1)
wtmp.Sheets(2).Delete
Application.DisplayAlerts = True
ThisWorkbook.Close False
wtmp.SaveAs "c:\temp\" & "Temporary_" & Format(Date, "ddmmyy_") & Format(Time, "hh_mm") & ".xls"
Application.DisplayAlerts = True
End Sub

Sinon, tu peux aussi utiliser le moteur de recherche, tu trouveras des discussions proches de ta question
(et les réponses qui s'y trouvent pourront t'aider à résoudre ta question)
Mais cela tu le savais déjà puisque que tu as lu la charte du forum ...
(enfin j'espère car depuis juillet 2005, tu as en eu le loisir en tout cas 🙄 )

 

[CBernardT]

Re : Création d'un classeur Génération nom

Bonsoir à tous,

Essaye avec cette syntaxe :

Sub EnregistrerFeuille()
Dim Chemin As String, Nom As String, Fichier As String
' Chemin du répertoire du classeur de la présente macro
Chemin = ThisWorkbook.Path
' Création d'un classeur comportant la feuille active
ActiveSheet.Copy
' Nom du classeur à enregistrer
Nom = "Temporaly_" & Day(Now) & "_" & Month(Now) & "_" & Year(Now) & "_" & Hour(Now) & "h_" & Minute(Now) & "mn_" & Second(Now) & "s"
' Fichier à enregistrer
Fichier = Chemin & "\" & Nom & ".xls"
' Enregistrement
ActiveWorkbook.SaveAs Filename:=Fichier
End Sub

A noter que le répertoire sera celui du classeur source.

 

[xvella]

Re : Création d'un classeur Génération nom

Bonjour Staple1600,
Bonjour CBernardT,
Bonjour Forum,

Merci à tous les deux.

Cela marche sans problème après adaptation.

Encore merci.

Passé une bonne fin d'année.

A+++