gestion de fichiers excel sous intranet

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

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!😕
 
[RESOLU] gestion de fichiers excel sous intranet

Reponse trouvée..............

En fait le code est ok. J'ai perdu un temps infini pour une simple c..... Nous travaillons en reseau et les ordinateurs sont paramétrés différemment... C'est pour cela que certains ouvraient sans probleme et d'autres pas.
Pour ceux que cela intéresse, il faut aller sur poste de travail-outils-types de fichiers-selectionner XLS -cliquer sur "avancé", et décocher ouvrir sur la meme fenetre, de ce fait tout fonctionne et les macros des différents classeurs s'executent!!!!!!!🙂
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
547
Réponses
2
Affichages
283
Réponses
17
Affichages
1 K
  • Question Question
Microsoft 365 Erreur de format
Réponses
5
Affichages
491
Retour