Sub a1_Konvertieren()
Dim Wb As Workbook, Chemin_et_Chiffres_avec_Suffix_xlsx As String
Dim LetzteZeile As Long, i As Long
For Each Wb In Workbooks
If Wb.Name = "Chiffres.xlsx" Then
Windows("Chiffres.xlsx").Close
End If
Next Wb
' conversion d'un fichier brut généré par l'ERP :
Workbooks.OpenText Filename:=Chemin_et_Chiffres_sans_Suffix _
, Origin:=xlWindows, StartRow:=1, DataType:=xlDeliaveced, TextQualifier _
:=xlDoubleQuote, ConsecutiveDeliavecer:=False, Tab:=True, Semicolon:=True _
, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1) _
, Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1), Array(21, 1), _
Array(22, 1), Array(23, 1)), TrailingMinusNumbers:=True
' je colle en entête de colonne le titre des rubriques
Range("W1") = "Mois"
Range("X1")= "Année"
Range("Y1")= "Période"
Application.DisplayAlerts = False
'Chemin_et_Chiffres_avec_Suffix_xlsx = ThisWorkbook.Path & "\Chiffres.xlsx"
' ici l'enregistrement : le fichier brut généré par l'ERP est enregistré en .xlsx
ActiveWorkbook.SaveAs Filename:=Chemin_et_Chiffres_avec_Suffix_xlsx _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
LetzteZeile = Sheets("Chiffres").Range("A" & Rows.Count).End(xlUp).Row
' je colle des valeurs recueillies précédemment
Workbooks("Fichier_Semaine.xlsm").Activate
Sheets("Paramètres").Select
MyMonth = Range("M100").Value
MyYear = Range("N100").Value
Statut = Range("K100").Value
If Statut = True Then
Periode = "du 1er au " & Range("L100").Value & " du mois clôturé"
Else
Periode = "du 1er au " & Range("L100").Value & " du mois"
End If
'
Workbooks("chiffres.xlsx").Worksheets("Chiffres"). Activate
With Sheets("Chiffres")
For i = 2 To LetzteZeile
Cells(i, 23) = MyMonth
Cells(i, 24) = MyYear
Cells(i, 25) = Periode
Next i
End With
' une fois les données prélevées, le fichier est enregistré
ActiveWorkbook.SaveAs Filename:=Chemin_et_Chiffres_avec_Suffix_xlsx _
, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Application.DisplayAlerts = True
End Sub