Salut Den's, le Forum
Tu pourrais mettre une macro comme ceci : (par exemple dans le Module ThisWorkbook, macro "Workbook_Open")
Sub RecoveryTXT()
Dim ThePath As String
ThePath = ThisWorkbook.Path & "\BackUpTxt" & ".txt"
On Error GoTo ErrorHandler
Workbooks.OpenText Filename:=ThePath, Tab:=True, _
FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 2), Array(5, 1))
Exit Sub
ErrorHandler:
If Err = 1004 Then
End If
End Sub
Si le fichier existe il sera ouvert dans Excel, sinon il ne se passera rien...
Tu as une démo de ce genre de méthode ici :
Fichier téléchargeable Ce lien n'existe plus
Fil de Discussion Lien supprimé
Voir la macro "RecoveryBackUp" dans le Module "Exportation"...
Bon Travail
@+Thierry