Bonjour,
je suis newbie sur le VB, et je viens de faire un programme qui doit ouvrir un par un les fichiers xls d'un répertoire A et les enregistrer dans un répertoire B (En fait ce sont des fichiers HTML avec une extension xls).

J'exécute pas à pas et sur la ligne d'ouverture, il me sort une erreur 1004. Ma connaissance s'arrêtant là, pourriez-vous m'aider pour que cela fonctionne ?

Merci.

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
 
Sub test()
    Dim Fich As String, Texte As String
 
    Const Chemin1 = "H:\vb\in\"
    Const Chemin2 = "H:\vb\out\"
 
    fich1 = Dir(Chemin1 & "*.xls")
    Complet1 = Chemin1 & fich1 & ".xls"
    Nom = Left(fich1, Len(fich1) - 4)
    Complet2 = Chemin2 & Nom & ".xls"
 
    Do While Complet1 <> ""
 
    Workbooks.Open Complet1, 0
    ActiveWorkbook.SaveAs Complet2
    Workbooks.Close
 
    Loop
End Sub