Extraire une feuille d'un classeur et le usage du formulaire

Bonjour à toutes et à tous. J'espère que vous vous portez bien.

J'ai deux préoccupations.

Dans un premier temps, je souhaiterais, après avoir édité un tableau, extraire la feuille qui le contient, sans les mises en forme et formules (exceptées les bordures). Pour le moment, j'en suis juste à extraire la feuille, mais avec tout son contenu (feuille protégée, formules, mise en forme...) avec le code ci-dessous

Sub SAVE()

Sheets("Form").Copy
Range([A1], ActiveSheet.UsedRange).Copy
Repertoire = "C:\Users\TECHNO\Desktop\Formulaire"

If Dir(Repertoire, vbDirectory) = "" Then MkDir Repertoire
ActiveWorkbook.SaveAs Repertoire & "\" & "Doc" & Range("N31") & ".xls"
ActiveWorkbook.Close

End Sub

Dans un second temps, j'édite des tableaux avec un formulaire (VBA). Lors de l'insertion des données, la police ne respecte pas la mise en forme de destination. Je suis donc obligé de faire ça manuellement. Je ne voudrais pas le faire. Y a-t-il un moyen de dire à VBA d'insérer les données en respectant la mise en forme de de destination?

Merci d'avance pour vos généreuses contributions.

Bonjour, j'espère que vous vous portez bien.

Juste piur relance par rapport aux préoccupations ci-dessus.

A vous lire

Hello,

Pour le point 1

Pour le point 2

tu peux modifier la valeur de la police comme ceci :

 'Modifier la police de caractères des cellules A1 à A8
    Range("A1:A8").Font.Name = "Arial"

R@g

Bonjour, veuillez trouver en pièce jointe le fichier.

C'est la feuille à l'état de l'extraction, avec des formules et tout le décors.

Je souhaiterais qu'à l'extraction, il n'y ait plus de formule, de boutons, bref, je souhaiterais n'avoir que la partie avec du contenu, sans arrière-plan

Tu parles de quelle feuille ? Il y en a 3

Bonjour. J'espère que vous vous portez bien.

Erreur de fichier, désolé. En pièce jointe le bon

Bien cordialement

Hello,

Ce code copy ton tableau en valeur dans une autre feuille, la 2eme feuille

Range("A1:K41").Copy
Sheets(2).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Merci pour l'intérêt.

Mais je souhaiterais faire la copie sur un nouveau classeur, c'est ce que fait le code que j'ai partagé plus haut, sauf qu'il prend tout le contenu de la feuil.

Je vais tout de même utiliser ton code. Seulement, si tu trouves ce que je recherche, je suis preneur.

Encore une fois, merci.

Hello,

Tu peux utiliser ceci :

         Dim xWs As Worksheet
    Dim Rng As Range
    Set Rng = Range("A1:K41")
    Application.Workbooks.Add
    Set xWs = Application.ActiveSheet
    Rng.Copy
    Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False