Discussion :

[BENNASR]

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

[joe.levrai]

Bonjour,

quelque chose comme ça ?

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
Sub connectmatuse()
'importer données des consommations MATUSETRANS
    With Sheets("matusetrans")
        With .Cells
            .ListObject.QueryTable.Delete
            .ClearContents
        End With
 
        With .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 '" & Sheets("ACCUEIL").Range("E7").Text & " 00:00:00'})AND (MATUSETRANS.TRANSDATE<={ts '" & Sheets("ACCUEIL").Range("E7").Text & " 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

Il faut au préalable que les cellules E7 et E8 soient au format "personnalisé" aaaa-mm-jj

En effet, la propriété .text de la cellule va renvoyer la date telle qu'elle est affichée sur excel.


par exemple, si tu écris 01/04/2016 dans la cellule et que tu lui appliques le format dont j'ai parlé :

- dans la cellule tu vois 2016-04-01
- dans la barre de formule tu vois 01/04/2016
- la propriété .Text te renvoie 2016-04-01
- la propriété .Value te renvoie 01/04/2016

[Theze]

Bonjour à toutes et tous,

- la propriété .Text te renvoie 2016-04-01
- la propriété .Value te renvoie 01/04/2016

et Value2 renvoi le numéro de série de la date en l'occurence 42461

[Invité]

Bonjour,
il faut que les date soient au même format dans ta requête!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With .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" _
                , "Format(RANS.TRANSDATE,'yyyy-mm-dd hh:mm:ss')>={ts '" & format(Sheets("ACCUEIL").Range("E7").Text , "yyyy_mm-dd hh:mm:ss") & "'})AND (MATUSETRANS.TRANSDATE<={ts '" & Sheets("ACCUEIL").Range("E7").Text & " 00:00:00'})")

mais je pense que dans oracle ça ressemble plus à ça!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TO_CHAR(MYDATE,'DD-MM-YYYY HH24:MI:SS')

mais il existe chez oracle une requête qui formate les date pour toute la session de la connexion!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
sql="ALTER SESSION SET NLS_DATE_FORMAT = 'yyyy-mm-dd HH24:MI:SS'"
sql=sql " select Mdate from table Where Mydate>'2016-05-01 14:55:28';"

tu peux même forcer au format excel alors plus de problème tu passe la valeur de ta cellule!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"ALTER SESSION SET NLS_DATE_FORMAT = 'dd/mm/yyyy HH24:MI:SS'"

et là ta requête devrait passer tel qu'elle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
sql="ALTER SESSION SET NLS_DATE_FORMAT = 'dd/mm/yyyy HH24:MI:SS'" & vbcrlf
sql=sql &   "SELECT MATUSETRANS.*" & vbcrlf & "FROM MAXICF.MATUSETRANS MATUSETRANS" & vbcrlf & "WHERE  (MATUSET" _
                , "RANS.TRANSDATE>={ts '" & format(Sheets("ACCUEIL").Range("E7").Text , "dd/mm/yyyy 00:00:00") & "'})AND (MATUSETRANS.TRANSDATE<={ts '" & Sheets("ACCUEIL").Range("E7").Text & " 00:00:00'})")

[BENNASR]

bonjours à tous, MERCI MESSIEURS : rdurupt, Theze et joe.levrai pour vos réponses et disponibilités
* joe.levrai j'ai adapté ta proposition moyennant une petite modification
déclarer date début et date fin comme "string" et ça fonctionne à merveille

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
31
32
33
34
Sub connectmatuse()
'importer données des consommations MATUSETRANS
Dim datdeb As String
Dim datfin As String
datdeb = Sheets("Acceuil").Range("J7").Text
datfin = Sheets("Acceuil").Range("J8").Text
 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 '" & datdeb & " 00:00:00'})AND (MATUSETRANS.TRANSDATE<={ts '" & datfin & " 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