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.
Voici le code incriminé:La méthode copy de la classe Range a échoué
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
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 là c'était la méthode delect de la classe range a échoué.
Code : Sélectionner tout - Visualiser dans une fenêtre à part xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).select
Merci d'avance,
Partager