Discussion :

[Invité]

Bonjour,

Je souhaiterais copier certaines feuille s (de la numéro 20 jusqu’à la fin)
Et les coller dans un nouveau classeur. (Copie du format et de la valeur pour éviter les formules)
Vous trouverez ci-dessous mon code, qui malheureusement ne fonctionne pas.
Pouvez-vous m’aider s’il vous plait ?

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
36
37
38
39
Function CopieFeuille()
Dim nbreFeuille As Byte, compteurFeuilleACopier As Byte, compteurFeuilleAColler As Byte
Dim feuilleACopier, nomFeuille As String, classeurAColler
 
 
Application.ScreenUpdating = False
nbreFeuille = ThisWorkbook.Sheets.Count
compteurFeuilleACopier = 20
 
Application.Workbooks.Add
 
classeurAColler = ActiveWorkbook.Name
 
For compteurFeuilleACopier = 20 To nbreFeuille
compteurFeuilleAColler = 1
Workbooks("Base 2016.xlsm").Activate
Set feuilleACopier = ActiveWorkbook.Sheets(compteurFeuilleACopier)
nomFeuille = ActiveSheet.Name
 
 
feuilleACopier.Cells.Copy
 
With Workbooks(classeurAColler).Sheets(compteurFeuilleAColler).Cells
.PasteSpecial Paste:=xlPasteAll
.PasteSpecial Paste:=xlPasteValues
 
ActiveSheet.Name = nomFeuille
Application.Worksheets.Add (after)
 
compteurFeuilleAColler = compteurFeuilleAColler + 1
 
End With
 
Next
Application.CutCopyMode = False
 
Workbooks(classeurAColler).SaveAs nom & "xlsx"
 
End Function

[goldstar]

Bonjour,

A tester

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
 
 
Function CopieFeuille()
 
Dim fichierSource As String, fichierCible As String
 
Dim nbreFeuille As Byte, compteurFeuilleACopier As Byte, compteurFeuilleAColler As Byte
Dim feuilleACopier, nomFeuille As String, classeurAColler
 
nom = "TEST"
 
fichierSource = ActiveWorkbook.Name
nbreFeuille = ActiveWorkbook.Worksheets.Count
compteurFeuille = 20
 
Application.Workbooks.Add
fichierCible = ActiveWorkbook.Name
 
compteurFeuilleAColler = 0
 
For compteurFeuilleACopier = 20 To nbreFeuille
    compteurFeuilleAColler = compteurFeuilleAColler + 1
    feuilleACopier = Workbooks(fichierSource).Sheets(compteurFeuilleACopier).Name
 
 
    Workbooks(fichierSource).Sheets(feuilleACopier).Copy After:=Workbooks(fichierCible).Sheets(compteurFeuilleAColler)
 
Next compteurFeuilleACopier
 
Application.CutCopyMode = False
 
Workbooks(classeurAColler).SaveAs nom & "xlsx"
 
End Function

Cordialement,

[RyuAutodidacte]

bonjour,
Autre solution, copier le classeur et supprimer les feuilles de 1 à 19

[Invité]

Merci pour vos réponses.

Mais comment je peux faire pour n'avoir que les valeurs dans les feuilles copiées 20 à 35 (la fin).
Car il y a des "recherchesV" qui lient ces feuilles avec celles de 1 a 19 inclus.

[RyuAutodidacte]

Si tu n'as plus besoin du recherchev mais seulement de la valeur du recherchev
tu copies les valeurs au même emplacement de ta feuille
par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("toto").Range("A1:C25").value = Sheets("toto").Range("A1:C25").value

la formule du recherchev est supprimée mais on a gardé sa valeur
C'est comme si tu faisait manuellement un copier / coller spécial => "valeur" sur place

[Invité]

Merci a tous