Bonjour,
Voilà donc le code qui sort de l'enregistreur. Comme vous pouvoir le voir le fichier porte le nom de "Enceinte 2-1" dans le chemin "AS-8\Réponses en fréquences\Export\02-05-2019"'
Mais, je souhaite pouvoir appliquer ce programme par exemple pour l'enceinte 4-1 (test de performances) dans le chemin Export\10-05-2019 ( la date des tests).
Merci pour votre rapide réponse en tout cas.
Sub Bouton_Take_and_replace()
'
' Bouton_Take_and_replace Macro
'
'
Range("A1").Select
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveWorkbook.Queries.Add Name:="Enceinte 2-1 (2)", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Csv.Document(File.Contents(""C:\Users\Theo\Documents\Stage\AS-8\Réponses en fréquences\Export\02-05-2019\Enceinte 2-1.txt""),null,{0, 16, 32},null,1252)," & Chr(13) & "" & Chr(10) & " #""Type modifié"" = Table.TransformColumnTypes(Source,{{""Column1"", type text}, {""Column2"", type text}, {""Column3"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Type modifié"""
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Enceinte 2-1 (2)"";Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Enceinte 2-1 (2)]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "Enceinte_2_1__2"
.Refresh BackgroundQuery:=False
End With
Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Application.CommandBars("Queries and Connections").Visible = False
Range("Enceinte_2_1__2[[#All],[Column1]]").Select
Selection.TextToColumns Destination:=Range( _
"Enceinte_2_1__2[[#Headers],[Column1]]"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("Enceinte_2_1__2[[#All],[Column2]]").Select
Selection.TextToColumns Destination:=Range( _
"Enceinte_2_1__2[[#Headers],[Column2]]"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("Enceinte_2_1__2[[#All],[Column3]]").Select
Selection.TextToColumns Destination:=Range( _
"Enceinte_2_1__2[[#Headers],[Column3]]"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Range("Enceinte_2_1__2[[#Headers],[Column1]]").Select
End Sub