XL 2021 enregistrer sous une feuille définie du classeur avec nom cellule

[juju91]

Bonjour

J'aurais besoin d'aide .
j'ai un classeur qui contient plusieurs feuilles (INTER 1, INTER 2, INTER 3, INTER 4, INTER 5 etc.....)
et je souhaiterais copier une seul des feuilles et l'enregistrer dans un nouveaux classeur avec le nom d'une cellule de la feuille.
j'ai commençais a créer le code ci-dessous, mais cela ne fonctionne pas.
Pourriez vous m'indiquer ou est l'erreur

Sub INTER_1()
Dim Nomfichier As String
Sheets(Array("INTER 1")).Copy
With ActiveWorkbook
Nomfichier = ActiveSheet.Range("U7").Value
Application.DisplayAlerts = False
'.SaveAs ThisWorkbook.Path & "\Test"
.SaveAs ThisWorkbook.Path & "\ nomfichier"
Application.DisplayAlerts = True
.Close
End With
End Sub

par avance merci de votre aide.

 

[Eric KERGRESSE]

Bonjour,

Sub INTER_1()

Dim Nomfichier As String

    Sheets("INTER 1").Copy
    With ActiveWorkbook
         Nomfichier = ActiveSheet.Range("U7").Value
         '  Application.DisplayAlerts = False
         .SaveAs ThisWorkbook.Path & "\" & Nomfichier
        ' Application.DisplayAlerts = True
         .Close
    End With
    
End Sub

 

[juju91]

Bonjour
Merci beaucoup de votre aide.
est il possible d'enregistrer le nouveau fichier au format XLSM afin qu'il prenne en charge les Macros comprises dans le fichier d'origine.
apriori cela bloque l'exécution de la macro
ci-dessous le message qui bloque .

Et encore un grand merci pour votre aide

Cdt

 

[Eric KERGRESSE]

J'ai ajouté la fonction GroupeDateHeure que j'utilise pour la sauvegarde de mes fichiers.

Sub INTER_1()

Dim Nomfichier As String

    Sheets("INTER 1").Copy
    With ActiveWorkbook
         Nomfichier = ActiveSheet.Range("U7").Value
         ' .SaveAs ThisWorkbook.Path & "\" & Nomfichier, xlOpenXMLWorkbookMacroEnabled
         .SaveAs ThisWorkbook.Path & "\" & Nomfichier & " " & GroupeDateHeure, xlOpenXMLWorkbookMacroEnabled 'Nb : NomFichier ne contient pas d'extension
         .Close
    End With
    
End Sub

Function GroupeDateHeure()

Dim DateDeCreation
Dim HeureEnCours As Variant

    DateDeCreation = Year(Date) & "-" & Format(Month(Date), "00") & "-" & Format(Day(Date), "00")
    HeureEnCours = Split(Time, ":")
    GroupeDateHeure = DateDeCreation & " " & Join(HeureEnCours, "-")

End Function

 

[juju91]

Bonjour
merci
par contre le contenu de la celle "U7" n'apparait pas dans non du fichier .
est ce normale?
comment puis je mettre l'extension directement derrière le texte qui est dans la cellule "U7".
encore merci pour le temps passé sur mon problème .

Cdt

 

[Eric KERGRESSE]

Bonjour
merci
par contre le contenu de la celle "U7" n'apparait pas dans non du fichier .
est ce normale?
comment puis je mettre l'extension directement derrière le texte qui est dans la cellule "U7".
encore merci pour le temps passé sur mon problème .

Cdt

Il n'est pas nécessaire de mettre l'extension. Quant au nom du fichier, je ne peux vous aider, chez moi cela fonctionne bien.