Référence VBA à un modèle ouvert

**drjacky** · 04/05/2010, 13h33

Bonjour à tous,

Ouvrir un modèle Excel modele.xlt à partir de l'explorateur de Windows crée un fichier modele<N>.xls avec un numéro N qui s'incrémente à chaque ouverture.
Que dois-je mettre dans ce bout de code pour accéder à la valeur d'un range donné :

Code :

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

Workbooks("?").Worksheets("une feuille").Range("A1").Value

?

Avec la syntaxe

Code :

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

Worksheets("une feuille").Range("A1").Value

, ça ne marche pas vraiment ("l'indice n'appartient pas à la sélection"), sûrement à cause de l'ambiguité (il ne sait sur quel classeur il se trouve)

Merci d'avance

Etienne

**sabzzz** · 04/05/2010, 14h10

bonjour Etienne,

en ouvrant un nouveau fichier, c'est automatiquement celui-ci qui est actif dans l'application.

Code :

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

1
2
3
Dim fichier As Object
Set fichier = ActiveWorkbook.ActiveSheet
x = fichier.Range("E1")

**drjacky** · 04/05/2010, 14h20

Bonjour et merci de ta réponse.
En fait, mon code est assez complexe et je manipule bcp de classeurs, donc il est possible que mon classeur ne soit plus actif.
Voici le code qui pose réellement problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function UpdateNbRapports(displayOnly As Boolean) As Integer
'Ici mise à jour du nombre de rapports édités
'[...]
    Select Case nbRapports
        Case 0:
            Worksheets("Scan").Range("N1").Value = "Pas de rapport"
        Case 1:
            Worksheets("Scan").Range("N1").Value = "1 rapport"
        Case Is > 1:
            Worksheets("Scan").Range("N1").Value = CStr(nbRapports) & " rapports"
    End Select
 
UpdateNbRapports = nbRapports
End Function

Quel que soit le "case" où il passe, il sort illico de la fonction, sans aller jusqu'à la ligne de retour...

Une idée ?

Merci

Etienne

A noter aussi que le problème ne se présente pas toujours...
En fait, ça semble dépendre d'où se situe l'appel de la fonction.

**sabzzz** · 04/05/2010, 14h52

bonjour Etienne,

Quel que soit le "case" où il passe, il sort illico de la fonction, sans aller jusqu'à la ligne de retour...

c'est difficile de répondre sans voir à quoi fait référence la variable nbRapports, mais si aucun cas n'est valide soit nbRapports < 0
soit nbRapports = du texte ou autre chose ?
execute le code en mode pas à pas et place ton curseur sur la variable nbRapports pour voir son contenu.

**Didier Gonard** · 04/05/2010, 15h12

Bonjour,

Que dois-je mettre dans ce bout de code pour accéder à la valeur d'un range donné :

En fait il s’agit de savoir où est le code et à qui il s’adresse ?

Le code est-il dans le classeur qui s’exécute ?

A noter que si pour faire appel au classeur qui contient le code maître, il est tout indiqué d’utiliser la propriété Thisworkbook qui te renvoie le classeur Objet qui contient le code alors que ActiveWorkbook renvoie le classeur actif, ce qui peut se révéler très aléatoire dans certaines situations…

Dans ton cas il faut donc peut-être être plus explicite et ici

Code :

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

Worksheets("Scan").Range("N1").Value = "Pas de rapport"

mettre :

Code :

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

Classeurxx.Worksheets("Scan").Range("N1").Value = "Pas de rapport"

d'un autre côté, une fonction est censée ne renvoyer qu'une valeur... donc cet extrait de code n'est pas forcément au bon endroit...

Cordialement,

Didier

**drjacky** · 04/05/2010, 15h40

@sabzzz : la variable nbRapports présente bien des valeurs cohérentes (entier), et en fait le prog entre bien dans les "case" comme il se doit. Seulement, dès qu'il passe sur la ligne de la forme :

Code :

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

Worksheets("Scan").Range("N1").Value = "Pas de rapport"

il sort tout de suite de la function.

@Ormonth : le code est situé dans un module "Utilitaires" inclus dans le workbook de modèle.
L'appel qui pose pb se trouve dans un autre module du même classeur :
dim rapports as Integer
rapports = 0
rapports = Utilitaires.UpdateNbRapports
//rapports reste à 0

Merci de vos réponses

**Didier Gonard** · 04/05/2010, 15h51

Ouvrir un modèle Excel modele.xlt

quand tu fais ça, tu ouvres effectivement un nouveau classeur qui n'a ensuite aucun rapport avec le modèle (qui lui n'a pas été ouvert, heureusement !), si ce n'est qu'il en est l'image exacte au moment de l'ouverture avant que de possibles instructions du WorkbookOpen opèrent des changements....

donc , je ne comprend pas ceci

le code est situé dans un module "Utilitaires" inclus dans le Workbook de modèle.

cordialement,

Didier

**sabzzz** · 04/05/2010, 15h53

le module "Utilitaires" est un module standard ou un module de classe ?

**drjacky** · 04/05/2010, 16h07

@Ormonth : exact, en fait je faisais allusion au classeur issu du modèle (modele1.xls)
@sabzzz : je n'ai que des modules standard dans cette appli

Merci

**Didier Gonard** · 04/05/2010, 17h48

L'important est là :

Avec la syntaxe Worksheets("une feuille").Range("A1").Value, ça ne marche pas vraiment ("l'indice n'appartient pas à la sélection")

as-tu testé ainsi :

mettre :

Code :

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

1
2
3
 
 
Classeurxx.Worksheets("Scan").Range("N1").Value = "Pas de rapport"

mets le nom du classeur avant celui de la feuille..
Le message indique qu'il ne trouve pas la feuille, mets un point d'arrêt sur la ligne et tapes ? Worksheets("Scan").Range("N1").Value dans la fenêtre d'exécution de ton éditeur vba, tu verras ce qu'il répond, attention si pas de message d'erreur et que la cellule est vide, tu auras un blanc..

Didier

**drjacky** · 10/05/2010, 09h49

Ormonth,

en fait, le problème est justement ici :

Code :

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

Classeurxx.Worksheets("Scan").Range("N1").Value = "Pas de rapport"

Etant donné que Classeurxx est un modèle, lors de son ouverture, on ne connaitra pas le nom du XLS qui est généré...
Donc difficile d'y faire référence.

Une idée ?

Merci

PS : désolé si je ne répond pas après mardi soir, ce sont mes horaires de stage qui le veulent

**Didier Gonard** · 10/05/2010, 10h01

on ne connaitra pas le nom du XLS qui est généré...
Donc difficile d'y faire référence.

Vu que c'est le classeur qui contient le code, tu peux y faire référence en tant qu'objet par ThisWorkbook (voir dans l'aide vba la différence entre Thisworkbook et ActivWorkbook).
ps : revois mon post de 15h12..

PS : désolé si je ne répond pas après mardi soir, ce sont mes horaires de stage qui le veulent

ça c'est sympa de le préciser

cordialement,

Didier