Message d'erreur à l'ouverture d'un fichier

[libellule85]

Bonjour le forum,

Je ne comprends pas, j'ai travaillé sur un fichier que j'ai enregistré et réouvert à plusieurs reprises et maintenant à chaque fois que je l'ouvre il me met un message d'erreur :



et le journal de l'erreur



Comment faire pour éviter celui-ci ?
D'avance merci pour votre aide

 

[Tibo]

Re : Message d'erreur à l'ouverture d'un fichier

Bonjour,

Par prudence, je tenterai de reconstituer le fichier.

En faisant un copier coller des données et formules de ton fichier vers un classeur tout neuf.

Un peu de boulot certes, mais l'assurance de repartir avec un fichier propre.

@+

 

[libellule85]

Re : Message d'erreur à l'ouverture d'un fichier

Re bonjour Tibo,

merci beaucoup pour ton conseil que je vais suivre

 

[libellule85]

Re : Message d'erreur à l'ouverture d'un fichier

Re,

J'ai refais un nouveau fichier mais mon problème reste le même j'ai toujours le même message d'erreur à l'ouverture de ce fichier.
J'ai deux macros dans ce fichier :
la Première dans la feuille 1 :

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A3:KM500")) Is Nothing Then
     Application.EnableEvents = False
            Call tri
          Application.EnableEvents = True
 End If
 End Sub

la deuxième dans un module :

Sub tri()
    Range("A3:KM500").Sort Key1:=Range("b3"), Order1:=xlAscending, Key2:=Range( _
        "B3"), Order2:=xlAscending, _
        Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:= _
        xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal
    End Sub

Apparemment ce sont ces deux macros qui me posent problème !

 

[libellule85]

Re : Message d'erreur à l'ouverture d'un fichier

Re,

Personne pour me renseigner concernant cette erreur ?

 

[Fred0o]

Re : Message d'erreur à l'ouverture d'un fichier

Bonjour libellule, Tibo

Sans avoir la prétention de traiter ton problème, j'ai remarqué ce qui me semble être une anomalie dans le code de la macro "Tri". En effet, tu fais le tri avec la clé Key1=Range("b3") et la clé Key2=Range("B3") ce qui est la même clé.

Peut-être cela provoque-t-il un conflit ?

A+

 

[libellule85]

[Résolu] Message d'erreur à l'ouverture d'un fichier

Bonjour FredOo,

Effectivement, après modification et plusieurs essais quand je rouvre le fichier je n'ai plus d'erreur !
Un grand grand merci pour ton aide
Bon Après midi