Discussion :

[Nicos77]

Bonjour,

J'ai un dossier avec plein de classeur XLS (c:\Mes_Classeurs\)
Je souhaiterai ouvrir ces classeurs 1 par 1, de manière invisible afin de les réenregistrer sous format TXT avec séparateur TAB.

Ces classeurs évoluent tous les jours et de nouveaux viennent s'ajouter.

Merci @ vous

[Megaxel]

Salut!
Fais une recherche avancée sur ce forum sur "fichier texte" et "Dir", et tu trouveras à peu de chose près le code que tu cherches.

[SfJ5Rpw8]

pour la liste des classeurs tu as la commande DIR ... ! que fais tu classeur .xls .. une fois le .txt généré?

[Nicos77]

pour la liste des classeurs tu as la commande DIR ... ! que fais tu classeur .xls .. une fois le .txt généré?

Je le réimporte dans une application sous SUN

[SfJ5Rpw8]

pour la liste des classeurs tu as la commande DIR ... ! que fais tu classeur .xls .. une fois le .txt généré?

Je le réimporte dans une application sous SUN

non les .xls ... tu les conserves... ou tu les détruits ..? enfait c'était pour connaître le moyen à utliser pour savoir qu'un fichier à été traité...

[Nicos77]

pour la liste des classeurs tu as la commande DIR ... ! que fais tu classeur .xls .. une fois le .txt généré?

Je le réimporte dans une application sous SUN

non les .xls ... tu les conserves... ou tu les détruits ..? enfait c'était pour connaître le moyen à utliser pour savoir qu'un fichier à été traité...

Je préfererai les garder mais s'il faut, je les deplace ou les renomme !!

[SfJ5Rpw8]

tiens un peu de code ...

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Sub SauveFichier(stRep As String, st As String)
 Dim StText As String
 Dim W As Workbook
 StText = Left(st, Len(st) - 3) & "txt"
 Debug.Print StText
 If Dir(stRep & StText) = "" Then
    Set W = Workbooks.Open(stRep & st)
    W.SaveAs stRep & StText, xlText
    W.Close False
 
 End If
 
End Sub
 
Sub ChercheFichiers()
Dim stRep As String
Dim stF As String
Dim LF() As String  'Liste des fichiers
Dim i As Integer
stRep = "c:\toto\" 'Nom du répertoire surveillé
  stF = Dir(stRep & "*.xls")
  '
  'Dans un premier génére la liste de fichiers
  While stF <> ""
    ReDim Preserve LF(i)
    LF(i) = stF
    i = i + 1
    stF = Dir
  Wend
  'Utilise la liste de fichiers
  For i = 0 To UBound(LF)
   SauveFichier stRep, LF(i)
  Next
 
End Sub