[VBA-E] Erreur methode select classe range

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.

Citation:

---

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

---

Voici le code incriminé:

Code:

---

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:

---

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,

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 :(

Bonjour Solkien,

La sheet est bien activée dans le code.

Code:

---

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

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

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

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

Code:

---

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

---

A+

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

Bon ben décidément le petit excel me résiste. Même avec ta solution LeForestier, rien à y faire. :evilred:

a$ est déclaré implicitement comme un string ($)

Commence avant tout par vérifier la valeur de nbUsedRows des fois qu'il soit null

Bonjour DarkVader,

En mode pas à pas, je vérifie bien qui nbUsedRows n'est pas null mais vaut 8181 comme le nombre de lignes contenues dans ma feuille de calcul Stats1082.

Merci,

Bonjour Kdestine,

Toujours en pas à pas, après ces 2 lignes :

Code:

---

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

---

la feuille "Temporaire" est bien créée sur le 2ème fichier ?

J'ai testé ta fonction chez moi, en adaptant les noms et elle fonctionne normalement. j'ai juste changer autofilter par select.
Mon avis qu'il faudrai faire un débug pas à pas et tester chaques variables.
A+

Citation:

---

Envoyé par kdestine

Bonjour DarkVader,

En mode pas à pas, je vérifie bien qui nbUsedRows n'est pas null mais vaut 8181 comme le nombre de lignes contenues dans ma feuille de calcul Stats1082.

Merci,

---

Vérifie que ta plage ne déborde pas. Le problème ne doit plus être bien loin.
En mode pas à pas,
debug.print xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).address, xlBook.Worksheets("Stats1082").cells.address

Bonjour DarkVader et Jacques_Jean,

Tout d'abord je tiens à remercier votre disponibilité.

Oui Jacques_Jean, la feuille Tempraire existe bel et bien et lorsque je fais un test en mettant en commentaire la ligne de copie je la retrouve bien dans le fichieer excel.


Alors j'ai essayé de faire comme tu m'as dit DarkVader en mode pas à pas mais curieusement, la ligne

Code:

---

debug.print xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).address, xlBook.Worksheets("Stats1082").cells.address

---

ne m'affiche rien du tout.

Merci,

DarkVader désolé en cherchant un peu j'ai vu la fenêtre d'exécution qui m'affiche pour la ligne

Code:

---

debug.print xlBook.Worksheets("Stats1082").Range("A2:I" & nbUsedRows).address, xlBook.Worksheets("Stats1082").cells.address

---

les valeurs

Code:

---

$A$2:$I$8181 $1:$65536

---

Ce qui signife qu'iln n'y aurait effecvement aucun débordement si je ne me trompe pas.

Je ne vois pas.

Chez moi

Code:

---

1 2 3 4 5 6 7 8 9 10

Dim xlBook As Workbook, nbUsedRows As Long, xlSheet As Worksheet Set xlBook = ActiveWorkbook   '.../...   nbUsedRows = xlBook.Worksheets("Feuil1").UsedRange.Rows.Count Set xlSheet = xlBook.Worksheets.Add xlSheet.Name = "Temporaire"   xlBook.Worksheets("Feuil1").Range("A2:I" & CStr(nbUsedRows)).Copy xlSheet.Range("A1")

---

fonctionne parfaitement.

Merci DarkVader,

Je pense que c'est pas la peine que je continue à chercher pourquoi çà ne fonctionne pas. Peut être est-ce un bug interne (soit ma machine soit la suite microsoft).

:merci: