erreur 91 variable objet ou variable de bloc with non définie

**ballantine's** · 03/12/2009, 12h05

Bonjour,

j'ai un fichier Excel qui va piocher des données statistique dans différents fichier pour les rassembler dans un fichier global grâce à un module VBA...Je le fais pour chaque mois. Et aujourd'hui je suis passé au mois de décembre et j'ai cette erreur 91.

Voici mon code

Code :

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

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
 
 
    Dim wSy As Excel.Workbook 'objet classeur synthese simm rc mob
    Dim shSy As Excel.Sheets
    Dim sSy As Excel.Worksheet
    Dim rSy As Excel.Range
 
    Dim ligne_cibleMob As Integer
    Dim ligne_cibleRc As Integer
    Dim colonne_jour As Integer
    Dim TabMoisOnglet(1 To 12) As String
 
    Dim i As Integer
 
    TabMoisOnglet(1) = "Janvier 2009"
    TabMoisOnglet(2) = "Février 2009"
    TabMoisOnglet(3) = "Mars 2009"
    TabMoisOnglet(4) = "Avril 2009"
    TabMoisOnglet(5) = "Mai 2009"
    TabMoisOnglet(6) = "Juin 2009"
    TabMoisOnglet(7) = "Juillet 2009"
    TabMoisOnglet(8) = "Aout 2009"
    TabMoisOnglet(9) = "Septembre 2009"
    TabMoisOnglet(10) = "Octobre 2009"
    TabMoisOnglet(11) = "Novembre 2009"
    TabMoisOnglet(12) = "Décembre 2009"
 
 
    Set wSy = Application.Workbooks.Open(synthesesimm_file)
    Set shSy = wSy.Sheets
 
    'recherche de l'onglet du mois et init des objets
    i = 0
    Do While i < shSy.Count
        i = i + 1
        If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then
            Set sSy = wSy.Worksheets(i)
            Set rSy = sSy.Range("A1:Z100")
            i = shSy.Count
        End If
    Loop
 
    'recherche des lignes rc et mob à compléter
    ligne_cibleRc = "1"
    colonne_jour = "2"
    Do Until rSy(ligne_cibleRc, colonne_jour).Value = JourInt
        ligne_cibleRc = ligne_cibleRc + 1
    Loop
 
    ligne_cibleMob = ligne_cibleRc + 1
    Do Until rSy(ligne_cibleMob, colonne_jour).Value = JourInt
        ligne_cibleMob = ligne_cibleMob + 1
    Loop
 
    'copie des variables
    rSy(ligne_cibleRc, 6).Value = Prod_moy_realisee_simm_rc
    rSy(ligne_cibleRc, 7).Value = Prod_moy_prevue_simm_rc
 
    rSy(ligne_cibleRc, 3).Value = Tps_log_realise_simm_rc
    rSy(ligne_cibleRc, 3).NumberFormatLocal = "[h]:mm:ss"
 
    rSy(ligne_cibleRc, 4).Value = Tps_log_prevu_simm_rc
    rSy(ligne_cibleRc, 4).NumberFormatLocal = "[h]:mm:ss"
 
    rSy(ligne_cibleMob, 6).Value = Prod_moy_realisee_simm_mob
    rSy(ligne_cibleMob, 7).Value = Prod_moy_prevue_simm_mob
 
    rSy(ligne_cibleMob, 3).Value = Tps_log_realise_simm_mob
    rSy(ligne_cibleMob, 3).NumberFormatLocal = "[h]:mm:ss"
 
    rSy(ligne_cibleMob, 4).Value = Tps_log_prevu_simm_mob
    rSy(ligne_cibleMob, 4).NumberFormatLocal = "[h]:mm:ss"
 
 
    wSy.Close True
    Set wSy = Nothing
    Set shSy = Nothing
    Set sSy = Nothing
    Set rSy = Nothing
 
End Sub

Si vous pouviez m'aider, parce que là je vois pas trop, sachant que je n'ai pas de boucle with, il y a une variable qui doit posé prbolème mais je vois pas laquelle.

Merci.

**Pierre Fauconnier** · 03/12/2009, 12h18

Bonjour

Sur quelle ligne?

**Fvandermeulen** · 03/12/2009, 13h19

Bonjour,

En attendant la réponse à la question de Pierre Fauconnier je me lance à l'aveugle et je tente le coup sur le nom de la feuille de Décembre 2009.
Peut-être un accent manquant ? En tout cas je soupçonne une différence de syntaxe entre TabMoisOnglet(12) et le nom réel de la feuille.

A+

**Pierre Fauconnier** · 03/12/2009, 13h29

Salut Frédéric,

Au départ, j'ai pensé comme toi, mais on aurait alors une erreur 9 Indice n'appartient pas à la sélection...

