Discussion :

[kdestine]

Bonjour,

Quelqu'un saurait-il pourquoi des fois la méthodes select de l'objet range pose des soucis?
Je m'en suis servi plusieurs fois sans souci mais je dois avouer que cette fois-ci çà me dépasse.

La méthode copy de la classe Range a échoué

Voici le code incriminé:

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
Private Function updateQoSATMAccès()

Dim nameFile As String
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim xlSheet1 As Excel.Worksheet
Dim xlSheet2 As Excel.Worksheet
Dim nbUsedRows As Long

nameFile = loadXLS
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(nameFile)

xlBook.Worksheets("Stats1082").Activate

nbUsedRows = xlBook.Worksheets("Stats1082").UsedRange.Rows.Count
xlBook.Worksheets("Stats1082").Range("A1:I" & nbUsedRows).AutoFilter Field:=7, Criteria1:="NORD ET EST"

Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Temporaire"

xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).Copy Destination:=xlBook.Worksheets("Temporaire").Range("A1")

 ...

Et, c'est la portion en rouge qui a des soucis. Pour faire un autre test, à la place de la ligne en rouge j'ai mis

Code :

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

xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).select

Et là c'était la méthode delect de la classe range a échoué.

Merci d'avance,

[Solkien]

Essaie d'activer la sheet en question ...


... parfois, un redemmarage de l'ordinateur corrige qqes problèmes du genre ...


En espérant que cela suffira

[kdestine]

Bonjour Solkien,

La sheet est bien activée dans le code.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
nameFile = loadXLS
Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(nameFile)
 
xlBook.Worksheets("Stats1082").Activate
 
nbUsedRows = xlBook.Worksheets("Stats1082").UsedRange.Rows.Count
xlBook.Worksheets("Stats1082").Range("A1:I" & nbUsedRows).AutoFilter Field:=7, Criteria1:="NORD ET EST"
 
Set xlSheet = xlBook.Worksheets.Add
xlSheet.Name = "Temporaire"
 
xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).Copy Destination:=xlBook.Worksheets("Temporaire").Range("A1")

Donc à priori çà ne serait pas çà le problème. Par contre je vais essayer de redemarrer le pc et te tenir informé.

Merci

[kdestine]

Après un redémarrage rien n'a changé.

Il ne me reste plus que de la persévérance.

[LeForestier]

bonjour,
l'adresse du range n'est pas valide, pour contourner ce probème je n'ai trouvé que la solution...

Code :

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

1
2
a$ = "A2:I" & nbUsedRows
xlBook.Worksheets("Stats1082").Range(a$).Copy Destination:=xlBook.Worksheets("Temporaire").Range("A1")

A+

[kdestine]

Bonjour LeForestier,

Tu me demandes d'utiliser a$ et j'aimerais savoir de quel type serait a$ car j'utilise l'option explicit.

Merci d'avance