Bonjour, je cherche à copier les valeurs d'une feuille vers un autre onglet.

Présentement je réussi à les coller, mais je veux simplement les valeurs. J'ai déjà tenté de faire pastespecial, mais cela ne m'a pas aider: le message d'erreur, impossible de coller des valeurs sur une feuille fusionner apparait

Merci beaucoup

Marie

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
    'pour savoir le nombre de feuille
    ThisWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
    nbfeuille = Worksheets.Count
 
    'copier les données de la feuille 2 vers le dernier ongle
    ThisWorkbook.Sheets(2).Cells.Copy
    ThisWorkbook.Sheets(nbfeuille).Select
    Cells.Select
    ActiveSheet.Paste
    Sheets(nbfeuille).Select
    Cells(1, 1).Select
    Application.CutCopyMode = False
 
    'donne un nom à mon onglet collé
    nomfeuille = ThisWorkbook.Sheets(2).Name
    nomfeuille = Mid(nomfeuille, 1, 3)
    ThisWorkbook.Sheets(nbfeuille).Name = nomfeuille & -2008
 
    Set nomfeuille = Nothing
 
    ' copier les données de la feuille 1 vers la feuille 2
    ThisWorkbook.Sheets(1).Cells.Copy
    ThisWorkbook.Sheets(2).Select
    Cells.Select
    ActiveSheet.Paste
    Sheets(1).Select
    Cells(1, 1).Select
    Application.CutCopyMode = False
 
    'donne un nom à mon onglet collé
    nomfeuille = ThisWorkbook.Sheets(1).Name
    nomfeuille = Mid(nomfeuille, 1, 3)
    ThisWorkbook.Sheets(2).Name = nomfeuille & 2008
 
    Set nomfeuille = Nothing