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
|
Sub Mise_en_Forme()
'
' Macro de mise en forme du tableau recevant les résultats de la requête
'
Columns("A:AB").Select
Selection.ColumnWidth = 7
Columns("R:V").Select
Selection.EntireColumn.Hidden = True
Columns("L:O").Select
Selection.EntireColumn.Hidden = True
Columns("G:I").Select
Selection.ColumnWidth = 9
Range("E:E,J:J").Select
Selection.ColumnWidth = 30
Columns("X:Y").ColumnWidth = 12
Columns("B:B").Select
Selection.TextToColumns destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Selection.NumberFormat = "0"
Range("A1").Select
End Sub
Sub remettre_calculs()
'REPRISE CALCUL AUTO
Application.Calculation = xlCalculationAutomatic
Calculate
End Sub
Public Sub lancerRequeteMSQ(connexion, requeteSQL, onglet)
Dim oQuery As QueryTable
'récupération de l'objet query
Set oQuery = ActiveWorkbook.Worksheets(onglet).ListObjects(1).QueryTable
'Affectation de la nouvelle connexion
oQuery.Connection = connexion
'Affectation de la nouvelle requete
oQuery.CommandText = requeteSQL
'rafraîchissement de la requête
oQuery.Refresh
'ThisWorkbook.RefreshAll
End Sub
Public Sub Arret_calcul_auto_et_retirer_filtres()
Sheets("Commande GPA").Select 'ARRET DU CALCUL AUTO
Application.Calculation = xlCalculationManual
If Sheets("Commande GPA").FilterMode = True Then 'ENLEVER LES FILTRES
Selection.AutoFilter Field:=1, Criteria1:=310
ActiveSheet.ShowAllData
End If
End Sub |
Partager