Discussion :

[juju1988]

Code :

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

1
2
3
4
5
6
Dim wbkAnalyses As Workbook, wbkExemple As Workbook
Dim shAnalyse As Worksheet, wbkExemple As Worksheet
Set wbkAnalyses = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\analyses.xls")
Set shAnalyses = wbkAnalyses.Sheets("Données Rapports")
Set wbkExemple = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\exemple.xls")
Set shExemple = wbkExemple.Sheets("Feuil1")

Bonjour,

J'ai ce code que j'aimerai implémenter afin de ne pas avoir à utiliser sans cesse les .Activate (Windows("exemple.xls").Activate) cependant je ne sais pas où placer cette déclaration pour pouvoir l'utiliser dans tout mon projet... J'ai essayé de le mettre dans un module à part mais cela me fait des erreurs...

Merci d'avance

[AlainTech]

Bonjour,

Les Dim en début du module principal (avant toute procédure).

Les Set en début de (donc dans) ta procédure principale ou juste avant d'en avoir besoin.

[Arkham46]

bjr,

je ne sais pas où placer cette déclaration pour pouvoir l'utiliser dans tout mon projet... J'ai essayé de le mettre dans un module à part mais cela me fait des erreurs...

si dans un autre module, il faut remplacer dim par public

[juju1988]

En fait j'ai des procédures dans ma feuille même et j'ai aussi des procédures dans 2 modules différents...
En fait je n'ai pas à proprement parler de procédure principale !

Si je met les Set que dans une procédure ça va marcher dans les autres?

[AlainTech]

Une fois que tu as assigné un objet à une variable et si cette variable est publique l'objet est accessible de partout où la variable l'est.

[juju1988]

J'ai déclaré mes variables dans un module à part et je les ai déclaré en public...
J'ai mis le set dans une de mes procédures mais si j'appelle les variables depuis une autre procédure ça ne fonctionne pas...

[mercatog]

Bonjour juju.
To classeur de travail c'est bien exemple.xls?
à u moment donnée, par un bouton tu ouvre le fichier analyse.xls, c'est ça?
Tu déclare tes variables dans un module public

Code :

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

1
2
3
4
Public wbkAnalyses As Workbook
Public wbkExemple As Workbook
Public shAnalyse As Worksheet
Public shExemple As Worksheet

Dans le code de ton bouton qui ouvre le fichier Analyse.xls

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub btnOuvrirAnalyse_Click()
'Autres déclaration sans déclarer encore une fois tes wbkAnalyses, shAnalyses, wbkExemple et shExemple
 
Set wbkAnalyses = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\analyses.xls")
Set shAnalyses = wbkAnalyses.Sheets("Données Rapports")
 
'suite du code
'.....
'par la suite et dans toutes tes fonctions et procédures du projet
'tes variables wbkAnalyses, shAnalyses, wbkExemple et shExemple
'seront bien reconnues sans les déclarer une autre fois
 
End Sub

[patricktoulon]

Bonjour,



bonjour

pour completer la reponse de alain tech

Code :

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

1
2
3
Dim wbkAnalyses As Workbook, wbkExemple As Workbook
Dim shAnalyse As Worksheet, wbkExemple As Worksheet

quand tu declare "wbkexemple as workbook
et en suite
tu declare wbkexemple as worksheet

j'espere que tu compte pas te servir de cette variable en tant que workbook


au plaisir

[AlainTech]

C'est une faute de frappe.
C'est shExemple.

[juju1988]

Code :

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

1
2
Public wbkAnalyses As Workbook, wbkExemple As Workbook
Public shAnalyse As Worksheet, shExemple As Worksheet

Oui oui c'est une erreur de frappe que j'ai corrigé juste après mais cela ne change rien à mon problème...

[mercatog]

Et quel est le problème? je crois que tu pourrais déjà t'en sortir en comprenant le code fourni (bien sûr à adapter à ton contexte)

[juju1988]

Et bien j'ai mis mes déclarations workbook et worksheet dans un module à part ... je peux changer hein...
Mais je ne sais pas où placer mes set pour qu'ils soient utilisables dans toute ma feuille et dans tous mes différents modules...