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

juju91

XLDnaute Nouveau
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

XLDnaute Occasionnel
Bonjour,

VB:
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

XLDnaute Nouveau
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 .
1697645930516.png


Et encore un grand merci pour votre aide

Cdt
 

Eric KERGRESSE

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

VB:
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

XLDnaute Nouveau
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

XLDnaute Occasionnel
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.
 

Discussions similaires

Statistiques des forums

Discussions
313 275
Messages
2 096 759
Membres
106 744
dernier inscrit
sshkm16