copier coller valeur dans un nouveau classeur

[md0261]

Bonjour,

Je travaille à partir d'une base de données qui me remplie un onglet "gamme" par des recherchev.

Je voudrais faire un copier-coller valeur et mise en forme dans un nouveau classeur de cet onglet "gamme"

J'ai essayé plusieurs solutions du forum mais sans succés. !

merci de votre aide

 

[VDAVID]

Re : copier coller valeur dans un nouveau classeur

Bonjour md0261,

Tu veux copier dans un nouveau classeur ou dans un classeur déjà existant?

Un exemple de code pour copier l'onglet dans un nouveau classeur:

Option Explicit
Option Base 1
Option Compare Text


Dim Wk As Workbook, Wk1 As Workbook
Dim Ws As Worksheet, Ws1 As Worksheet
Dim i As Integer
Dim NomOnglet As String


Sub CréerClasseur()

NomOnglet = "gamme"
Set Wk = ThisWorkbook

    For i = 1 To Wk.Sheets.Count
    
        If Wk.Sheets(i).Name = NomOnglet Then Set Ws = Wk.Sheets(i)
        
    Next i
    
    Workbooks.Add
    Set Wk1 = ActiveWorkbook
    Wk1.Sheets(1).Name = NomOnglet
    Set Ws1 = Wk1.Sheets(1)
    
    Ws.Cells.Copy
    Ws1.Cells.PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    Ws1.Cells.PasteSpecial Paste:=xlPasteValues
    

End Sub

Alft +F11 ==> Insérer Module
Bonne soirée !

 

[md0261]

Re : copier coller valeur dans un nouveau classeur

Bonjour.

Merci pour la réponse rapide. Je voulais bien copier dans un nouveau classeur.
lorsque j'exécute la macro cela me créer bien un nouveau classeur avec la bonne mise en forme par contre le copier coller valeur ne fonctionne pas. mes formules restent dans les cellules.
J'ai du inverser les 2 dernières lignes du code pour que la macro fonctionne sans message erreur 1004 cette opération requière des cellules fusionnées de même taille
J'ai également un logo sous format image qui n'est pas copier.

merci pour votre aide

 

[VDAVID]

Re : copier coller valeur dans un nouveau classeur

Bonjour md0261,

Effectivement, si tu inverses les deux dernières lignes de codes, le PasteValues passe à la trappe, et c'est donc les formules qui viennent écraser les données en dur.

Essaye peut-être ce code alors:

Sub CréerClasseur()

NomOnglet = "gamme"
Set Wk = ThisWorkbook

    For i = 1 To Wk.Sheets.Count
    
        If Wk.Sheets(i).Name = NomOnglet Then Set Ws = Wk.Sheets(i)
        
    Next i
    
    Workbooks.Add
    Set Wk1 = ActiveWorkbook
    Wk1.Sheets(1).Name = NomOnglet
    Set Ws1 = Wk1.Sheets(1)
    
    Ws.Cells.Copy
    Ws1.Paste
    Ws1.UsedRange.Formula = Ws1.UsedRange.Value
    

End Sub

Normalement ça devrait fonctionner 🙂
Bonne journée

 

[md0261]

Re : copier coller valeur dans un nouveau classeur

Merci pour votre aide, la macro fonctionne très bien. cela va faciliter mon travail

Bonne journée