Macro complémentaire récalcitrante (encore !) [Résolu]

[aA189]

Bonjour , voici ma macro complementaire

Avec dans le ThisWorkBook

Code :

1
2
3
Private Sub Workbook_Open()
DERNIERELIGNE
End Sub

et dans un module de ma macro complémentaire

Code :

1
2
3
4
5
6
7
 
Sub DERNIERELIGNE()
Dim derniere As Range
Set derniere = Feuil1.Range("A65536").End(xlUp).Offset(2, 0) 'affecte la variable objet (2,0) 
derniere.Select  ' plante ici message :  erreur 1004 la méthode select de l’objet range a échouée
Set derniere = Nothing
End Sub

Par contre si je crée une macro ordinaire pour un classeur en particulier avec

Code :

1
2
3
4
5
6
7
8
 
Sub DERNIERELIGNE()
Dim derniere As Range
Set derniere = Feuil1.Range("A65536").End(xlUp).Offset(2, 0) 'affecte la variable objet (2,0) 
derniere.Select  
Set derniere = Nothing
 
End Sub

et que je la lance alors pas de problème … !

Quelle différence entre une macro complémentaire .xla et une macro ordinaire ?!!

[alsimbad]

a froid comme ça, sans essayer, je dirais que la seule difference c'est que la macro ordinaire est déja dans le bon classeur

[ouskel'n'or]

Teste ça

Code :

1
2
3
Private Sub Workbook_Open()
Application.Run "'Classeur.xla'!DERNIERELIGNE"
End Sub

Tu dis

[aA189]

Code :

Private Sub Workbook_Open() Application.Run "'Classeur.xla'!DERNIERELIGNE" End Sub

Non marche pô ...

IL y a confusion entre macro ordinaire , macro complémentaires et macro de mon classeur personnel PERSO.xls

La macro ordinaire tolère la méthode "select" , les autres ne la tolère pas ...
Comment remplacer la méthode "select" ?

[ouskel'n'or]

Thisworkbook est le classeur qui contient ta macro Auto_Open
ActiveWorkbook est le classeur actif.
ActiveSheet est la feuille active
Ta macro DERNIERELIGNE est dans le xla

Tu cherches la dernière ligne de ActiveSheet (qui est dans ActiveWorkbook)

Code :

1
2
3
4
5
6
7
8
Sub DERNIERELIGNE()
Dim Fl as worksheet
Dim dernière as range
     Set Fl = ActiveWorkbook.Activesheet
     Set derniere = Fl.Range("A65536").End(xlUp).Offset(2, 0) 'affecte la variable objet (2,0) 
     derniere.Select  
     Set derniere = Nothing
End Sub

A+

[aA189]

Code :

1
2
3
4
5
6
7
8
9
10
11
 
option explicit
Sub DERNIERELIGNE()
 Dim Fl as worksheet
 Dim dernière as range 
'on error resume next
Set Fl = ActiveWorkbook.Activesheet  
Set derniere = Fl.Range("A65536").End(xlUp).Offset(2, 0)   
derniere.Select 
Set derniere = Nothing 
End Sub

plante ici

Code :

Set Fl = ActiveWorkbook.Activeshee

Erreur 91 variable objet non définie

J'aie tenté un petit "on error resume next" et plus de bug mais rien ne se passe .
Il semblerait que la variable "Fl" ne contienne rien .

[SilkyRoad]

bonjour

Il y a un problème d'accentuation (pratique déconseillée) dans ta variable, qui n'apparait plus dans l'instruction suivante:

Dim dernière as range
'on error resume next
Set Fl = ActiveWorkbook.Activesheet
Set derniere = Fl.Range("A65536").End(xlUp).Offset(2, 0)

michel

[ouskel'n'or]

[aA189]

Oui vu aussi la petite faute de frappe mais ça ne change rien au problème ...

[SilkyRoad]

la procédure, placée dans un xla, fonctionne chez moi.

michel

[ouskel'n'or]

Ton fichier est bien ouvert ?
Tu as mis

Set Fl = ActiveWorkbook.Activeshee

au lieu de ActiveSheet mais je pense que c'est en copiant sur le forum.
Teste cette ligne, après le Set.

Code :

msgbox Fl.name

Tu devrais avoir le nom de ta feuille
Tu dis

Edit
Et moi j'ai mis Activesheets ! ZUT ! Quelle cloche ! J'ai corrigé ! C'est ActiveSheet !

[aA189]

Code :

1
2
3
4
5
6
7
8
9
10
 
Sub DERNIERELIGNE()
Dim Fl As Worksheet
Dim derniere As Range
     Set Fl = ActiveWorkbook.ActiveSheet
     MsgBox Fl.Name
     Set derniere = Fl.Range("A65536").End(xlUp).Offset(2, 0)
     derniere.Select
     Set derniere = Nothing
End Sub

La procédure fontionne sauf dans un cas .

Dans l’explorateur Windows si j’ouvre un .xls quelquonque .


Je pense que l’événement

Code :

1
2
3
4
 
Private Sub Workbook_Open()
DERNIERELIGNE
End Sub

n’est alors pas compris par la machine .

Tandis pis au lieu d’un .xla je vais mettre la macro dans mon PERSO.XLS sans l’évenement

Code :

1
2
3
 Private Sub Workbook_Open()
DERNIERELIGNE
End Sub

Puis je lancerais la macro « à la main » via le menu outils/macro/PERSO.XLS !DERNIERELIGNE .
Une petite étape de plus qu’un .xla devrait pouvoir me soulager mais je m’en contenterais .

NB en tentant un mélange des 2

‘placer dans un .xla

Code :

1
2
3
4
Private Sub Workbook_Open()
Application.Run "'PERSO.XLS'!DERNIERELIGNE"
 
End Sub

Meme résultat ne fonctionne pas si je prend le chemin d’ouvrir un .xls via l’explorateur windows

[aA189]

Ok merci à tous ...