partage classeur problème sur un poste erreur exécution 9

[phdumon]

Bonjour à tous,

J'ai créé une application en mode partagé sur plusieurs postes.

Sur un des postes, le code ci-dessous ne fonctionne pas. Il m'indique ERREUR D'EXECUTION 9.

Je ne trouve pas de solutions. Pouvez-vous m'aider? d'avance merci

Code
Dim macell As Range
Dim Macell1 As Range
ValAChercher = Worksheets("données").Range("U2")
ValAChercher1 = Worksheets("données").Range("U3")
ValAChercher2 = Worksheets("données").Range("U4")
ValAChercher3 = Worksheets("données").Range("U5")
ValAChercher4 = Worksheets("données").Range("U6")
ValAChercher5 = Worksheets("données").Range("U7")
ValAChercher6 = Worksheets("données").Range("U8")
ValAChercher7 = Worksheets("données").Range("U9")
ValAChercher8 = Worksheets("données").Range("U10")
Workbooks.Open ("R:\répertoire\répertoire\répertoire.xls")
'Cherche acte 1
With Worksheets("répertoire actes").Range("a1:h5000")
Set macell = .Find(ValAChercher, LookIn:=xlValues, lookat:=xlWhole)
Set Macell1 = .Find(ValAChercher1, LookIn:=xlValues, lookat:=xlWhole)
Set Macell2 = .Find(ValAChercher2, LookIn:=xlValues, lookat:=xlWhole)
Set Macell3 = .Find(ValAChercher3, LookIn:=xlValues, lookat:=xlWhole)
Set Macell4 = .Find(ValAChercher4, LookIn:=xlValues, lookat:=xlWhole)
Set Macell5 = .Find(ValAChercher5, LookIn:=xlValues, lookat:=xlWhole)
Set Macell6 = .Find(ValAChercher6, LookIn:=xlValues, lookat:=xlWhole)
Set Macell7 = .Find(ValAChercher7, LookIn:=xlValues, lookat:=xlWhole)
Set Macell8 = .Find(ValAChercher8, LookIn:=xlValues, lookat:=xlWhole)

'End With
Worksheets("répertoire actes").Activate
macell.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
macell.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T2")
macell.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V2")
macell.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
macell.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell1.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell1.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T3")
Macell1.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V3")
Macell1.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell1.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell2.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell2.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T4")
Macell2.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V4")
Macell2.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell2.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell3.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell3.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T5")
Macell3.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V5")
Macell3.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell3.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell4.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell4.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T6")
Macell4.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V6")
Macell4.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell4.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell5.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell5.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T7")
Macell5.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V7")
Macell5.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell5.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell6.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell6.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T8")
Macell6.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V8")
Macell6.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell6.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell7.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell7.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T9")
Macell7.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V9")
Macell7.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell7.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

Macell8.Offset(0, 1).DateValue = Workbooks("dossiers").Worksheets("données").Range("T12")
Macell8.Offset(0, 2).Value = Workbooks("dossiers").Worksheets("données").Range("T10")
Macell8.Offset(0, 3).Value = Workbooks("dossiers").Worksheets("données").Range("V10")
Macell8.Offset(0, 4).Value = Workbooks("dossiers").Worksheets("données").Range("A35")
Macell8.Offset(0, 7).Value = Workbooks("dossiers").Worksheets("données").Range("C35")

UserForm20.Hide

ActiveWorkbook.Save
macell.Activate
End With
End Sub

 

[pacoako]

Re : partage classeur problème sur un poste erreur exécution 9

es-tu certain que ce poste a accès à tous les répertoires nécessaires?