Copier onglets sans formules

[susaita]

bonjour à tous,
sur l'exemple ci-joint je souhaite avoir un code qui me permet d'extraire dans un nouveau classeur et sans formule l'onglet Facture et l'onglet du dernier mois c'est à dire Mars-2016 sans les macros et sans les boutons

et si par exemple je rajoute un autre mois par la suite (Avril-2016) et je clique sur ce code il extraira l'onglet Facture + l'onglet avril-2016 ainsi de suite.

Merci d'avance

 

[thebenoit59]

Re : Extraire onglets sans formules

Bonjour susaita, le forum.

Je te propose le code ci-dessous :

Option Explicit

Sub ExtFac()
Dim WkFac As Workbook, ShFact As Worksheet, ShFactM As Worksheet
Dim WkNou As Workbook
Dim Repert As String, Sep As String

Set WkFac = ActiveWorkbook
Set ShFact = WkFac.Sheets("Facture"): Set ShFactM = WkFac.Sheets(Sheets.Count)

Set WkNou = Workbooks.Add
ShFact.Copy After:=WkNou.Sheets(1)
ShFactM.Copy After:=WkNou.Sheets(2)
WkNou.Sheets(1).Delete

Repert = ThisWorkbook.Path
Sep = Application.PathSeparator
    
WkNou.SaveAs Repert + Sep + "Facture " + Format(Date, "dd-mm-yy") + " - " + ShFactM.Name
WkNou.Close
End Sub

Attention à supprimer les espaces inutiles dans les noms d'onglets, ça porte à erreur sinon.

 

[susaita]

Re : Extraire onglets sans formules

bonjour thebenoit59,
ca me renvoi l'erreur que j'ai sur l'image ci-jointe

 

[thebenoit59]

Re : Extraire onglets sans formules

Et quelle est la ligne en erreur ?

 

[susaita]

Re : Extraire onglets sans formules

ShFact.Copy After:=WkNou.Sheets(1)

 

[thebenoit59]

Re : Extraire onglets sans formules

Sous quelle version d'Excel es-tu ?

 

[susaita]

Re : Extraire onglets sans formules

je travaille avec excel 2007

 

[thebenoit59]

Re : Extraire onglets sans formules

Essaye en insérant la première ligne ci-dessous dans le code.

Application.DefaultSaveFormat = xlOpenXMLWorkbook
Set WkNou = Workbooks.Add

 

[susaita]

Re : Extraire onglets sans formules

ca marche pas, problème sur cette ligne

Set ShFact = WkFac.Sheets("Facture"): Set ShFactM = WkFac.Sheets(Sheets.Count)

 

[thebenoit59]

Re : Extraire onglets sans formules

Attention à supprimer les espaces inutiles dans les noms d'onglets, ça porte à erreur sinon.

As-tu bien pris en compte la remarque ?

 

[susaita]

Re : Extraire onglets sans formules

oui,,,,,,,,,,

 

[thebenoit59]

Re : Extraire onglets sans formules

Ce fichier fonctionne parfaitement chez moi

 

[susaita]

Re : Extraire onglets sans formules

ca marche pas chez moi,,, en plus ca copie toutes les feuilles et c'est pas ce que je souhaite

 

[susaita]

Re : Copier onglets sans formules

quelqu'un peut m'aider ?

 

[DoubleZero]

Re : Extraire onglets sans formules

Bonjour à toutes et à tous,

Le code de thebenoit59 fonctionne parfaitement sur mon poste.

Une autre suggestion en pièce jointe.

A bientôt