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 :
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 :
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.
Partager