Copier onglets sans formules

Le 13/04/2016 à 00:14

je suis désolé j'avais oublié ce petit point...

je ne sais pas si c'est possible de modifier le code pour répondre à ca ou si vous devez le refaire dès le début

j'espère que vous puissiez le rectifier

je m'excuse encore une autre fois

Cordialement Susaita

Le 13/04/2016 à 13:19

Bonjour

Dans l'attente du retour d'Eriic

Merci pour ta réponse mais en cliquant sur le code il me copient les onglets Facture & Mars-2016 mais il insère aussi 3 onglets : (feuil1, feuil2 et feuil3)

Les trois feuilles dont vous parlez viennent du fait que lorsque vous ouvrez un nouveau classeur, excel vous crée trois feuilles vides par d défaut. Ce n'est donc pas la macro qui est en cause

Soit il faut supprimer au travers du code, soit laisse tel quel

Pour le bouton, rajouter le code ci-dessous juste avant la ligne --> wb.SaveAs ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name

With wb.Worksheets("Facture ")
     .Shapes.SelectAll
     Selection.Delete
End With

Cordialement

edit Dan : Oups Eriic, je n'avais pas vu le post. Mais sympa effectivement...

Susaita, merci de prévenir la prochaine fois. C'est bonne pratique sur les forums de prévenir lorsque l'on fait également une même demande ailleurs

Le 13/04/2016 à 13:45

Merci beaucoup Dan,

Cordialement,

Susaita

Le 13/04/2016 à 13:50

Bonjour le fil, bonjour le forum,

Le code ci-dessous créer un classeur avec les deux onglets concernés, remplace les formules par des valeurs, supprime le bouton mais pas le code associé. Une fois terminé il te suffira d'enregistrer le fichier sans macro (.xlsx) et ça devrait marcher.

Le code associer au bouton :

Public Sub Macro1()
Dim CC As Workbook 'déclare la variable CC (Classeur Copié)
Dim F As Worksheet 'déclare la variable CC (Classeur Copié)
Dim M As Worksheet 'déclare la variable CC (Classeur Copié)

'crée un nouveau classeur avec l'onglet Facture et le dernier onglet
Sheets(Array("Facture ", Sheets(Sheets.Count).Name)).Copy
Set CC = ActiveWorkbook 'définit la classeur copié CC
Set F = CC.Sheets("Facture ") 'définit l'onglet F
Set M = CC.Sheets(2) 'd''efinit l'onglet M
F.Select 'sélectionne l'onglet F
F.Shapes.Range(Array("Button 1")).Select 'sélectionne le bouton
Selection.Delete 'supprime le bouton
F.Cells.Copy 'copie toutes les cellules
F.Range("A1").PasteSpecial (xlPasteValues) 'colle les valeurs en A1
F.Range("A1").Select 'sélectionne la cellule A1
M.Select 'sélectionne l'onglet F
M.Cells.Copy 'copie toutes les cellules
M.Range("A1").PasteSpecial (xlPasteValues) 'colle les valeurs en A1
M.Range("A1").Select 'sélectionne la cellule A1
F.Select 'sélectionne l'onglet F (facultatif)
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
End Sub

Le fichier :

19susaita-v01.xlsm (24.49 Ko)

Le 13/04/2016 à 15:03

Merci beaucoup THAUTHEME pour ta réponse

Le 13/04/2016 à 15:09

Il te faut combien de versions pour demander la même chose dans plusieurs topics de différents forums ?

Mis à part le manque de correction tu risques qu'on ne regarde même plus tes questions pour ne pas chercher pour rien, réfléchis-y...

Le 13/04/2016 à 20:09

Bonjour à tous,

Je rejoins Eriiic sur sa position et pour ma part, je ne suis plus le sujet.

De plus, pour info il envoie aussi des MP,

Cdlt.