Eviter les .Activate

Version imprimable

Voir 40 message(s) de cette discussion en une page

Code:

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

23/09/2010, 10h54
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.
23/09/2010, 10h55
Arkham46

bjr,

Citation:

Envoyé par juju1988

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
23/09/2010, 11h02
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?
23/09/2010, 11h55
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.
23/09/2010, 12h00
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...

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:

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:

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

23/09/2010, 13h51
juju1988

Bonjour mercatog ;)

Mon classeur de travail c'est analyses.xls et j'importe ses données vers exemple.xls quand clic sur certains boutons... Mais pas sur ceux que je t'ai déjà envoyé... J'ai modifié je n'ai plus des boutons mais des listes déroulantes.

C'est donc le fichier exemple que j'ouvre dans mon code je vais essayer comme tu me dis... Et je te tiens au courant...
24/09/2010, 18h58
patricktoulon

heu
Bonjour,

bonjour

pour completer la reponse de alain tech
Code:

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
24/09/2010, 22h25
AlainTech

C'est une faute de frappe.
C'est shExemple.
27/09/2010, 08h40
juju1988
Code:

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...
27/09/2010, 11h15
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)
27/09/2010, 11h17
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...
27/09/2010, 11h31
mercatog
On affecte wbkAnalyses à l'ouverture de ton classeur Analyse (qui contient les codes).Tu peux mettre
Code:

1 2 3 4 Private Sub Workbook_Open() Set wbkAnalyses = ThisWorkbook Set shAnalyses = wbkAnalyses.Sheets("Données Rapports") End Sub
à un moment donnée, tu ouvres le classeur wbkExemple (j'écris ici l'exemple d'un bouton XXX)
Code:

1 2 3 4 Private Sub XXX_Click() Set wbkExemple = Workbooks.Open("C:\Documents and Settings\STAG3\Bureau\exemple.xls") Set shExemple = wbkExemple.Sheets("Feuil1")
du moment que tu ouvre le fichier exemple, tu auras partout tes variables instanciées.
bien sur dans un module public tu as mis les déclarations
Code:

1 2 3 4 Public wbkAnalyses As Workbook Public wbkExemple As Workbook Public shAnalyse As Worksheet Public shExemple As Worksheet
Ces déclarations sont mis uniquement dans ce module

Ok par contre pour le fichier exemple j'ai une procédure Ouvre que j'appelle quand je veux ouvrir le classeur
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Ouvre() Dim ClasseurSource As Workbook If VerifOuvertureClasseur(cCheminClasseur) Then MsgBox "Classeur déjà ouvert. Merci de patienter avant de valider votre analyse" ' End Else Set ClasseurSource = Application.Workbooks.Open(cCheminClasseur) End If End Sub
cCheminClasseur est une constante qui contient le chemin d'accès au fichier... Est ce que je peux néanmoins mettre ma déclaration dans cette procédure?
Dans ce cas là ma constante cCheminClasseur ne me sert plus à rien?

Bon cette procédure est discuter (ne me plait pas), néamoins pour l'adapter telle quelle à la proposition

Code:

1
2
3
4
5
6
7
8
9
Sub Ouvre()
If VerifOuvertureClasseur(cCheminClasseur) Then
    MsgBox "Classeur déjà ouvert. Merci de patienter avant de valider votre analyse"    '
    End
Else
    Set wbkExemple = Application.Workbooks.Open(cCheminClasseur)
    Set shExemple = wbkExemple.Sheets("Feuil1")
End If
End Sub

27/09/2010, 11h55
juju1988

Ok super merci !! Dés que j'ai un moment je met en place tout ça dans tout le code !! Merci encore ...
Pour ma procédure je l'ai prise sur ce site internet je crois... Je reste disponible par mail si tu veux en discuter

Merci encore

Je proposerai ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Ouvre()
Dim cCheminClasseur As String, Fichier As String
 
cCheminClasseur = "C:\Documents and Settings\STAG3\Bureau\"
Fichier = "exemple.xls"
 
Set wbkExemple = Nothing
On Error Resume Next
Set wbkExemple = Workbooks(Fichier)
On Error Resume Next
If wbkExemple Is Nothing Then Set wbkExemple = Workbooks.Open(cCheminClasseur & Fichier)
Set shExemple = wbkExemple.Sheets("Feuil1")
End Sub

Le fichier et le chemin doivent être valides, sinon, on devrait faire un test sur leur existence telle.

Ok merci je vais tester.
Mais là j'avoue je reprend tout mon code et ça me fait pleins de bugs notamment ici :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Function RecuperationComplete(typeAnalyse As String, nomCellule As String, formeA As Integer)

Dim recupVar As String
Dim recupVal As String

recupVar = ""
recupVal = ""

Do While i < cNumLigneFinTableau
    For i = cNumLigneDebutTableau To cNumLigneFinTableau
        Windows("analyses.xls").Activate
        If Range(nomCellule & i) <> "" Then
            Windows("exemple.xls").Activate
            'Sélectionne la première cellule du tableau
            Range("A2").Select
            
            'Boucle pour se positionner sur la première cellule vide
            Do While Not (IsEmpty(ActiveCell))
                NbLigne = NbLigne + 1
                Selection.Offset(1, 0).Select
            Loop
            
            'Première cellule on met la forme d'analyse (numéro dans Waste)
            ActiveCell.Value = formeA
            
            'Cellule suivante On récupère le numéro de lot
            ActiveCell.Offset(0, 1).Range("A1").Select
            Call recupNumLot
                        
            ActiveCell.Interior.Color = RGB(255, 255, 255) 'Passage de la cellule en blanc a enlever à la fin du développement
            
            'Cellule suivante On récupère le type d'analyse
            ActiveCell.Offset(0, 1).Range("A1").Select
            ActiveCell.Value = typeAnalyse
            
            'Cellule suivante On récupère la variable d'analyse
            ActiveCell.Offset(0, 1).Range("A1").Select
            
            Windows("analyses.xls").Activate
            recupVar = Range("A" & i).Value
            Windows("exemple.xls").Activate
            ActiveCell.Value = recupVar
            
            'Cellule suivante On récupère la valeur de la mesure
            ActiveCell.Offset(0, 1).Range("A1").Select
            
            Windows("analyses.xls").Activate
            recupVal = Range(nomCellule & i).Value
            Windows("exemple.xls").Activate
            ActiveCell.Value = recupVal
            
            ActiveCell.Interior.Color = RGB(255, 255, 255) 'Passage de la cellule en blanc a enlever à la fin du développement
            
            'Cellule suivante On récupère le numéro de commande traitement
            ActiveCell.Offset(0, 1).Range("A1").Select
            
            Windows("analyses.xls").Activate
            RecupNumCmdTraitement = Range(nomCellule & cNumLigneCmdTraitement).Value
            Windows("exemple.xls").Activate
            ActiveCell.Value = RecupNumCmdTraitement
            
        End If
     Next i
Loop

End Function

J'ai remplacé cette ligne (ligne en gras) par If shAnalyse.Range(nomCellule & i) <> "" Then cependant cela me fait une erreur :

Variable objet ou variable de bloc with non définie...

27/09/2010, 15h47
mercatog

Attendez, pas à pas
shAnalyses et wbkAnalyses sont instanciée sur l'évènement Open du classeur Analyse, c'est à dire à l'ouverture de ton classeur analyses.
De ce fait, tu as fais les modifications mais les variables ne sont pas encore initialisés.
tu fais les modifications, tu enregistre ton fichier, tu le ferme et ré ouvre. par la suite shAnalyses et wbkAnalyses seront reconues.

Voir 40 message(s) de cette discussion en une page