[Excel] Problème d'activation de Workbook

Version imprimable

Bonjour,

J'ai eu une désagréable surprise. J'explique la situation :
1) J'ai géré l'événement d'activation d'une des feuilles de mon classeur actif (la n°5) :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_Activate() Dim Current_File As String Current_File = ActiveWorkbook.Name Dim file As String file = ThisWorkbook.GetStatusFile() If ThisWorkbook.IsFileOpen(file) Then Else Workbooks.Open (file) Workbooks(Current_File).Activate End If End Sub
Où IsFileOpen() retourne vrai si le fichier passé en paramètre est déjà ouvert.
Indépendamment ça marche très bien : ouverture du fichier s'il n'est pas déjà ouvert puis retour sur le classeur initial.

2) J'ai créé une macro qui insère une ligne dans plusieurs feuilles de mon classeur actif :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 Sub InsererLigne() Dim NumRow As Long, LastNumRow As Long Dim InitSheet As String NumRow = ActiveCell.Row ' line number InitSheet = ActiveSheet.Name ' Name of sheet were we are on beginning '***** Feuille 1 Sheets("Feuil1").Activate 'On insère la ligne sélectionnée Rows(NumRow).Select Selection.Insert Shift:=xlDown [...] '***** Feuille 5 Sheets("Feuil5").Activate 'On insère la ligne sélectionnée Rows(NumRow).Select Selection.Copy Selection.Insert Shift:=xlDown '***** On revient sur la feuille initiale Sheets(InitSheet).Activate End Sub
Le problème intervient quand on arrive sur la ligne

Code:

Sheets("Feuil5").Activate

et que le fichier n'est pas déjà ouvert :

Code:

ThisWorkbook.IsFileOpen(file) = false

On rentre alors dans le code de la méthode Worksheet_Activate placée plus haut et en fait, celle-ci s'arrête au niveau du

Code:

Workbooks.Open (file)

Quelqu'un peut-il me dire pourquoi et comment contourner ce problème, s'il vous plaît? Je ne comprends pas ce qui bloque...

Merci d'avance.

19/12/2006, 17h56
ouskel'n'or

Oui, tu utilises un mot clé comme variable (file). VBA n'aime pas du tout. Remplace File par "NomFich" ou ce que tu veux. FileName est aussi un mot clé ;)
Tu dis
A+
20/12/2006, 11h09
seiryujay

Euh ben non, c'est pas ça. J'ai quand même fait la modif, mais ça exécutait la ligne

Code:

Workbooks.Open (file)

mais ça ne faisait pas la suite.
Je me suis dit que ça venait de la ligne

Code:

Workbooks(Current_File).Activate

, mais je l'ai remplacée par

Code:

MsgBox "toto"

et la boîte de dialogue n'apparaît pas.

Bon comme je suis le roi de l'esquive, j'ai contourné le problème en faisant mes insertions sans sélectionner les différentes feuilles.

Mais je serai quand même curieux de savoir pourquoi la version initiale ne fonctionnait pas... (et c'est pour ça que je ne mets pas le tag "Résolu" :P )
20/12/2006, 12h04
ouskel'n'or

Tu emploies Thisworkbook or, regarde l'aide :

Citation:

Cette propriété renvoie un objet Workbook qui représente le classeur dans lequel s'exécute le code de la macro en cours. En lecture seule.

Le résultat, ton test te renseigne sur le fichier contenant les macro, pas sur le fichier que tu souhaites ouvrir. Jète un oeil dans l'aide, un exemple t'éclairera :

Code:

ThisWorkbook.DialogSheets(1).Show

Citation:

Cette propriété ne peut être utilisée qu'à partir de Microsoft Excel. Il est impossible de l'utiliser pour accéder à un classeur à partir d'une autre application.

Remplace Thisworkbook par WorkBooks(NomFich)
Et NomFich, récupère-le ailleurs que dans ta ligne

Citation:

file = ThisWorkbook.GetStatusFile()

A+

Je ne vois pas trop en quoi l'utilisation de ThisWorkbook pose problème ici...
Voici le code de ma méthode IsFileOpen :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 ' Méthode permettant de savoir si un fichier est déjà ouvert Public Function IsFileOpen(filename As String) Dim filenum As Integer, errnum As Integer On Error Resume Next filenum = FreeFile() Open filename For Input Lock Read As #filenum Close filenum errnum = Err On Error GoTo 0 Select Case errnum Case 0 IsFileOpen = False Case 70 IsFileOpen = True Case Else Error errnum End Select End Function
qui est définie dans ThisWorkbook.

Mon test passe bien, c'est ensuite que ça ne fonctionne plus correctement, lorsque j'utilise justement les Workbooks (et que l'évènement d'activation de feuille dans lequel se situe mon code est lancé depuis une macro) .