Discussion :

[mmanta1]

Bonjour à tous,

Je sollicite encore une fois votre aide.
Je veux copier les valeurs que contient une cellule d'un classeur dans un deuxième classeur. Cela fonctionne, mais quand on va sur la barre des formules, on voit le lien et je ne veux pas.

Voici un bout de ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
     Dim Jour As Variant
     Jour = Array("Lu", "Ma", "Me", "Je", "Ve", "Sa", "Dim")
     For Each J In Jour
 
     Workbooks(FilenameI).Activate
     Sheets(J).Activate
     Range("C1:D1").Copy
     Workbooks(FilenameO).Activate
     Sheets(J).Activate
     Range("C1:D1").Select
     ActiveSheet.PasteValues

Merci pour votre aide.

[mayekeul]

Bonjour,

ce code devrais le faire.

Code :

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

1
2
3
4
5
6
     Dim Jour As Variant
     Jour = Array("Lu", "Ma", "Me", "Je", "Ve", "Sa", "Dim")
     For Each J In Jour
 
     Workbooks(FilenameI).Sheets(J).Range("C1:D1").Copy
     Workbooks(FilenameO).Sheets(J).Range("C1:D1").PasteSpecial xlPasteValues

[mmanta1]

Bonjour,

Cela marche, mais elle ne prend pas le format date.

Comment faire pour que cela colle aussi le format?

[mayekeul]

remplace cette ligne

Code :

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

Workbooks(FilenameO).Sheets(J).Range("C1:D1").PasteSpecial xlPasteValues

par

Code :

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

Workbooks(FilenameO).Sheets(J).Range("C1:D1").PasteSpecial  xlPasteValuesAndNumberFormats

[mmanta1]

Merci beaucoup ca marche!!!!

a++++

[mayekeul]

de rien, avec plaisir!