Cela étant, le code utiliser shSy en tant que collection Sheets, mais dans la boucle, on pointe vers la collection WorkSheets => problème potentiel s'il y a des feuilles de graphique dans le classeur, mais à nouveau, cela ne donnerait pas une erreur 91...

Cela étant, s'il n'y a que des worksheets, la boucle

Code :

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

Do While i < shSy.Count

doit s'écrire

Code :

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

Do While i <= shSy.Count

pour passer aussi sur Décembre, et c'est de là que vient le problème.

Il faudrait corriger la sortie de boucle par un

Code :

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

exit do

plutôt qu'en attribuant une "valeur de sortie" à i

**ballantine's** · 03/12/2009, 13h29

Ah oui désolé d'avoir oublié de préciser...à la ligne là

Code :

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

1
2
 
Do Until rSy(ligne_cibleRc, colonne_jour).Value = JourInt

Pour ce qui est du nom de feuille cela correspond bien au niveau des noms

**Pierre Fauconnier** · 03/12/2009, 13h38

Corrige avec les indications que je t'ai fournies, je pense que cela devrait aller

**ballantine's** · 03/12/2009, 13h41

Au lieu de $i = shSy.count je mets exit do c'est ça?

**Fvandermeulen** · 03/12/2009, 13h43

Envoyé par Pierre Fauconnier

Salut Frédéric,

Au départ, j'ai pensé comme toi, mais on aurait alors une erreur 9 Indice n'appartient pas à la sélection...

Cela étant, le code utiliser shSy en tant que collection Sheets, mais dans la boucle, on pointe vers la collection WorkSheets => problème potentiel s'il y a des feuilles de graphique dans le classeur, mais à nouveau, cela ne donnerait pas une erreur 91...

...

En effet

, j'y penserai 2 fois avant de me relancer à l'aveugle...

**ballantine's** · 03/12/2009, 13h44

Suite à tes conseils j'ai testé et j'ai maintenant une erreur 9 l'indice n'appartient pas à la séléction comme vous l'avez dit plus bas... à la ligne

Code :

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

1
2
 
If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then

J'ai des graphiques dans mon fichiers c'est pour ça mais je ne sais pas se que je dois faire
Merci de votre aide.

**Pierre Fauconnier** · 03/12/2009, 13h58

Redonne tout le code, sinon, on doit recoller les morceaux nous-mêmes

**ballantine's** · 03/12/2009, 14h03

Code :

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

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
Private Sub Copie_Var_SyntheseSIMMRCMOB()

    Dim wSy As Excel.Workbook 'objet classeur synthese simm rc mob
    Dim shSy As Excel.Sheets
    Dim sSy As Excel.Worksheet
    Dim rSy As Excel.Range

    Dim ligne_cibleMob As Integer
    Dim ligne_cibleRc As Integer
    Dim colonne_jour As Integer
    Dim TabMoisOnglet(1 To 12) As String

    Dim i As Integer
        
    TabMoisOnglet(1) = "Janvier 2009"
    TabMoisOnglet(2) = "Février 2009"
    TabMoisOnglet(3) = "Mars 2009"
    TabMoisOnglet(4) = "Avril 2009"
    TabMoisOnglet(5) = "Mai 2009"
    TabMoisOnglet(6) = "Juin 2009"
    TabMoisOnglet(7) = "Juillet 2009"
    TabMoisOnglet(8) = "Aout 2009"
    TabMoisOnglet(9) = "Septembre 2009"
    TabMoisOnglet(10) = "Octobre 2009"
    TabMoisOnglet(11) = "Novembre 2009"
    TabMoisOnglet(12) = "Décembre 2009"
    
    
    Set wSy = Application.Workbooks.Open(synthesesimm_file)
    Set shSy = wSy.Sheets
    
    'recherche de l'onglet du mois et init des objets
    i = 0
    Do While i <= shSy.Count
        i = i + 1
        If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then            Set sSy = wSy.Worksheets(i)
            Set rSy = sSy.Range("A1:Z100")
            i = shSy.Count
        End If
    Loop

    'recherche des lignes rc et mob à compléter
    ligne_cibleRc = "1"
    colonne_jour = "2"
    Do Until rSy(ligne_cibleRc, colonne_jour).Value = JourInt
        ligne_cibleRc = ligne_cibleRc + 1
    Loop
    
    ligne_cibleMob = ligne_cibleRc + 1
    Do Until rSy(ligne_cibleMob, colonne_jour).Value = JourInt
        ligne_cibleMob = ligne_cibleMob + 1
    Loop
    
    'copie des variables
    rSy(ligne_cibleRc, 6).Value = Prod_moy_realisee_simm_rc
    rSy(ligne_cibleRc, 7).Value = Prod_moy_prevue_simm_rc
    
    rSy(ligne_cibleRc, 3).Value = Tps_log_realise_simm_rc
    rSy(ligne_cibleRc, 3).NumberFormatLocal = "[h]:mm:ss"
    
    rSy(ligne_cibleRc, 4).Value = Tps_log_prevu_simm_rc
    rSy(ligne_cibleRc, 4).NumberFormatLocal = "[h]:mm:ss"
    
    rSy(ligne_cibleMob, 6).Value = Prod_moy_realisee_simm_mob
    rSy(ligne_cibleMob, 7).Value = Prod_moy_prevue_simm_mob
    
    rSy(ligne_cibleMob, 3).Value = Tps_log_realise_simm_mob
    rSy(ligne_cibleMob, 3).NumberFormatLocal = "[h]:mm:ss"
    
    rSy(ligne_cibleMob, 4).Value = Tps_log_prevu_simm_mob
    rSy(ligne_cibleMob, 4).NumberFormatLocal = "[h]:mm:ss"
    
  
    wSy.Close True
    Set wSy = Nothing
    Set shSy = Nothing
    Set sSy = Nothing
    Set rSy = Nothing

