XL 2019 Sauvegarder un onglet , sous fichier du même nom

[AIXELS]

Bonjour à tous les amis du Forum.
J'ai trouvé une macro qui me conviendrait pour ce que je veux faire.
J'aurais aimé exporter l'onglet "CLIENTS" et le sauvegarder en fichier
sous le nom CLIENTS.
J'ai essayé, il me sauvegarde mon fichier complet sous le nom CLIENTS
et il a crée une feuille CLIENTS mais ne la sauvegarde pas. Elle reste en
attente et ferme mon fichier initial qu'il a renommé CLIENTS.
Je ne vois pas où ça pêche.

'Exporter l'onglet "CLIENTS" (Sauvegarde sous le nom de l'onglet)
Sub export_onglet()
    CheminAppli = ActiveWorkbook.Path
    Application.DisplayAlerts = False
    For i = 6 To Sheets.Count
        Sheets(i).Select
        nonglet = ActiveSheet.Name
        ActiveSheet.Copy
        ActiveWorkbook.SaveAs Filename:=CheminAppli & "\" & nonglet
        ActiveWindow.Close
    Next i
End Sub

Merci pour votre aide.
Bien cordialment.

 

[Jacky67]

J'aurais aimé exporter l'onglet "CLIENTS" et le sauvegarder en fichier
sous le nom CLIENTS.

Bonjour à tous,
Essaye comme ceci

Sub export_onglet()
    Application.DisplayAlerts = False
    Sheets("CLIENTS").Copy
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets("CLIENTS").Name, FileFormat:=51
    ActiveWindow.Close
End Sub

 

[Jacky67]

Bonsoir @Jacky67

J'allais le dire

NB: Et s'il y a des macros dans la feuille CLIENTS ?

Hello JM
Si l'on veut conserver des éventuelles macros de la feuille enregistrée
..... , FileFormat:=51
devient
.... , FileFormat:=52
Mais je suis certain que tu le savais déjà

 

[Jacky67]

Re

Oui, ca je le savais
mais ce que je ne sais pas c'est si le code d'AIXEL est un hommage déguisé à Boucle d'Or ou pas ?

Pourquoi cette boucle pour enregistrer un seul onglet ?

Re..
C'est une macro récupérée...
Attendons que AIXEL termine son apéro/diner/sieste/sieste* améliorée/etc

 

[AIXELS]

Bonjour @Jacky67 et tous les Amis du Forum.
Merci @Jacky67 pour ton retour et ton aide.
Tout fonctionne très bien

Si l'on veut conserver des éventuelles macros de la feuille enregistrée
..... , FileFormat:=51
devient
.... , FileFormat:=52
Mais le suis certain que tu le savais déjà

J'ai appris une chose de plus grâce à toi.
Je ne suis pas encore à ce niveau.
Encore une fois merci.
Bien cordialement.

 

[Jacky67]

Bonjour @Jacky67 et tous les Amis du Forum.
Merci @Jacky67 pour ton retour et ton aide.
Tout fonctionne très bien

J'ai appris une chose de plus grâce à toi.
Je ne suis pas encore à ce niveau.
Encore une fois merci.
Bien cordialement.

Re..
Pour voir les formats d'enregistrement (pour mettre dans la boite à idées)
https://learn.microsoft.com/fr-fr/office/vba/api/excel.xlfileformat

 

[Staple1600]

Bonjour

Heureusement que @Jacky67 m'a vu passé dans le fil

@AIXELS
Tellement débordé, que tu n'avais pas le temps de me saluer ?
(voir message#2 qui attends toujours un feedback de ta part)

 

[AIXELS]

Merci @Jacky67

 

[AIXELS]

Bonjour @Jacky67
je reviens vers toi, en voulant ajouter le chemin de sauvegarde
de la base CLIENTS, j'obtiens un message d'erreur.

Sub export_onglet()
    Application.DisplayAlerts = False
    
   Chemin = "D:\XXXXX\SAUVEGARDES\BASE CLIENTS\"
    
    Sheets("CLIENTS").Copy
'    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets("CLIENTS").Name, FileFormat:=51
' Ligne que j'ai adaptée.
     ActiveWorkbook.SaveAs Chemin & "\" & Sheets("CLIENTS").Name, FileFormat:=51
    
    ActiveWindow.Close
    
    MsgBox Buttons:=vbInformation, Prompt:="La sauvegarde de la base CLIENTS" & vbNewLine & _
                                            Space(6) & "s'est déroulée avec succès", Title:="Pour info"
End Sub

Merci pour ton aide.
Bien cordialement.

 

[Jacky67]

Bonjour @Jacky67
je reviens vers toi, en voulant ajouter le chemin de sauvegarde
de la base CLIENTS, j'obtiens un message d'erreur.

Sub export_onglet()
    Application.DisplayAlerts = False
   
   Chemin = "D:\XXXXX\SAUVEGARDES\BASE CLIENTS\"
   
    Sheets("CLIENTS").Copy
'    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sheets("CLIENTS").Name, FileFormat:=51
' Ligne que j'ai adaptée.
     ActiveWorkbook.SaveAs Chemin & "\" & Sheets("CLIENTS").Name, FileFormat:=51
   
    ActiveWindow.Close
   
    MsgBox Buttons:=vbInformation, Prompt:="La sauvegarde de la base CLIENTS" & vbNewLine & _
                                            Space(6) & "s'est déroulée avec succès", Title:="Pour info"
End Sub

Merci pour ton aide.
Bien cordialement.

Re

Si chemin comporte l'antislash à la fin
Chemin = "D:\XXXXX\SAUVEGARDES\BASE CLIENTS\"
Il faudra supprimer celui entre "Chemin et Sheets(......"
ActiveWorkbook.SaveAs Chemin & "\" & Sheets("CLIENTS").Name, FileFormat:=51
devient
ActiveWorkbook.SaveAs Chemin & Sheets("CLIENTS").Name, FileFormat:=51
Il faut évidemment que les "sous répertoire" de Chemin existent

 

[AIXELS]

Bonjour @Jacky67
Merci pour ton aide, tout est rentré dans l'ordre.
Tout fonctionne très bien.
Bien cordialement.