Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel passer un module dans "ThisWorkbook"

passer un module dans "ThisWorkbook"

6 réponses
Avatar
Titi Tls
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée mais
j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pascal
Copier/Coller dans This WorkBook
"Titi Tls" a écrit dans le message de
news:
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée
mais

j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+




Avatar
Denis Michon
Bonjour Titi Tls


Private Sub Workbook_Open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


Salutations!




"Titi Tls" a écrit dans le message de news:
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée mais
j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+
Avatar
Titi Tls
bonjour
ca oui c est OK
mais ca ne marche pas
quand j enregistre sur une autre feuille
a la reouverture il devrait se mettre sur la feuill "2003"
mais rien il reste sur l autre feuille

merci
A+


Pascal a écrit dans le message :
#
Copier/Coller dans This WorkBook
"Titi Tls" a écrit dans le message de
news:
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée
mais

j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+








Avatar
Pascal
ARf j'avais oublié
Private Sub Workbook_Open()
"Titi Tls" a écrit dans le message de
news:
bonjour
ca oui c est OK
mais ca ne marche pas
quand j enregistre sur une autre feuille
a la reouverture il devrait se mettre sur la feuill "2003"
mais rien il reste sur l autre feuille

merci
A+


Pascal a écrit dans le message :
#
Copier/Coller dans This WorkBook
"Titi Tls" a écrit dans le message de
news:
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page
donnée



mais
j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+












Avatar
papou
Bonjour Titi
Sélectionnes les lignes entre auto_open() et End Sub
Edition, Copier
Double-clique sur l'objet ThisWorkbook dans l'éditeur VB (ou clic droit sur
l'icône d'excel à gauche du menu Fichier dans Excel)
Dans la première liste déroulante à droite tu sélectionnes Workbook
Tu te places entre Private Sub Workbook_Open() et End Sub et tu colles les
lignes copiées.

Cordialement
Pascal

"Titi Tls" a écrit dans le message de
news:
bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée
mais

j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+




Avatar
Titi Tls
merci a tous les deux
A+



Denis Michon <denis a écrit dans le message :
JO2zb.835$
Bonjour Titi Tls


Private Sub Workbook_Open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


Salutations!




"Titi Tls" a écrit dans le message de
news:

bonjour a tous et toutes
j ai une macro qui permet d'ouvrir le fichier excel sur une page donnée
mais

j aimera mettre cette macro dans "ThisWorkbook"
comment faire ?
voici ma macro:
Sub auto_open()
Sheets("2003").Select
Range("A1").Select
With ActiveWindow
.WindowState = xlMaximized
End With
End Sub


merci pour tout
A+