'--------------------------------------------------------------------------------------
' A1 ---- RECHERCHE DU REPERTOIRE "CSV" DU JOUR D'ANALYSE A TRAITER (Chemin0)
'''--------------------------------------------------------------------------------------
Sub convertisseur()
'ici déclarer variables
'Dim JA As String
'Dim today
'Dim Jour As String, Mois As String, Annee As String
Dim SaveChanges
Dim i As Integer
'Annee = Year(Now)
'Mois = Month(Now)
'Jour = Day(Now)
'today = Jour & "-" & Mois & "-" & Annee
'JA = Format(DateAdd("n", 1, today), "dd-mm-yyyy") 'renvoie today + 1 minute
Dim Chemin0 As String
Chemin0 = Tablo_Const(8, 1)
' Chemin0 = "\\10.120.49.253\Serveur-CSV\manifestes-csv-du-" & JA & "\" '.....'sur mon serveur T
Dim Chemin00 As String 'affecte variable
Chemin00 = Tablo_Const(9, 1)
'Chemin00 = "\\10.120.49.253\Serveur-XLS-PAS-ANALYSES\manifestes-xls-du-" & JA & "\" 'identifie le chemin du dossier de sauvegarde des XLS
If Dir(Chemin00, vbDirectory + vbHidden) = "" Then MkDir (Chemin00)
'si le dossier n'existe pas, le créer
'ChDir Chemin00
If Dir(" & Tablo_Const(9, 1) & ", vbDirectory + vbHidden) = "" Then MkDir Tablo_Const(9, 1)
Dim maitre As String ' déclaration de la variable de type chaîne
Dim lefichier As String
Dim b As Long
Dim t As Integer
Dim recherche As String
Dim nvfi As String
Application.ScreenUpdating = False '
désactive l'affichage
maitre = ActiveWorkbook.Name
' le nom du classeur actif est affecté à maître
lefichier = Dir(Chemin0) ' soit tous les fichiers se trouvant dans répertoire à scruter
'While Right(lefichier, 3) = "csv" 'And lefichier <> ""
While lefichier <> ""
's'il existe un fichier
If Right(lefichier, 3) = "csv" Then
'UNIQUEMENT SI CSV
'A2 ========= ======= CODE QUI CONVERTIT LES CSV en XLS
'a) ====== ouverture du fichier
Workbooks.OpenText
(Chemin0) & lefichier, DataType:=xlDelimited, Other:=True, OtherChar:=","
ChDir
(Chemin0) 'B ======ligne qui convertit les CSV en XLS
'A3 ==== ARCHIVAGE PAR JOUR D'ANALYSE... des fichiers XLS CONVERTIS ======(Chemin00)
'b) =======enregistrement sous rep "XLS-PAS-ANALYSES" (Chemin (00)
ActiveWorkbook.SaveAs FileName:=(
Chemin00) + Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) _
- 4) & ".xls", FileFormat:=xlExcel5, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=True
'c)'réouvre le fichier CSV
Workbooks.Open (
Chemin0) & lefichier
'd) ======= re-enregistrement sous rep "CSV" avec l'extension XLS(Chemin0)
'ainsi n'ira pas reconvertir des CSV déjà traités
ActiveWorkbook.SaveAs FileName:=(
Chemin0) + Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) _
- 4) & ".xls"
'e) dans ces XLS supprime tous les datas (conserve uniq nom du fichier avec incrément
ActiveWorkbook.Worksheets(1).Range("A1:AV10000").Clear
'f) enregistre les modifications lors fermeture dans ce fichier xls
ActiveWorkbook.Close SaveChanges:=True
'g) SUPPRIME le fichier INITIAL CSV
Kill (
Chemin0) & lefichier
End If
'(fin de la restriction pour les fichiers CSV)
lefichier = Dir() '
pour affecter le nom de fichier suivant dans
Workbooks(maitre).Activate
Wend
'continuer
Application.ScreenUpdating = True ' active l'affichage "flash d'écran"
End Sub
,
