kattalin1304
XLDnaute Nouveau
Bonjour,
j'ai parcouru les forums, j'ai essayé toutes mes connaissances en VBA, mais là, je cale!
Je vais tenter de la faire simple : J'ai 3 classeurs excel qui sont interactifs. Dans le 1er il y a des liens qui permettent d'ouvrir le 2eme qui lui meme ce met à jour via un 3eme. Tout fonctionne à merveille tant que je travaille sur le serveur (idem pour mes collegues). Les soucis commencent lorsque l'on passe par Intranet. Le 1er s'ouvre impeccable, mais lorsque l'on tente d'ouvrir le 2eme c'est le drame!!! La macro bloque, et affiche inévitablement "erreur 9 indice n'appartient pas a la selection". Or le classeur existe, les feuilles aussi...Voici le bout de code qui bloque (en gras là où ça coince):
Sub copie_BasePlan()
Application.ScreenUpdating = False
'ouvre plan d'action et rappatrie les données
Workbooks.Open Filename:= _
"\\w11640100aef\Plan d actions\Base_plan_actions_tampon.xls"
'copie dans processus
Windows("Base_plan_actions_tampon.xls").Activate
Sheets("Plan d'actions").Activate
'teste le filtre sur la base plan d'action
With Sheets("Plan d'actions")
If .FilterMode = True Then .ShowAllData
End With
Range("A2:O1000").Select
Selection.Copy
Windows("2 PN.xls").Activate
Sheets("bpa").Activate
Range("b5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Si quelqu'un a une idée.........Merci d'avance!
j'ai parcouru les forums, j'ai essayé toutes mes connaissances en VBA, mais là, je cale!
Je vais tenter de la faire simple : J'ai 3 classeurs excel qui sont interactifs. Dans le 1er il y a des liens qui permettent d'ouvrir le 2eme qui lui meme ce met à jour via un 3eme. Tout fonctionne à merveille tant que je travaille sur le serveur (idem pour mes collegues). Les soucis commencent lorsque l'on passe par Intranet. Le 1er s'ouvre impeccable, mais lorsque l'on tente d'ouvrir le 2eme c'est le drame!!! La macro bloque, et affiche inévitablement "erreur 9 indice n'appartient pas a la selection". Or le classeur existe, les feuilles aussi...Voici le bout de code qui bloque (en gras là où ça coince):
Sub copie_BasePlan()
Application.ScreenUpdating = False
'ouvre plan d'action et rappatrie les données
Workbooks.Open Filename:= _
"\\w11640100aef\Plan d actions\Base_plan_actions_tampon.xls"
'copie dans processus
Windows("Base_plan_actions_tampon.xls").Activate
Sheets("Plan d'actions").Activate
'teste le filtre sur la base plan d'action
With Sheets("Plan d'actions")
If .FilterMode = True Then .ShowAllData
End With
Range("A2:O1000").Select
Selection.Copy
Windows("2 PN.xls").Activate
Sheets("bpa").Activate
Range("b5").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Si quelqu'un a une idée.........Merci d'avance!