Conversion csv -> xls d'un repertoire complet - Page 3

Résolu
Précédent
  • 1
  • 2
  • 3
lermite222 Messages postés 9042 Statut Contributeur 1 199
 
En principe le "slach est compris mais je constate que dans "Mes documents..." il manque
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.
0
beneton Messages postés 63 Date d'inscription   Statut Membre Dernière intervention   5
 
c'est super! ca marche aussi bien sur exel2003 que 2007
ca tombe bien j'ai 240 fichier à convertir pour demain
hop, 2min et c'est fini.

merci encore
0
lermite222 Messages postés 9042 Statut Contributeur 1 199
 
Content pour toi qu'ont y soit finalement parvenu.
A+
0
Précédent
  • 1
  • 2
  • 3