Bonjour et meilleurs vœux à tous,
Voilà, j'ai des vieilles macros datant d'Office XP 2002 qui s’exécutent parfaitement en mode compatibilité avec Office 2007.
Ces macros avec Office 2016 causent quelques "erreurs", pourriez-vous m'aider à les corriger s'il vous plaît.
Macro pour afficher la date système dans une cellule:
Private Sub cbtDateMaintenant_Click()
Range("K7") = Date
End Sub
Macro pour lister dans un combobox toutes les feuilles du classeur:
Private Sub UserForm_Initialize()
For Each c In ActiveWorkbook.Sheets
Me.cbxFactureClient.AddItem c.Name
Next
End Sub
Merci pour votre aide.
Voilà, j'ai des vieilles macros datant d'Office XP 2002 qui s’exécutent parfaitement en mode compatibilité avec Office 2007.
Ces macros avec Office 2016 causent quelques "erreurs", pourriez-vous m'aider à les corriger s'il vous plaît.
Macro pour afficher la date système dans une cellule:
Private Sub cbtDateMaintenant_Click()
Range("K7") = Date
End Sub
Macro pour lister dans un combobox toutes les feuilles du classeur:
Private Sub UserForm_Initialize()
For Each c In ActiveWorkbook.Sheets
Me.cbxFactureClient.AddItem c.Name
Next
End Sub
Merci pour votre aide.
Pièces jointes
Dernière modification par un modérateur: