Pb avec la formule "DATE"

[Céline67]

Bonjour à tous,

J'ai une macro qui recopie une partie d'un classeur et qui la colle dans un autre classeur:

'Sélection des colonnes
cwb.Sheets("TdB").Select
cwb.ActiveSheet.Columns("A:H").Select
Selection.Copy
nwbk.Activate
ActiveSheet.PasteSpecial

cwb et nwbk sont des workbooks. le nwbk est le nouveau donc qui contient ma recopie.

Alors dans cette selection, il y a la formule DATE.
C celle ci qui me pose probleme!
Dans mon premier fichier elle vaut par exemple le 06/11/2006.
Quand la copie et le paste sont réalisés, celle-ci est modifiée à la date actuelle alors qu'il ne faudrait pas!
Comment faire?
Merci de votre aide

 

[Dan]

Re : Pb avec la formule "DATE"

Bonjour,

Essaie comme ceci :

cwb.Sheets("TdB").Select
ActiveSheet.Columns("A:H").Copy
nwbk.Activate
ActiveSheet.PasteSpecial Paste:=xlValues

N'oublie pas de déclarer les variables cwb et nwbk si ce n'est déjà fait.

Bon travail

 

[Céline67]

Re : Pb avec la formule "DATE"

ca marche pas ... ca fait erreur 1004 ...

 

[Dan]

Re : Pb avec la formule "DATE"

Peux tu me dire à quelle ligne de la macro tu as une erreur.

A te lire

 

[Céline67]

Re : Pb avec la formule "DATE"

oui bien sur!

a celle-ci:
ActiveSheet.PasteSpecial Paste:=xlValues


je veux aussi garder la mise en forme du document que je copie ...

 

[Céline67]

Re : Pb avec la formule "DATE"

pourquoi ca marche pas pour moi alors que cette opération a l'air courante ... de mettre "ActiveSheet.PasteSpecial Paste:=xlValues"
moi mon debugger s'arrete la avec l'erreur 1004 ...

sinon on ne peut pas lui dire qu'il ne calcule aucune formule avec une ligne du genre application. machin = false ????

 

[Dan]

Re : Pb avec la formule "DATE"

Re,

Oups, mets plutôt ceci à la place de l'instruction sur laquelle tu as cette erreur :

Selection.PasteSpecial Paste:=xlValues

Cette instruction colle tes données sans les formules.

Attention que la feuille dans laquelle tu vas coller ces données doit être la feuille active.


A te lire

 

[Céline67]

Re : Pb avec la formule "DATE"

donc en effet ca ne plante plus mais:
- le format et les couleurs de mes cellules ont disparu
- et la date est devenue un chiffre ... genre "39027" elle n'est donc plus du mise au format "date"

 

[Dan]

Re : Pb avec la formule "DATE"

re,

Les couleurs ? tu avais pas dit cela ....
essaie cette macro :

cwb.Sheets("TdB").Select
ActiveSheet.Columns("A:H").Copy
nwbk.Activate
With Selection
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With

A te lire

 

[Céline67]

Re : Pb avec la formule "DATE"

Ok ca marche nickel!🙂

Dan, je te remercie.