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

AIXELS · 9 Octobre 2022

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.

VB:

'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 · 9 Octobre 2022

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

Bonjour à tous,
Essaye comme ceci

VB:

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

Jacky67 · 9 Octobre 2022

Staple1600 à dit:
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 · 9 Octobre 2022

Staple1600 à dit:
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 · 10 Octobre 2022

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 · 10 Octobre 2022

AIXELS à dit:
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 · 10 Octobre 2022

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 · 10 Octobre 2022

Merci @Jacky67

AIXELS · 11 Octobre 2022

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

VB:

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 · 11 Octobre 2022

AIXELS à dit:

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

VB:

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 · 11 Octobre 2022

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

Bien cordialement.

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

AIXELS

XLDnaute Occasionnel

Pièces jointes

Jacky67

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

Jacky67

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

AIXELS

XLDnaute Occasionnel

Jacky67

XLDnaute Barbatruc

AIXELS

XLDnaute Occasionnel

Discussions similaires