Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien.
___________________________________________________________________________
Private Sub Worksheet()
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation
réaliser par Éric " & Target.Adress
Cancel = True
'_________________________________________ Rajouter ceci
Sheets("Index").Select
Application.Goto Reference:="Print_Area"
ActiveWindow.Zoom = True
Range("B12").Select
'_________________________________________
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
RGI
Bonjour
si l'onglet désiré est le 1
mettre dans thisworkbook
Private Sub Workbook_Open() Sheets(1).Activate End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien. ___________________________________________________________________________ Private Sub Worksheet() 'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation réaliser par Éric " & Target.Adress Cancel = True '_________________________________________ Rajouter ceci Sheets("Index").Select Application.Goto Reference:="Print_Area" ActiveWindow.Zoom = True Range("B12").Select '_________________________________________
'vbInformation , "Ouverture"
End Sub
Bonjour
si l'onglet désiré est le 1
mettre dans thisworkbook
Private Sub Workbook_Open()
Sheets(1).Activate
End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien.
___________________________________________________________________________
Private Sub Worksheet()
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel
As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation
réaliser par Éric " & Target.Adress
Cancel = True
'_________________________________________ Rajouter ceci
Sheets("Index").Select
Application.Goto Reference:="Print_Area"
ActiveWindow.Zoom = True
Range("B12").Select
'_________________________________________
Private Sub Workbook_Open() Sheets(1).Activate End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien. ___________________________________________________________________________ Private Sub Worksheet() 'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation réaliser par Éric " & Target.Adress Cancel = True '_________________________________________ Rajouter ceci Sheets("Index").Select Application.Goto Reference:="Print_Area" ActiveWindow.Zoom = True Range("B12").Select '_________________________________________
'vbInformation , "Ouverture"
End Sub
Érico
J'ai mis ceci et ça ne fonctionne pas.
Private Sub Workbook_Open() Sheets(8).Activate End Sub
"RGI" a écrit dans le message de news:
Bonjour
si l'onglet désiré est le 1
mettre dans thisworkbook
Private Sub Workbook_Open() Sheets(1).Activate End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien. ___________________________________________________________________________ Private Sub Worksheet() 'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation réaliser par Éric " & Target.Adress Cancel = True '_________________________________________ Rajouter ceci Sheets("Index").Select Application.Goto Reference:="Print_Area" ActiveWindow.Zoom = True Range("B12").Select '_________________________________________
'vbInformation , "Ouverture"
End Sub
J'ai mis ceci et ça ne fonctionne pas.
Private Sub Workbook_Open()
Sheets(8).Activate
End Sub
"RGI" <nospam.gilbert@wanadoo.fr> a écrit dans le message de news:
4482F3EB.8030007@wanadoo.fr...
Bonjour
si l'onglet désiré est le 1
mettre dans thisworkbook
Private Sub Workbook_Open()
Sheets(1).Activate
End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien.
___________________________________________________________________________
Private Sub Worksheet()
'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range,
Cancel As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation
réaliser par Éric " & Target.Adress
Cancel = True
'_________________________________________ Rajouter ceci
Sheets("Index").Select
Application.Goto Reference:="Print_Area"
ActiveWindow.Zoom = True
Range("B12").Select
'_________________________________________
Private Sub Workbook_Open() Sheets(8).Activate End Sub
"RGI" a écrit dans le message de news:
Bonjour
si l'onglet désiré est le 1
mettre dans thisworkbook
Private Sub Workbook_Open() Sheets(1).Activate End Sub
salutations
RGI
Comment je fais pour avoir le bon onglet a l'ouverture du fichier?
J'ai ceci et ça ne fonctionne pas bien. ___________________________________________________________________________ Private Sub Worksheet() 'Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
MsgBox "Bonjour! Bienvenue au nouveau formulaire du Plan de conservation réaliser par Éric " & Target.Adress Cancel = True '_________________________________________ Rajouter ceci Sheets("Index").Select Application.Goto Reference:="Print_Area" ActiveWindow.Zoom = True Range("B12").Select '_________________________________________
