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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73
| Option Explicit
Sub Saisie_OF()
Dim NumOF As Long
NumOF = Application.InputBox(Prompt:="Saisir le numéro de l'OF", Title:="Numéro de L'of", Type:=1)
Extract_OF_Visseuses NumOF
End Sub
Sub Extract_OF_Visseuses(Numero_OF As Long)
'
' Extraction automatique des OF
'
'
ActiveWorkbook.Queries.Add Name:=Numero_OF, Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Folder.Files(""R:\RET3K21R01\Industrialisation\Vissage\vissage A\R43\Numero_OF"")," & Chr(13) & "" & Chr(10) & " #""Autres colonnes supprimées"" = Table.SelectColumns(Source,{""Content""})," & Chr(13) & "" & Chr(10) & " #""Fichiers masqués filtrés1"" = Table.SelectRows(#""Autres colonnes supprimées"", each [Attributes]?[Hidden]? <> true)," & Chr(13) & "" & Chr(10) & " #""Appeler une fonction personnalisée1"" = Table.AddCol" & _
"umn(#""Fichiers masqués filtrés1"", ""Transformer le fichier"", each #""Transformer le fichier""([Content]))," & Chr(13) & "" & Chr(10) & " #""Autres colonnes supprimées1"" = Table.SelectColumns(#""Appeler une fonction personnalisée1"", {""Transformer le fichier""})," & Chr(13) & "" & Chr(10) & " #""Colonne de tables développée1"" = Table.ExpandTableColumn(#""Autres colonnes supprimées1"", ""Transformer le fichier" & _
""", Table.ColumnNames(#""Transformer le fichier""(#""Exemple de fichier"")))," & Chr(13) & "" & Chr(10) & " #""Type modifié"" = Table.TransformColumnTypes(#""Colonne de tables développée1"",{{""Column1"", type text}})," & Chr(13) & "" & Chr(10) & " #""Lignes filtrées"" = Table.SelectRows(#""Type modifié"", each [Column1] <> ""N°;Br;Cy;Ph;Date;Heure;C(Nm);A(dg);CR;"")," & Chr(13) & "" & Chr(10) & " #""Valeur remplacée"" = Table.ReplaceValue" & _
"(#""Lignes filtrées"",""#(0000)"","""",Replacer.ReplaceText,{""Column1""})," & Chr(13) & "" & Chr(10) & " #""Lignes filtrées1"" = Table.SelectRows(#""Valeur remplacée"", each [Column1] <> """")," & Chr(13) & "" & Chr(10) & " #""Fractionner la colonne par délimiteur"" = Table.SplitColumn(#""Lignes filtrées1"", ""Column1"", Splitter.SplitTextByDelimiter("";"", QuoteStyle.Csv), {""Column1.1"", ""Column1.2"", ""Column1" & _
".3"", ""Column1.4"", ""Column1.5"", ""Column1.6"", ""Column1.7"", ""Column1.8"", ""Column1.9"", ""Column1.10""})," & Chr(13) & "" & Chr(10) & " #""Type modifié1"" = Table.TransformColumnTypes(#""Fractionner la colonne par délimiteur"",{{""Column1.1"", type text}, {""Column1.2"", Int64.Type}, {""Column1.3"", Int64.Type}, {""Column1.4"", Int64.Type}, {""Column1.5"", type date}, {""Column1.6""" & _
", type time}, {""Column1.7"", type text}, {""Column1.8"", type text}, {""Column1.9"", type text}, {""Column1.10"", type text}})" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " #""Type modifié1"""
ActiveWorkbook.Queries.Add Name:="Exemple de fichier", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Folder.Files(""R:\RET3K21R01\Industrialisation\Vissage\vissage A\R43\Numero_OF"")," & Chr(13) & "" & Chr(10) & " #""Autres colonnes supprimées"" = Table.SelectColumns(Source,{""Content""})," & Chr(13) & "" & Chr(10) & " Navigation1 = #""Autres colonnes supprimées""{0}[Content]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Navigation1"
ActiveWorkbook.Queries.Add Name:="Paramètre1", Formula:= _
"#""Exemple de fichier"" meta [IsParameterQuery=true, BinaryIdentifier=#""Exemple de fichier"", Type=""Binary"", IsParameterQueryRequired=true]"
ActiveWorkbook.Queries.Add Name:="Transformer l'exemple de fichier", Formula _
:= _
"let" & Chr(13) & "" & Chr(10) & " Source = Csv.Document(Paramètre1,[Delimiter=""#(tab)"", Columns=1, Encoding=1252])" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Source"
ActiveWorkbook.Queries.Add Name:="Transformer le fichier", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " Source = (Paramètre1) => let" & Chr(13) & "" & Chr(10) & " Source = Csv.Document(Paramètre1,[Delimiter=""#(tab)"", Columns=1, Encoding=1252])" & Chr(13) & "" & Chr(10) & " in" & Chr(13) & "" & Chr(10) & " Source" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " Source"
ActiveWorkbook.Worksheets.Add
With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Numero_OF;Extended Properties=""""" _
, Destination:=Range("$A$1")).QueryTable
.CommandType = xlCmdSql
.CommandText = Array("SELECT * FROM [Numero_OF]")
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.ListObject.DisplayName = "_Numero_OF"
.Refresh BackgroundQuery:=False
End With
Workbooks("Classeur1").Connections.Add2 "Requête*-*Exemple de fichier", _
"Connexion à la requête «*Exemple de fichier*» dans le classeur.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Exemple de fichier"";Extended Properties=""""" _
, "SELECT * FROM [Exemple de fichier]", 2
Workbooks("Classeur1").Connections.Add2 "Requête*-*Paramètre1", _
"Connexion à la requête «*Paramètre1*» dans le classeur.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Paramètre1;Extended Properties=""""" _
, "SELECT * FROM [Paramètre1]", 2
Workbooks("Classeur1").Connections.Add2 _
"Requête*-*Transformer l'exemple de fichier", _
"Connexion à la requête «*Transformer l'exemple de fichier*» dans le classeur." _
, _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Transformer l'exemple de fichier"";Extended Properties=""""" _
, "SELECT * FROM [Transformer l'exemple de fichier]", 2
Workbooks("Classeur1").Connections.Add2 "Requête*-*Transformer le fichier", _
"Connexion à la requête «*Transformer le fichier*» dans le classeur.", _
"OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Transformer le fichier"";Extended Properties=""""" _
, "SELECT * FROM [Transformer le fichier]", 2
End Sub |