1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
| Sub Importe_Resultat()
On Error GoTo ErrorHandler
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
' Teste l'existence du fichier
If fs.FileExists("m:\REQUETES\RESULTATS\Resultat.xls") = True Then
' Le fichier existe à l'état d'exportation brut, il est mis en forme
Workbooks.OpenText Filename:="M:\requetes\Resultats\Resultat.xls", _
Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
Comma:=False, Space:=False, Other:=True, OtherChar:="#", FieldInfo:= _
Array(Array(1, 2), Array(2, 2))
Else
MsgBox "Le fichier Resultat.xls n'exite pas ou n'existe plus !", vbCritical, Title:="Désolé"
End If
Exit Sub
ErrorHandler:
If Application.ScreenUpdating = False Then
Application.ScreenUpdating = True
End If
Dim Msg
If Err.Number <> 0 Then
Msg = "L'erreur # " & Str(Err.Number) & " a été générée par " _
& Err.Source & Chr(13) & Err.Description
MsgBox Msg, , "Erreur : Veuillez prévenir le responsable SVP !", Err.HelpFile, Err.HelpContext
End If
End Sub |
Partager