Compatibilité d'une session à une autre pour une macro sous Excel

Bonjour à tous,

Je suis confrontée à un problème pour une application d'un code VBA Excel d'un même fichier mais sur des sessions différentes (stocké sur une zone d'échange).

Quand je me connecte sur ma session, mon code fonctionne TB et la fonction "Activate" ne pose aucun problème.

Mais, lorsque un autre utilisateur lance mon programme avec sa session, le programme s'arrete sur cette ligne :

Code:

---

Workbooks("mon_fichier").Activate

---

en me disant que l'indice n'appartient pas à la selection...

Je ne comprends pas d'où vient le problème, quels paramètres ou quelle option sont à modifier ?

Mille merci pour votre aide précieuse !!

Lise

bonjour,
autre session même ordinateur?

Bonjour,

un code peut très bien se passer des affreux ralentisseurs Activate et autres Select, il s'en porte même mieux …

@ rdurupt : dans les deux cas, je m'explique :
Le programme fonctionne sur mon PC et sur ma session.
Le programme fonctionne sur un autre PC et sur ma session.
Le programme ne fonctionne pas sur un autre PC et avec une autre session.
Je n'ai pas essayé la dernière combinaison (mon PC, autre session), je vais faire ça immédiatement.

@ Marc-L : quels sont les moyens d'éviter .activate et .select ? C'est effectivement source de nombreux problèmes déjà rencontrés, s'il existe un moyen de le contourner, je suis toute ouie !

Merci

Essai

Code:

---

Windows("mon_fichier").Activate

---

en lieu et place.

@ NicolasST : la meme erreur apparait lorsque j'utilise windows("mon_fichier").activate ou workbooks("mon_fichier").activate.

Merci

Quelques questions :
y-a-t-il le chemin d'accès dans "mon_fichier",
Est-ce la macro qui ouvre "mon_fichier"?

@ NicolasTS :

Le debogueur s'arrete sur ce type de ligne : Windows("Interface_Commandes_Previsions").Activate

Certaines macros problématiques contiennent les lignes permettant l'ouverture d'un fichier :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Wbkestouvert = False For Each Wbk In Workbooks If Wbk.Name = "Previsions.xls" Then Wbkestouvert = True Next If Wbkestouvert = False Then Set Wbk_Previsions = Workbooks.Open(Filename:="\\flamenco\Echange\Prep_france\Atelier\Slotting_Mapping\Interfaces_Lise\Previsions") 'Else End If Workbooks("Previsions.xls").Activate Sheets("Previsions").Cells(1, 1).Select

---

Merci pour votre aide,

Lise

Il faut utiliser de objet VB:

Code:

---

1 2 3 4 5

Dim WbAct As Workbook Dim NewWb As Workbook Set WbAct = ActiveWorkbook Set NewWb = Workbooks.Open WbAct.Worksheets("MaFeuille").Copy After:=NewWb.Worksheets(NewWb.Worksheets.Count)

---

Merci à tous pour vos réponses,

j'ai finalement résolu mon problème en ajoutant l'extension .xls :

windows("monfichier.xls") au lieu de windows("monfichier").

De cette manière, mon programme ne beug pas ni sur ma session, ni sur celle des autres utilisateurs.

Cette solution fonctionne, mais je ne la comprends pas... Si vous pouvez éclairer ma chandelle...

Merci encore et bonne fin de journée.

Citation:

---

Envoyé par lisedauban

@ Marc-L : quels sont les moyens d'éviter .activate et .select ?Merci

---

Pour copier dans la feuille active du classeur contenant la macro une valeur d'un autre classeur :

Code:

---

1 2 3 4 5 6 7 8 9

Sub MauvaisCodeEnregistré() Workbooks("Classeur.xls").Activate Worksheets("Total").Activate Range("T10").Select Selection.Copy ThisWorkbook.Activate Range("L20").Select Selection.PasteSpecial xlPasteValues End Sub

---

Ces huit lignes de code peuvent être réduites en une seule !

Code:

---

1 2 3

Sub BonCode() [L20].Value = Workbooks("Classeur.xls").Worksheets("Total").[T10].Value End Sub

---

Travailler directement sur les objets s'avère bien plus efficace …