Bonjour a tous,
je vous mets ici un code tres simple ... qui marche sur tous les ordis de ma boite sauf 1 ... celui de mon chef ...
ca bloque sur la ligne en rouge ... alors que l'on a fait des tests sur plusieurs autres, tout est nickel ...
Je ne comprends donc rien
Message d'erreur out of range ... donc d'apres mon humble expérience et mes tests il n'arrive pas a trouvé le tableau alors qu'il arrive a trouver le classeur et la feuille ...
Si vous avez des idées ? Moi je n'en ai plus ...
la version d'excel est la meme pour tout le monde excel 2002.
merci d'avance !
je vous mets ici un code tres simple ... qui marche sur tous les ordis de ma boite sauf 1 ... celui de mon chef ...
ca bloque sur la ligne en rouge ... alors que l'on a fait des tests sur plusieurs autres, tout est nickel ...
Je ne comprends donc rien
Message d'erreur out of range ... donc d'apres mon humble expérience et mes tests il n'arrive pas a trouvé le tableau alors qu'il arrive a trouver le classeur et la feuille ...
Si vous avez des idées ? Moi je n'en ai plus ...
la version d'excel est la meme pour tout le monde excel 2002.
Code:
Range("A8:E" & Range("C8").End(xlDown).Row).ClearContents
Range("G8:K" & Range("G200").End(xlUp).Row).Value = "no"
Application.AskToUpdateLinks = False
Workbooks.Open "K:\Risk Log\Risklog.xls"
Worksheets("Risk log").Activate
For i = 9 To Range("C9").End(xlDown).Row
[COLOR="Red"]Workbooks("mbr sources").Worksheets("Risks").Range("B" & i - 1).Value = Range("B" & i).Value[/COLOR]
Workbooks("mbr sources").Worksheets("Risks").Range("C" & i - 1).Value = Range("C" & i).Value
Workbooks("mbr sources").Worksheets("Risks").Range("E" & i - 1).Value = Range("J" & i).Value
next i
merci d'avance !
Dernière édition: