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

[kdestine]

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

[DarkVader]

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

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

[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,

[Invité]

Bonjour Kdestine,

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

Code :

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

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

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

[LeForestier]

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+

[DarkVader]

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

[kdestine]

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 :

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

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

ne m'affiche rien du tout.

Merci,

[kdestine]

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

Code :

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

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

les valeurs

Code :

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

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

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

[DarkVader]

Je ne vois pas.

Chez moi

Code :

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

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.

[kdestine]

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).