Bonjour,

J'importe dans ma DB, mes relevés bancaires pros que j'ai préalablement téléchargés sur le site de ma banque.
Ce sont des fichiers.xls mais au format "Page Web" ce qui m'oblige à appliquer un Saveas pour modifier le format et ainsi lancer le transfert des données dans ma DB.
Jusque là, je sais le faire par VBA mais seulement quand il n'y a qu'un seul fichier dans mon répertoire spécifique et avec un nom de fichier précis.

J'aimerai pouvoir gérer la possibilité qu'il puisse y avoir plusieurs relevés bancaires à traiter et avec des noms variables.
J'ai écris ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande2_Click()
    Dim rep As String
    Dim xlApp As Variant, xlBook As Variant, xlSheet As Variant
    Set xlApp = CreateObject("Excel.Application")
    'Set xlBook = xlApp.Workbooks.Open("F:\Mes Documents\Finance\Application\Relevés banque\CA20140223_1048.xls")
    'Set xlSheet = xlBook.Worksheets("CA20140223_1048")
    'xlApp.Visible = True
 
    ' Obtient le premier fichier ou répertoire qui est dans "F:\"
    rep = Dir("F:\Mes documents\Finance\Application\Relevés banque\*.xls", vbNormal)
    MsgBox rep
 
    ' Boucle tant que le répertoire n'a pas été entièrement parcouru
    Do While (rep <> "")
 
        Set xlBook = xlApp.Workbooks.Open(rep)
        'Set xlSheet = xlBook.Worksheets("monfichier")
        xlApp.ActiveWorkbook.SaveAs FileName:="F:\Mes Documents\Finance\Application\Relevés banque\monnouveaufichier.xls", FileFormat:=xlExcel8
        rep = Dir
    Loop
End Sub
et j'ai une erreur ici :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set xlBook = xlApp.Workbooks.Open(rep)
Access m'indique que le fichier répertorié est introuvable ou mal écris .... alors que lors du survol de ma souris sur ma variable rep ainsi que dnas ma MsgBox (dans le code pour le test), le nom du fichier à traiter est bien existant et bien écris aussi.

Est-ce un problème de syntaxe ?
Merci pour vos lumières.
Bonne journée.