End Sub

l'erreur correspond à la ligne en gras

**Pierre Fauconnier** · 03/12/2009, 14h08

Corrige déjà cela (cfr un de mes messages précédents)

Code :

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

Set shSy = wSy.Sheets

en

Code :

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

Set shSy = wSy.Worksheets

**ballantine's** · 03/12/2009, 14h13

J'ai toujours la même erreur...

**mercatog** · 03/12/2009, 14h35

si je me permet

Code :

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

1
2
3
4
5
6
7
8
9
10
    i = 1
    Do While i <= shSy.Count
 
        If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then
            Set sSy = wSy.Worksheets(i)
            Set rSy = sSy.Range("A1:Z100")
            exit do
        End If
       i = i + 1
    Loop

**ballantine's** · 03/12/2009, 14h44

si je fais ce que me dit mercatog, je reviens à la première erreur : erreur 91...au même endroit

**Pierre Fauconnier** · 03/12/2009, 14h56

Il faudrait débuguer en lançant la procédure pas à pas avec la fenêtre des variables locales et éventuellement des variables espion

Si ton erreur se situe toujours (cfr ton message de 14:03) sur la ligne en gras

Code :

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

1
2
3
4
5
6
7
8
    Do While i <= shSy.Count
        i = i + 1
        If TabMoisOnglet(MoisInt) = wSy.Worksheets(i).Name Then
            Set sSy = wSy.Worksheets(i)
            Set rSy = sSy.Range("A1:Z100")
            i = shSy.Count
        End If
    Loop

alors, tu dois vérifier chacune des variables utilisées sur cette ligne
wSy est-il un objet WorkBook valide?
Que vaut MoisInt?
Que vaut i?
Que vaut wSy.Worksheets(i).Name?

Je ne vois pas d'autre façon pour débusquer l'erreur

**ballantine's** · 03/12/2009, 15h08

Mon erreur est sur la toute première que je vous ai indiqué:

Code :

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

1
2
3
4
5
ligne_cibleRc = "1"
    colonne_jour = "2"
    Do Until rSy(ligne_cibleRc, colonne_jour).Value = JourInt        ligne_cibleRc = ligne_cibleRc + 1
    Loop

cf ligne en gras

**Fvandermeulen** · 03/12/2009, 15h20

Re,
Je vais essayer de me faire pardonner mon "aveugle"...

Si

Code :

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

sSy = wSy.Worksheets(i)

et

Code :

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

rSy = sSy.Range("A1:Z100")

et que

Code :

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

ligne_cibleRc = "1"

et

Code :

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

colonne_jour = "2"

Du coup je comprends pas du tout ceci...

Code :

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

rSy(ligne_cibleRc, colonne_jour)

Car si on récapitule ça donne

Code :

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

wSy.Worksheets(i).Range("A1:Z100")("1","2")

Ne serait-ce pas ceci que tu veux pour ta première boucle?

Code :

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

sSy.cells(1,2)

Il faut donc que

Code :

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

ligne_cibleRc = 1

et

Code :

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

colonne_jour = 2

Et donc

Code :

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

Do Until sSy.cells(ligne_cibleRc, colonne_jour).Value = JourInt

A+

**Pierre Fauconnier** · 03/12/2009, 15h21

Alors, c'est que tu ne passes pas dans la boucle pour définir la plage rSy, donc rSy est Nothing ce qui renvoie bien une erreur 91.

Mets un point d'arrêt sur le Do Whileet lance ta procédure. Tu vas alors boucler en pas à pas et voir quelles sont les valeurs des variables à l'intérieur de la boucle (Notamment MoisInt car je ne vois nulle part que cette variable prend une valeur)...

Ici, le "secret", c'est le débogage en pas à pas...