erreur La méthode 'Range' de l'objet '_Global' a échoué

**mahboub** · 17/11/2006, 16h09

Bonjour a vous tous,
voila j'ai un problème qui apparait une fois sur deux quand j'execute ce programme. la premiere fois il me donne bien les resultat et les affiche les données dans Excel, et la deuxieme fois il bloque sur la l'instruction

Code :

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

  Range("a1:g1").Merge

. et ainsi de suite l'erreur est la suivante

La méthode 'Range' de l'objet '_Global' a échoué

est ce que quelqu'un aurait une idée pourquoi ca arrive ( une fois ca marche et la deuxieme ca ne marche pas et ainsi de suite)
merci a vous

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
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
Option Compare Database
 
Private Sub Commande0_Click()
Dim xl As Excel.Application
Dim wrkb As workBook
Dim wrks As worksheet
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim cnn As New ADODB.Connection
Dim rs1 As New ADODB.Recordset
Dim fld As DAO.Field
Dim intColo As Long
Dim intRow As Long
 
Dim qdf As DAO.QueryDef
Dim str As String
Dim qdf1 As DAO.QueryDef
Set db = CurrentDb()
Set qdf1 = db.QueryDefs("Requête1hakim_Analyse croisée")
qdf1.Parameters("dateDebut") = #10/29/2006#
qdf1.Parameters("dateFin") = #10/30/2006#
Set rs = qdf1.OpenRecordset
  Dim con As Object
    Dim strSql As String
    Dim Source As New ADODB.Recordset
    Dim rsDestination As New ADODB.Recordset
 
    Set con = Application.CurrentProject.Connection
 
 
 
 
 
str = "TRANSFORM Count([AppelsPannes Transféré].Heure) AS CompteDeHeure " & _
        "SELECT [AppelsPannes Transféré].DatePanne, Count([AppelsPannes Transféré].Heure) AS [Total de Heure] " & _
        "FROM [AppelsPannes Transféré] " & "GROUP BY [AppelsPannes Transféré].DatePanne PIVOT [AppelsPannes Transféré].Territoire"
 
    Source.Open str, con, adOpenStatic, adLockReadOnly
 
 
' demarer excel
Set xl = New Excel.Application
xl.Visible = True
 
With xl
 
    Set wrkb = xl.Workbooks.Add
    wrkb.Sheets("Feuil1").Name = "test"
 
      With wrkb.Sheets("test")
    '- le titre
        Range("a1:g1").Merge
        Range("a1:g1").Value = "Total Appels Pannes transférés aux agents DMR Dépassé"
        Range("a1:g1").Font.Bold = True
        Range("a1:g1").HorizontalAlignment = xlCenter
        Range("a1:g1").Interior.ColorIndex = 15
        Range("a1:g1").Interior.Pattern = xlSolid
 
        'transfere le champ dans la feille
 
         intColo = 1
         For Each fld In rs.Fields
            .Cells(2, intColo) = fld.Name
            .Cells(2, intColo).Font.Bold = True
            .Cells(2, intColo).Interior.ColorIndex = 40
            .Cells(2, intColo).Interior.Pattern = xlSolid
            intColo = intColo + 1
          Next
          For I = 1 To intColo
             .Columns(I).AutoFit
          Next
 
'
 
 
    intRow = rs.RecordCount
    ActiveSheet.Range("a3").CopyFromRecordset rs
    ' fermer le classeur  en l'enregistrement
    '
    Set qdf = CurrentDb.QueryDefs("AppelsPannes Transféré_par territoire")
    str = qdf.Sql
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).Merge
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).Value = "Total Appels Pannes transférés aux agents"
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).Font.Bold = True
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).HorizontalAlignment = xlCenter
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).Interior.ColorIndex = 15
      Range("a" & rs.RecordCount + 5 & ":g" & rs.RecordCount + 5).Interior.Pattern = xlSolid
 
 
      intColo = 1
      For Each fld In rs.Fields
          .Cells(rs.RecordCount + 6, intColo) = fld.Name
          .Cells(rs.RecordCount + 6, intColo).Font.Bold = True
          .Cells(rs.RecordCount + 6, intColo).Interior.ColorIndex = 40
          .Cells(rs.RecordCount + 6, intColo).Interior.Pattern = xlSolid
          intColo = intColo + 1
      Next
 
 
 
 
      Range("a" & rs.RecordCount + 7).CopyFromRecordset Source
   End With
End With
 
 
 
 
 
 
 
 
 
Set cl = Nothing
rs.Close
Source.Close
Set wrkb = Nothing
Set wrks = Nothing
Set xl = Nothing
Set rs = Nothing
Set Source = Nothing
 
 
 
End Sub
'

**ouskel'n'or** · 17/11/2006, 17h27

Essaie avec ça

Code :

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

1
2
3
4
With test
     '- le titre
        Range("a1:g1").Merge
        Range("a1:g1").Value = "Total Appels Pannes transférés aux agents DMR Dépassé"

**dadavyvy** · 17/11/2006, 17h33

Envoyé par mahboub

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
(...etc...)
With xl
    Set wrkb = xl.Workbooks.Add
    wrkb.Sheets("Feuil1").Name = "test"
 
      With wrkb.Sheets("test")
    '- le titre
        Range("a1:g1").Merge
 
(...etc...)
 
         For Each fld In rs.Fields
            .Cells(2, intColo) = fld.Name
 
(...etc...)

Tout d'abord je ne sais pas comment VBA gère les imbrications de boucle With... Pour ma part j'éviterai, surtout que tu as déjà déclarer la variable objet "xl", et que derrière tu appelles cet objet xl.
Ensuite, ton objet Range doit renvoyer à un Worksheet, sinon c'est l'ActiveSheet par défaut.
Ainsi rajoute un "." devant tes Range-s, afin de bien travailler sur la feuille citée dans le With :

Code :

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

1
2
With wrkb.Sheets("test")
        .Range("a1:g1").Merge

Et dis nous si ça bug encore...

**mahboub** · 17/11/2006, 18h18

BONJOUR ,
je vous remercie tout les deux

Envoyé par dadavyvy

Pour ma part j'éviterai, surtout que tu as déjà déclarer la variable objet "xl", et que derrière tu appelles cet objet xl
....

Code :

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

1
2
With wrkb.Sheets("test")
        .Range("a1:g1").Merge

Et dis nous si ça bug encore...

ca marche merci a toi mais je n'ai pas compris c'est quoi le probleme de nomé mon objet xl

pour le with test ca ne fonctionne pas
merci encore

**dadavyvy** · 17/11/2006, 20h46

Non, aucun problème de nommer ton objet "xl", c'est d'imbriquer des boucles With que j'éviterais.
Au contraire, avoir nommer ton objet "xl" est très bien, ça permet de raccourcir ton code.
De toute façon dans ton code, tu n'as pas besoin du "With xl", puisque tu re-cites par la suite : "xl."

erreur La méthode 'Range' de l'objet '_Global' a échoué

Macros et VBA Excel

Discussions similaires

Partager

Partager