Discussion :

[adrien1987]

Bonjour a tous,

Voila j'ai ce code VBA pour pouvoir inscrire l'username a chaque ouverture du dossier excel.

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
Dim newrow As Long
 
newrow = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(newrow, 1).Value = Now
Cells(newrow, 2).Value = Application.UserName
End Sub

le code marche bien, le seul souci je voudrais qu'il marque les info sur la feuille qui ce nomme TOTAL LDB.

J'aimerai le mettre a la suite de ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()                 'programme ouverture excel'
 
ActiveWindow.DisplayHeadings = flase        'Masquer entete ligne colonne'
Application.DisplayScrollBars = flase       'Masquer barre defilement'
Application.DisplayFormulaBar = flase       'Masquer barre formules'
ActiveWindow.DisplayWorkbookTabs = True    'Masquer onglets'
Application.DisplayFullScreen = True        'Afficher plein ecran'
ActiveWindow.DisplayGridlines = True        'Masquer cadrillage'
Application.WindowState = xlMaximized       'agrandir la fenêtre d'application toujour la garder en plein ecran'
Application.OnKey "{ESCAPE}", ""            'bloquer la touche echap'
ActiveWindow.Zoom = 135                      'bloquer le zomm à %'
Application.DisplayFullScreen = True        'Afficher plein ecran'
 
 
End Sub

cela est t'il possible ???

Cdlt..

[Menhir]

le code marche bien, le seul souci je voudrais qu'il marque les info sur la feuille qui ce nomme TOTAL LDB.

Un conseil : dans VBA, il vaut mieux éviter d'utiliser une WorksheetFunction quand il existe un équivalent VBA

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
   Dim newrow As Range
 
   Set newrow = Worksheets("TOTAL LDB").Cells(Rows.Count,1).End(xlUp).Offset(1,0)
   newrow.Value = Now
   newrow.Offset(0,1).Value = Application.UserName
End Sub

[adrien1987]

Un conseil : dans VBA, il vaut mieux éviter d'utiliser une WorksheetFunction quand il existe un équivalent VBA

Code :

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

1
2
3
4
5
6
7
Private Sub Workbook_Open()
   Dim newrow As Range
 
   Set newrow = Worksheets("TOTAL LDB").Cells(Rows.Count,1).End(xlUp).Offset(1,0)
   newrow.Value = Now
   newrow.Offset(0,1).Value = Application.UserName
End Sub

cela est possible de le mettre a la suite de ce code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_Open()                 'programme ouverture excel'
 
ActiveWindow.DisplayHeadings = flase        'Masquer entete ligne colonne'
Application.DisplayScrollBars = flase       'Masquer barre defilement'
Application.DisplayFormulaBar = flase       'Masquer barre formules'
ActiveWindow.DisplayWorkbookTabs = True    'Masquer onglets'
Application.DisplayFullScreen = True        'Afficher plein ecran'
ActiveWindow.DisplayGridlines = True        'Masquer cadrillage'
Application.WindowState = xlMaximized       'agrandir la fenêtre d'application toujour la garder en plein ecran'
Application.OnKey "{ESCAPE}", ""            'bloquer la touche echap'
ActiveWindow.Zoom = 135                      'bloquer le zomm à %'
Application.DisplayFullScreen = True        'Afficher plein ecran'
 
 
End Sub