Bonjour
J'ai une bizarre et aléatoire mais rare erreur d'exécution '75' (Erreur dans
le chemin d'accès dans le code suivant :
If Dir("Last Hand Old.TXT") <> "" Then
Kill "Last Hand Old.TXT"
End If
If Dir("Last Hand.TXT") <> "" Then
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
End If
L'exécution s'arrête (parfois !) en mode interprété sur l'instruction Name,
mais il suffit d'appuyer sur F5 pour faire continuer le programme. Que se
passe-t-il ?
Il me semble avoir résolu le problème (?) en faisant :
On Error Resume Next
If Dir("Last Hand.TXT") <> "" Then
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
End If
Mais cela n'est pas satisfaisant !
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jacques93
Bonjour Barsalou, Barsalou a écrit :
Bonjour J'ai une bizarre et aléatoire mais rare erreur d'exécution '75' (Erreur dans le chemin d'accès dans le code suivant : If Dir("Last Hand Old.TXT") <> "" Then Kill "Last Hand Old.TXT" End If If Dir("Last Hand.TXT") <> "" Then Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" End If L'exécution s'arrête (parfois !) en mode interprété sur l'instruction Name, mais il suffit d'appuyer sur F5 pour faire continuer le programme. Que se passe-t-il ?
Il me semble avoir résolu le problème (?) en faisant : On Error Resume Next If Dir("Last Hand.TXT") <> "" Then Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" End If Mais cela n'est pas satisfaisant !
Merci de me dire si vous avez une idée !
D'après ce que tu décris, c'est comme si le fichier 'Last Hand Old.TXT' n'était pas encore supprimé lorsqu'on arrive sur le Name, bien que dans ce cas là cela devrait générer une erreur 58 (Ce fichier existe déjà). Donc à tout hasard, peut être une boucle :
While Dir("Last Hand Old.TXT") <> "" DoEvents Wend
avant le Name ? -- Cordialement,
Jacques.
Bonjour Barsalou,
Barsalou a écrit :
Bonjour
J'ai une bizarre et aléatoire mais rare erreur d'exécution '75' (Erreur
dans le chemin d'accès dans le code suivant :
If Dir("Last Hand Old.TXT") <> "" Then
Kill "Last Hand Old.TXT"
End If
If Dir("Last Hand.TXT") <> "" Then
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
End If
L'exécution s'arrête (parfois !) en mode interprété sur l'instruction
Name, mais il suffit d'appuyer sur F5 pour faire continuer le programme.
Que se passe-t-il ?
Il me semble avoir résolu le problème (?) en faisant :
On Error Resume Next
If Dir("Last Hand.TXT") <> "" Then
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT"
End If
Mais cela n'est pas satisfaisant !
Merci de me dire si vous avez une idée !
D'après ce que tu décris, c'est comme si le fichier 'Last Hand Old.TXT'
n'était pas encore supprimé lorsqu'on arrive sur le Name, bien que dans
ce cas là cela devrait générer une erreur 58 (Ce fichier existe déjà).
Donc à tout hasard, peut être une boucle :
While Dir("Last Hand Old.TXT") <> ""
DoEvents
Wend
Bonjour J'ai une bizarre et aléatoire mais rare erreur d'exécution '75' (Erreur dans le chemin d'accès dans le code suivant : If Dir("Last Hand Old.TXT") <> "" Then Kill "Last Hand Old.TXT" End If If Dir("Last Hand.TXT") <> "" Then Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" End If L'exécution s'arrête (parfois !) en mode interprété sur l'instruction Name, mais il suffit d'appuyer sur F5 pour faire continuer le programme. Que se passe-t-il ?
Il me semble avoir résolu le problème (?) en faisant : On Error Resume Next If Dir("Last Hand.TXT") <> "" Then Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" Name DFpath & "Last Hand.TXT" As DFpath & "Last Hand old.TXT" End If Mais cela n'est pas satisfaisant !
Merci de me dire si vous avez une idée !
D'après ce que tu décris, c'est comme si le fichier 'Last Hand Old.TXT' n'était pas encore supprimé lorsqu'on arrive sur le Name, bien que dans ce cas là cela devrait générer une erreur 58 (Ce fichier existe déjà). Donc à tout hasard, peut être une boucle :
While Dir("Last Hand Old.TXT") <> "" DoEvents Wend
avant le Name ? -- Cordialement,
Jacques.
Jacques93
Jacques93 a écrit :
Bonjour Barsalou,
[...]
Tu peux aussi essayer avec les API's, cela permettra peut être de mieux cerner le problème :