Pb avec la formule "DATE"

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 7 Novembre 2006

• #2

Re : Pb avec la formule "DATE"

Bonjour,

Essaie comme ceci :

Code:

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

 

Dernière édition: 7 Novembre 2006

Vote positif 0 Vote négatif

C

Céline67

Guest

• 7 Novembre 2006

• #3

Re : Pb avec la formule "DATE"

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 7 Novembre 2006

• #4

Re : Pb avec la formule "DATE"

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

A te lire

 

Vote positif 0 Vote négatif

C

Céline67

Guest

• 7 Novembre 2006

• #5

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 ...

 

Vote positif 0 Vote négatif

C

Céline67

Guest

• 7 Novembre 2006

• #6

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 ????

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 7 Novembre 2006

• #7

Re : Pb avec la formule "DATE"

Re,

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

Code:

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

 

Vote positif 0 Vote négatif

C

Céline67

Guest

• 7 Novembre 2006

• #8

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"

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 7 Novembre 2006

• #9

Re : Pb avec la formule "DATE"

re,

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

Code:

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

A te lire

 

Vote positif 0 Vote négatif

C

Céline67

Guest

• 7 Novembre 2006

• #10

Re : Pb avec la formule "DATE"

Ok ca marche nickel!🙂

Dan, je te remercie.

 

Vote positif 0 Vote négatif