Bonjour,
J'ai un souci concernant une macro. Celle-ci fonctionne sur l'Excel de mon bureau cependant lorsque je veux l'extrapoler sur un Excel d'un groupe Teams cela ne fonctionne pas. Le fichier est pourtant bien en XLSX.
Voici la macro en question, elle indique l'affichage de l'heure à laquelle la donnée a été saisie.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j, iSct As Range
Set iSct = Intersect(Target, Range("A:A"))
If iSct Is Nothing Then Exit Sub
Application.EnableEvents = False
For Each j In iSct.Cells
If IsEmpty(j) Then
j.Offset(0, 3) = ""
Else
j.Offset(0, 3) = Format(Now, "mm/dd/yy hh:mm:ss")
End If
Next
Application.EnableEvents = True
End Sub
J'ai remarqué que les onglets en haut n'étaient pas les mêmes entre mon fichier interne et celui du réseau:
Ici celui du réseau.
Et ici celui qui est en sauvegarder sur mon bureau.
Je pense que le problème vient de là mais je sais pas comment résoudre le problème.
Merci par avance pour votre aide