XL 2016 Version excel

[AMAT]

Salut à tous,
Actuellement je rencontre un petit souci avec la programmation vba Excel 2010 d'un fichier depuis que nous sommes passés sur Excel 2016 ? Il y a régulièrement un message d'erreur " end run" qui apparaît ? Nous fermons et reouvrons le fichier et tout fonctionne correctement pendant un temps.
Merci d'avance pour votre aide

 

[Staple1600]

Bonjour le fil, AMAT

Sans pouvoir lire le code VBA, difficile d'en dire plus, non ?

 

[AMAT]

Salut,
Je vous fait suivre le fichier
mp: pour débloquer les classeur c'est 3325
mp: pour le code VBA slsng600

 

[Staple1600]

Re

AMAT
NB: tu sais que les mots de passe sont illusoires sur Excel.
Si oui, alors inutile d'en affublé ton classeur, non ?

Je vais voir ton classeur de ce pas.

 

[Staple1600]

Re

Donc, je suis allé voir
Je subodore où le bât blesse
Alors en attendant que j'ai fini ma subodoration
Une petite macro ( pour patienter)

Sub VarianteEcriture()
Dim X As Range
Set X = ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)
If X.Row < 6 Then
MsgBox "Aucunes données à supprimer!", 16, "MESSAGE D'INFORMATION"
GoTo RIENASUPP
End If
If MsgBox("Voulez-vous vraiment annuler le dernier scannage?" & vbCrLf & vbTab & X(1, 2), 36, "MESSAGE DE CONFIRMATION") = vbYes Then
X.Resize(, 3) = ""
End If
RIENASUPP:
End Sub

C'est juste une variante d'écriture (pour le fun)
Faut bien s'occuper pendant la tempête