Private Sub Workbook_Open()
If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub
Bonjour D.D et merci pour ces infos mais petit probleme une fois installé dans this workbook ca me met erreur de compilation en sachant que j'ai deja plusieurs code au dessus et j'ai mis le votre a la suite :
Code:
Private Sub Workbook_Open()
Worksheets("Accueil").Activate
Range("Q7") = ActiveWorkbook.BuiltinDocumentProperties(12)
Range("Q10") = Environ("UserName")
End Sub
Private Sub Workbook_Activate()
Application.DisplayFullScreen = True
End Sub
Code:
Private Sub Workbook_Open()
If Worksheets("Feuil1").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
Worksheets("Feuil1").ListObjects(1).Name = ActiveWorkbook.Name
End Sub
Ok j'y travaille au plus simple ça ne fonctionne pas pour l’intégrer il me manque la liaison entre les deux :
Private Sub Workbook_Open()
Worksheets("Accueil").Activate
Range("Q7") = ActiveWorkbook.BuiltinDocumentProperties(12)
Range("Q10") = Environ("UserName")
If Worksheets("Feuil4").ListObjects.Count <> 1 Then MsgBox "Nombre de tableau non valide": Exit Sub
Worksheets("Feuil4").ListObjects(1).Name = ActiveWorkbook.Name