W WEIDER Guest 29 Juillet 2005 #1 Bonjour le forum ! J'ai déjà ces lignes de commande dans mon 'THISWORKBOOK', Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Cells(10, 4) = '' End Sub Que dois je y rajouter en ligne de commande pour que lors de la prochaine ouverture du fichier, la cellule A1 soit automatiquement sélectionnée ? Merci beaucoup. Weider.
Bonjour le forum ! J'ai déjà ces lignes de commande dans mon 'THISWORKBOOK', Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Cells(10, 4) = '' End Sub Que dois je y rajouter en ligne de commande pour que lors de la prochaine ouverture du fichier, la cellule A1 soit automatiquement sélectionnée ? Merci beaucoup. Weider.
2passage XLDnaute Impliqué 29 Juillet 2005 #2 Bonjour, Ajoute juste Feuil1.range('A1).select Vala A+ Vote positif 0 Vote négatif
W WEIDER Guest 29 Août 2005 #3 Merci 2passage ! Ou mettre cette ligne de commande dans mon Thisworbook ? Voici ce que j'ai déja dedans... Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Cells(10, 4) = '' End Sub Merci pour ton aide ! Weider. Vote positif 0 Vote négatif
Merci 2passage ! Ou mettre cette ligne de commande dans mon Thisworbook ? Voici ce que j'ai déja dedans... Private Sub Workbook_BeforeClose(Cancel As Boolean) Feuil1.Cells(10, 4) = '' End Sub Merci pour ton aide ! Weider.
Dan XLDnaute Barbatruc 30 Août 2005 #4 Bonjour, Oui tu places ce code dans 'thisworkbook' Code: Private Sub Workbook_Open() Sheets('feuil1').Range('a1').Activate End Sub Vote positif 0 Vote négatif
Bonjour, Oui tu places ce code dans 'thisworkbook' Code: Private Sub Workbook_Open() Sheets('feuil1').Range('a1').Activate End Sub
W WEIDER Guest 30 Août 2005 #5 Merci bien Dan, ------------------------------------------------ Private Sub Workbook_Open() Sheets('Relevé 1').Range('a1').Activate End Sub ------------------------------------------------ Weider. Vote positif 0 Vote négatif
Merci bien Dan, ------------------------------------------------ Private Sub Workbook_Open() Sheets('Relevé 1').Range('a1').Activate End Sub ------------------------------------------------ Weider.