Discussion :

[lisedauban]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

bonjour,
autre session même ordinateur?

[Marc-L]

Bonjour,

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

[lisedauban]

@ 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

[NicolasST]

Essai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Windows("mon_fichier").Activate

en lieu et place.

[lisedauban]

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

Merci

[NicolasST]

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

[lisedauban]

@ 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

Il faut utiliser de objet VB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[lisedauban]

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.

[Marc-L]

@ 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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 …