Conversion csv -> xls d'un repertoire complet - Page 3
Résolu
Précédent
- 1
- 2
- 3
En principe le "slach est compris mais je constate que dans "Mes documents..." il manque
ajouter la ligne
Ca devrait aller.
ajouter la ligne
Sub ConvertiCvsXls()
Dim TB
Dim Lig As Long, i As Integer, AncNom As String
AncNom = Fichier
If Right(Chemin, 1) <> "\" Then Chemin = Chemin & "\"
Ca devrait aller.
Précédent
- 1
- 2
- 3