Discussion :

[moimemessssssssss]

BOnjour

j'ai un bout de code qui marche sans souci sur excel 2003 par contre sur excel 2010 il me met l'erreur suivante :

erreur d'éxécution 1004 erreur définie par l'application ou pas l'objet

le code est :

Code :

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

1
2
3
4
For k = 1 To Workbooks("clients.xls").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
  ' code pour effectuer des calculs
 
Next k

le probleme ne se pose pas si je réecris en

Code :

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

1
2
3
4
5
Workbooks("clients.xls").activate
For k = 1 To Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row
  ' code pour effectuer des calculs
 
Next k

mais comme je travaille sur plusieurs classeur excel différent il faut que je reprenne tout le code vba pour réactiver les bons classeurs ....

n'y a-t-il un moyen de garder le code sans avtgiver le classeur auparavant?

merci

[SfJ5Rpw8]

sur qu'elle ligne l'erreur ?

[moimemessssssssss]

l'erreur se situe sur la lgine 3 cad

Code :

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

1
2
 
For k = 1 To Workbooks("clients.xls").Sheets(1).Cells(Rows.Count, 2).End(xlUp).Row

[SfJ5Rpw8]

je n'ai pas excel 2010 sous la main peu tu voir si tu as la même erreur sur la ligne suivante :

Code :

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

Msgbox Rows.Count

que tu place avant le FOR ...

et si tu as l'erreur regarde si celle-ci persiste avec :

Code :

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

Msgbox Workbooks("clients.xls").Sheets(1).Rows.Count

[Didier Gonard]

je n'ai pas excel 2010 sous la main peu tu voir si tu as la même erreur sur la ligne suivante :

Code :

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

Msgbox Rows.Count

Ca devrait être OK vu qu'on aura : 1048576 donc qui rentre encore dans un Long, il en est autrement d'un :

Code :

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

1
2
3
4
5
Sub Dénombrer()
 
   MsgBox Worksheets(1).Cells.Count
 
End Sub

voir ce fil

cordialement,

Didier

[SfJ5Rpw8]

Ce n'est pas un problème d'entrer dans un long ...

ce que je pense c'est que Rows ... sans rien devant s'applique à la feuille active .. et si la feuille active n'est pas un feuille de calcul mais un graphique ou autre on doit avoir l'erreur 1004 ...

[moimemessssssssss]

en effet il n'y a pas d'erreur avec

Code :

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

1
2
 
Msgbox Rows.Count

le msg affiché est bien 1048576 comme l'a dit Ormonth.

le code

Code :

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

1
2
 
Workbooks("clients.xls").Sheets(1).Rows.Count

n'affiche pas d'erreur
par contre

Code :

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

1
2
 
Worksheets(1).Cells.Count

affiche un dépssement de capacité comme décrit dans le fil dédié .


donc il faut que j'enregistre tous mes classeurs en xlsm?
c'est le seul changement que je teste.?

mais si je l'enregistre au format 2010 peut on l'ouvrir avec excel 2003?

merci

[Didier Gonard]

Bonjour,

je pense à un conflit de formats...

le classeur incriminé doit inclure des macros, hors sous 2007 et après les formats avec et sans diffèrent xlsx ou xlsm...

Donc Excel ne sait pas retrouver ses petits...

Si tu actives le classeur, l'interprétation ne suit pas le même processus vu que le classeur est actif et que ses macros ont été ou non activées = pas de dilemme

test la même chose en sauvegardant ton classeur en xlsm sous le même code en le gardant non actif...

cordialement,

Didier