Compatibilité excel 97 et 2000

[hurricane]

Bonjour tout le monde

J'ai un probleme la macro que j'ai faite bloque sous excel 97 sr2 a la ligne suivante :

Worksheets("JIT MPM Delivery Performance").Range("X24").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("D11")

alors que sous 2000 sa tourne super bien

si quelqu'un a une idée car j'ai besoin que sa fonctionne sous au moins les 2 type d'excel ( 97 et 2000 )

merci d'avance

@+

 

[Michel]

Bonjour Hurricane

je viens de tester ta procédure avec excel97 SR2 . cela fonctionne bien chez moi
pour rester sur le meme style d'écriture que ta macro j'ai utilisé :
Worksheets(1).Range("A1").Copy _
Destination:=Worksheets(2).Range("A1")
je n'ai pas rencontré de soucis


peux tu envoyer un fichier zippé sur le forum , avec l'ensemble de ta procedure , pour faire d'autres essais

bonne après midi
Michel

 

[hurricane]

Salut Michael

c'est incroyable je tombe sur l'erreur 1004 ("la methode copy de la classe range a échoué ")

voici le bout de programme qui va avec le bouton


Private Sub CommandButton1_Click()
'Mise a jour du mois D'AOUT
' Mise a jour du tableau Customers


Worksheets("JIT MPM Delivery Performance").Range("X24").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("D11")
Worksheets("JIT MPM Delivery Performance").Range("X12").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("e11")
Worksheets("JIT MPM Delivery Performance").Range("X13").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("f11")
Worksheets("JIT MPM Delivery Performance").Range("X14").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("g11")
Worksheets("JIT MPM Delivery Performance").Range("X15").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("h11")
Worksheets("JIT MPM Delivery Performance").Range("X16").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("i11")
Worksheets("JIT MPM Delivery Performance").Range("X17").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("j11")

'Mise a jour du tableau components

Worksheets("Prod Plants MPM Delivery Perf").Range("X24").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("D18")
Worksheets("Prod Plants MPM Delivery Perf").Range("X18").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("e18")
Worksheets("Prod Plants MPM Delivery Perf").Range("X19").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("f18")
Worksheets("Prod Plants MPM Delivery Perf").Range("X20").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("g18")
Worksheets("Prod Plants MPM Delivery Perf").Range("X21").Copy _
Destination:=Worksheets("Custom Compo Del Perf Tableau").Range("h18")


End Sub

Private Sub CommandButton2_Click()


etc....

 

[Michel]

rebonjour huricane

essayes d'inserer

range("A1").select en tout début de procedure


michel

 

[hurricane]

salut

oui Ok marche mes j'ai de gros carré noir qui apparaisse suivant les boutons que je selection c'est dingue excel

@+

 

[hurricane]

re-re-re-bonjour

je viens de faire une modif qui fonctionne mais je me retrouve avec des bandes noir un peu n'importe ou et qui ne corresponde pas a des casses


Worksheets("JIT MPM Delivery Performance").Range("X24").Copy
Worksheets("Custom Compo Del Perf Tableau").Range("D11").PasteSpecial Paste:=xlValues

si quelqu'un a une idée

merci d'avanec

 

[hurricane]

bonsoir forum

je me permet de réanimer mon post au cas ou quelqu'un aurait une idée

merci d'avance

@+ hurricane