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,