Copier /coller en valeur les données de deux feuilles qui viennent d'être déplacées [Résolu]

[Runsh63]

Bonjour,

Dans le cadre de mon travail, je suis amené à envoyer des fichiers de reporting à plusieurs équipes. J'ai donc une base Access liée à des fichiers Excel, lesquels fichiers Excel sont remplis de formules. Afin de ne pas casser ces liens, en fin de traitement, je souhaiterai automatiser la copie de deux onglets dans un nouveau classeur. Et dans ce nouveau classeur, copier et coller les cellules EN VALEUR.
J'arrive à copier mes deux onglets mais je n'arrive pas à lui faire coller en dur les valeurs. Pouvez-vous m'aider SVP ? Ci-dessous la fin de mon code :

Code :

1
2
3
4
5
6
7
8
'Copier les onglets "Expenses" et "Detail local accounts" dans un nouveau classeur
 
    Sheets(Array("Expenses", "Detail local accounts")).Copy
 
        With Sheets(Array("Expenses", "Detail local accounts"))
            .Cells.Copy
            .PasteSpecial Paste:=xlPasteValues
        End With

Je vous remercie par avance !

[Daniel.C]

Bonjour,

Essaie :

Code :

1
2
3
4
5
6
7
'Copier les onglets "Expenses" et "Detail local accounts" dans un nouveau classeur
    Dim Sh As Worksheet
    Sheets(Array("Expenses", "Detail local accounts")).Copy
    For Each Sh In Sheets
        .Cells.Copy
        .PasteSpecial Paste:=xlPasteValues
    Next Sh

[Runsh63]

Bonjour DanielC,

Tout d'abord, merci pour ton code, l'embêtant c'est que comme tel, il bloque sur

Code :

.Cells.Copy

Avec unvalid or unqualified reference

et si j'enlève les "." devant .Cells et .PasteSpecial, il me met :

Sub or Funtion not defined.

As-tu une idée de ce qu'il faut faire pour parer à cela ?

Merci de ton aide !

[MarcelG]

Bonjour à vous deux, Bonjour le Forum,

Tout d'abord, 3 remarques

1 - Si tu déclares ta variable SH comme feuille de calcul, alors il serait plus logique de balayer la collection des feuilles de calcul de ton classeur (hors graphiques)

2 - Utiliser la propriété Cells telle quelle est redondant. En effet, il n'est pas nécessaire d'actionner des millers de cellules si seulement un nombre restreint d'entre elles ne sont utilisées.

3 - Dans le code ci-dessus, il manque la méthode With

Tu peux donc coder ainsi

Code :

1
2
3
4
5
6
7
8
Public Sub ESSAI()
Dim Sh As Worksheet
For Each Sh In Worksheets
        With Sh.UsedRange
                .Value = .Value
        End With
Next Sh
End Sub

Reviens si nécessaire.

[Daniel.C]

Bonjour MarcelG,

Dans le code ci-dessus, il manque la méthode With

Au temps pour moi.

En ce qui concerne le point 1, seules deux feuilles existent dans le classeur qui vient d'être créé. Comme Runsh63 veut faire des collages valeurs, on peut présumer qu'il s'agit de feuille de travail.
En ce qui concerne le point 2, il s'agit d'une fonction intégrée Excel. Elle est instantanée et ne requiert pas plus de temps de calcul qu'une copie partielle. Pour poursuivre ta logique, il faudrait même mettre :

Code :

With Sh.UsedRange.SpecialCells(xlCellTypeFormulas)

[Runsh63]

Merci beaucoup à vous deux, ça marche parfaitement !

Bonne journée !