Bonjour,
J'ai trouvé la cause du fichier qui semblait corrompu > le format papier, de mon imprimante par défaut, est "Lettre" > un changeant pour "A4" > bingo > le fichier s'ouvre bien.
Le problème ...
Se peut-il que lors de l'utilisation avec Excel 2010, il y eût moins de fichiers à traiter ?
Je demande, car en changeant i, j et f pour des Long, le traitement se complète.
Sub essai()
Dim u As String
Application.ScreenUpdating = False
dercol1 = ActiveSheet.Range("IH2").End(xlToLeft).Column 'teste la dernière colonne remplie du tableau
u = Cells(1, dercol1).Value
Dim i As Long
Dim j As Long
...
...
...
...
Dim f As Long 'efface les lignes vides
...
Aussi, pour gagner passablement en temps d'exécution, je suggère d'ajouter au début de tes macros :
Principalement à la macro "Importer" située dans la feuille "Débit" ....
Application.ScreenUpdating = False.
Nul besoin de remettre à True > cela se fait automatiquement à la fin du traitement.
Un dernier point : j'ai remarqué qu'on semble encore gagner en rapidité si l'affichage de la feuille "Débit" est à "Normal".
ric