Discussion :

[drabmol]

Bonjour,

j'ai un probleme pour comparer 2 cellules de 2 fichiers differents.
J'ai un message qui dit "subscript out of range" quand je le lance.

Voici le programme: je lance une macro dans le fichier "desktop template " ouvert qui ouvre un autre fichier et essaye de comparer les cellules. Mais ca bloque sur le while avec le message en haut.
Une idée de ce qui cloche sur ce prog?

merci.

Code :

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

1
2
3
4
5
6
7
8
9
10
Workbooks.Open Filename:= _
        "\\rudfilex01\psg_emea_praproc\\DO NOT USE - commercial-procurement\06. Records -" & _
        " Commodity Management\HDD\Commodity Planning\Operationnal " & _
        "Data\Buffer measurement\Buffer DT\Safety_Stock_Supplier_attainment_DT.xls"
 
    While (Workbooks("Desktop template").Worksheets("Buff_Within_LT").Cells(6, 3).Text <> _
          Workbooks("Safety_Stock_Supplier_attainment_DT").Worksheets( _
          "Safety_Stock_History").Cells(2, coldate).Text)  And coldate < 70
        coldate = coldate + 1
    Wend

[jfontaine]

par hazard, coldate ne serait il pas a 0 au premier tour?