Créer fichier à partir d'un onglet

[Berg1664]

Bonjour à tous

Je fais à nouveau appel à cette belle communauté d'esprits

Ci joint le fichier Toto , j'aimerais à partir de l'onglet client créer automatiquement un fichier dans le même répertoire et dont le nom serait client.xlsx

Je sèche lamentablement

Grand merci d'avance
Berg1664

 

[joss56]

Re : Créer fichier à partir d'un onglet

Bonsoir,

Un fichier qui reprend toutes les feuilles ou seulement la feuille "Clients" ?

 

[Berg1664]

Re : Créer fichier à partir d'un onglet

Bonsoir Seulement la feuille client si'l vous plait

 

[Berg1664]

Re : Créer fichier à partir d'un onglet

D'avance merci

 

[joss56]

Re : Créer fichier à partir d'un onglet

Regarde ce fichier et dis nous si on est sur la bonne voie!

 

[Berg1664]

Re : Créer fichier à partir d'un onglet

Bonjour Joss56

Désolé sur mon PC cela bug à la deuxième ligne de code
ThisWorkbook.Sheets("Clients").Copy Before:=ActiveWorkbook.Sheets(1)
Avec le message d'erreur d'exécution suivant '100''' Excel n eparvient pas à insérer les feuilles dans le classeur de destination car il contient moins de ligne et de colonnes que la classeur source... ;-(

 

[joss56]

Re : Créer fichier à partir d'un onglet

Bonjour à tous,

Sur quelle version d'Excel utilises-tu cette macro?

 

[JCGL]

Re : Créer fichier à partir d'un onglet

Bonjour à tous,

Peux-tu essayer ceci :

Option Explicit

Sub Test()
    Application.ScreenUpdating = 0
    Sheets("Clients").Copy
    Application.DisplayAlerts = 0
    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Clients.xlsx"
    ActiveWindow.Close
    With Application
        .ScreenUpdating = 1
        .DisplayAlerts = 1
    End With
End Sub