Discussion :

[pate_a_tarte]

Bonjour,

Habituellement, lorsque je veux copier des valeurs, j'utilise l'astuce présentée dans la rubrique de la FAQ intitulée "Peut on effacer les formules pour ne garder que les valeurs ?", soit :

Code :

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

Range("F1:H20").Value = Range("F1:H20").Value

Cette astuce fonctionne aussi lorsqu'on veut copier les données vers un autre onglet, mais plus vers un autre classeur.
Exemples :

Code :

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

Sheets(2).Range("A1:C5").Value = Sheets(1).Range("A1:C5").Value 'OK

Code :

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

Windows("Classeur2").Sheets(2).Range("A1:C5").Value = Windows("Classeur1").Sheets(1).Range("A1:C5").Value 'KO

Existe-t-il un moyen de généraliser ce fonctionnement ?

Merci d'avance de vos réponses.

[EngueEngue]

va voir du coté de pastespecial xlvalues

[Oliv-]

Salut,
tu ne dois pas utiliser windows, mais workbooks
et il vaut mieux utiliser le nom de tes feuilles que le numéro d'index, qui il me semble peuvent changer si on tri les onglets.

Moi j'utilises .Value2 au lieu de .Value
attention aussi au format de la cellule selon ce que tu veux

Code :

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

1
2
 
Workbooks("Classeur2").Sheets(2).Range("A1:C5").Value = Workbooks("Classeur1").Sheets(1).Range("A1:C5").Value

en mieux

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
Sub copie_entre_fichiers()
Dim WKdest As Workbook
Dim WKOrig As Workbook
Dim Wsdest As Worksheet
Dim WsOrig As Worksheet
 
Set WKdest = Workbooks("Classeur2")
Set WKOrig = Workbooks("Classeur1")
 
 
Set Wsdest = WKdest.Sheets("feuil2")
Set WsOrig = WKOrig.Sheets("feuil1")
 
'ou
'
'Set Wsdest = Workbooks("Classeur2").Sheets("feuil2")
'Set WsOrig = Workbooks("Classeur1").Sheets("feuil1")
 
 
Wsdest.Range("A1:C5").Value = WsOrig.Range("A1:C5").Value2
 
End Sub

[pate_a_tarte]

Merci Oliv- pour tes explications qui m'ont permis de résoudre mon problème.

Utilisation du numéro d'index dans mes onglets
Je te confirme que l'index dépend de l'ordre de rangement des onglets dans le classeur. Il m'arrive de jouer avec dans mes macros, lorsque je ne peux utiliser les noms des onglets.
Dans le cas présent, j'ai utilisé les index pour que le code marche toujours lorsque les onglets par défaut sont nommés "sheet1", "sheet2", etc.

.Value versus .Value2
Merci pour ton conseil. Je ne connaissais pas .Value2.
Toutefois, mes données contenant des dates, je vais garder les .Value.

Have a nice day, you too.