Bonjour à tous, 

Lors du déplacement d'un fichier j'ai un petit souci... 'Erreur d'exécution 53 fichier introuvable'

voici mon code:

    Dim theExcelFile As String, savePath As String
    Dim typeFeuille As Integer
    
    theExcelFile = ""
    If CtlExcelFile & "" <> "" Then theExcelFile = CtlExcelFile.value
    If (theExcelFile & "" = "") Then
        MsgBox ("Vous devez choisir un classeur de feuilles d'absences à importer")
    Else
        
        typeFeuille = importAbsencesExcel(theExcelFile)
        If (typeFeuille = 1) Then
            savePath = "W:\Archives\ImportAbsExcel\Prof\" & date & "-" & ExtracFileNameFromFullPath(theExcelFile)
        Else
            savePath = "W:\Archives\ImportAbsExcel\UE\" & date & "-" & ExtracFileNameFromFullPath(theExcelFile)
        End If
        
        Debug.Print theExcelFile
        Debug.Print savePath
        
        Name theExcelFile As savePath
        
        DoCmd.Close
    End If

ma variable contiennent:

theExcelFile -> C:\Local\2.327.006-2017-2018-4TBFR-1-A.xls
savePath -> W:\Archives\ImportAbsExcel\UE\16/01/2018-2.327.006-2017-2018-4TBFR-1-A.xls

merci d'avance du coup de main

Modification : trouvé c'était un problème de format de date

-
Edité par Elen 16 janvier 2018 à 10:20:17