Bonjour à tous et toutes,
Voici mon code, mais comment faire en sorte que ce dernier passe à la ligne suivante pour chaque enregistrement?
Merci de votre aide
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub Workbook_Open() 'bonjour de bienvenue MsgBox "Bonjour et bienvenue ", vbInformation, "Message de bienvenue" 'enregistrement du nom de la personne qui utilise l'outils Worksheets("utilisation").Cells(1, 1).Value = "Derniere utilisation : " & Environ("USERNAME") 'enregistrement de la date Worksheets("utilisation").Cells(1, 2).Value = Date 'enregistrement de l'heure Worksheets("utilisation").Cells(1, 3).Value = Time 'sauvegarde du classeur ThisWorkbook.Save End Sub
Partager