Discussion :

[ibowl77]

bonjour,

J'ai lu cette discussion.

Papou

Code :

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

1
2
3
Private Sub Workbook_Open()
    Feuil1.Range("A1").Select
End Sub

J'ai inclus ce code dans VBA, mais il ne s'exécute pas à l'ouverture de mon workbook excel 2010 ???
En fait, aucune macro n'est créée !
Que manque-t-il ?

[AlainTech]

Bonjour,

Où as-tu mis ce code?

[jpbontront]

Bonjour,

As-tu pensé à bien enregistrer ton fichier en .xlsm ?
As-tu aussi mis ce code dans ton projet VBA dans le module associé au document ThisWorkbook dans le sub : Private Sub Workbook_Open() ?

Si tu as fais cela, ça devrait fonctionner.

Bien à toi

[jeanmidudu]

Bonjour,

La syntaxe est incorrecte (je dirais insuffisante).

Essaye avec ceci :

Code :

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

1
2
3
4
 
Private Sub Workbook_Open()
    Sheets("Feuil1").Range("A1").Select
End Sub

[Marc-L]

Bonjour,

la syntaxe est bien au contraire correcte ! (si la feuille active est bien Feuil1 …)

Mais comme déjà souligné par Alain : dans quel module a été enregistré le code ?
Et le classeur est-il bien enregistré sous un format acceptant du code (.xlsb, .xlsm, .xls) ?

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[jeanmidudu]

@Marc-L

Certes sa syntaxe est correcte. J'ai cependant précisé que je la considérais comme insuffisante, car dès qu'on souhaite accéder à une autre feuille, il y a une erreur d'exécution (La méthode Select de la classe Range a échoué). Par contre, ça n'empêche pas que ma solution ne soit pas correcte non plus

Voici donc la solution qui fonctionne à tous les coups (à condition qu'elle soit placée dans le code du workbook directement) :

Code :

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

1
2
3
4
5
 
Private Sub Workbook_Open()
    Sheets("Nom_de_la_feuille").select ' Ou aussi Nom_de_la_feuille.select
    Range("A1").Select
End Sub

à mettre ici bien entendu :

[Marc-L]

Tout à fait !

Tu as posté ton dernier message pendant que j'éditais le mien …

[Marc-L]

Cependant utiliser le CodeName d'une feuille est plus sûr que son nom ou son numéro d'index
car une feuille peut-être renommée comme déplacée …

Code :

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

1
2
3
4
5
6
Private Sub Workbook_Open()
    With Feuil1
        .Activate
        .Cells(1).Select
    End With
End Sub

Sans compter que l'on peut effectuer la même opération en une seule instruction :

Code :

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

1
2
3
Private Sub Workbook_Open()
    Application.Goto Feuil1.Cells(1), True
End Sub

Encore faut-il que le code soit placé dans le module de classe du classeur (ThisWorkbook)
et que le classeur soit enregistré dans un format acceptant du code …

_________________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …