Bonsoir tous le monde
à l'aide de l'enregistreur automatique j'ai enregistrer le code suivant :
je cherche à
1/ simplifier le code
2/ surtout remplacer la date pour quelle soit variable et à saisir par l'utilisateur dans E7 de la feuille "Acceul" pour la date début et E8 de la meme feuille pour la date fin
la date actuellement se trouve dans le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Sub connectmatuse()
'importer données des consommations MATUSETRANS
 With Sheets("matusetrans")
 Sheets("matusetrans").Select
 Cells.Select
    Selection.ListObject.QueryTable.Delete
    Selection.ClearContents
 
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DRIVER={Microsoft ODBC for Oracle};UID=maxicf;SERVER=ICF;", Destination _
        :=Range("$A$1")).QueryTable
        .CommandText = Array( _
        "SELECT MATUSETRANS.*" & Chr(13) & "" & Chr(10) & "FROM MAXICF.MATUSETRANS MATUSETRANS" & Chr(13) & "" & Chr(10) & "WHERE  (MATUSET" _
        , "RANS.TRANSDATE>={ts '2016-04-01 00:00:00'})AND (MATUSETRANS.TRANSDATE<={ts '2016-04-30 00:00:00'})")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Tableau_DonnéesExternes_2"
        .Refresh BackgroundQuery:=False
    End With
  End With
End Sub
BONNE SOIRÉE A TOUS et merci d'avance