Discussion :

[cisco59]

bonjour
Voila peut on modifier lors de l'export le format de la date pour enlever les heures
si j'utilise

Code :

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

choixx = "(month(F_POIN.Date_Saisie) = 7 or month(F_POIN.Date_Saisie) = 8)"

c'est bon
parcontre

Code :

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

choixx = "(month(F_POIN.Date_Saisie) = month(date))"

ou

Code :

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

choixx = "(Format(F_POIN.Date_Saisie,'dd/mm/yyyy')=date())"

du au format de date je pense

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
Sub importpointage()
MsgBox Month(Date)
Application.ScreenUpdating = False
    Sheets("import").Visible = True
    Sheets("import").Select
     Cells.Select
    selection.Clear
choixx = "(month(F_POIN.Date_Saisie) = 7 or month(F_POIN.Date_Saisie) = 8)"
'choixx = "(Format(F_POIN.Date_Saisie,'dd/mm/yyyy')=date())"
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=lofic;UID=Administrateur;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=DELL04;DATABASE=LOFIC" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = _
        "SELECT F_POIN.DO_Piece, F_POIN.RP_Code, F_POIN.AR_ref, F_POIN.Date_Saisie , F_POIN.DL_Qte,  F_POIN.Initiales" _
        & Chr(13) & "" & Chr(10) & "FROM LOFIC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('FC0065','FC0105') and RP_Code IN('0FCTRL','FEMBA') AND " & choixx
        .RowNumbers = True
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
      .Refresh BackgroundQuery:=False
      .Delete
    End With
 
          Application.ScreenUpdating = True
End Sub

[tee_grandbois]

Bonjour,
essaie en utilisant un format de date abrégée dans l'instruction Select du paramètre CommandText.

[cisco59]

voila j'ai essayé

Code :

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

 "SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,F_POINTAGE.Date_Saisie=Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales" _

ou

Code :

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

 "SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales" _

rien n'y fait erreur de syntaxe

[tee_grandbois]

Bonjour,
ton dernier code est pourtant correct (sauf si la base LOFIC n'est pas une base Access ou ne reconnait pas Format).
Pour pister les erreurs de syntaxe on va utiliser une variable pour charger CommandText :

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
35
Sub importpointage()
Dim strCommandText as String
MsgBox Month(Date)
Application.ScreenUpdating = False
    Sheets("import").Visible = True
    Sheets("import").Select
     Cells.Select
    selection.Clear
choixx = "(month(F_POIN.Date_Saisie) = 7 or month(F_POIN.Date_Saisie) = 8)"
'choixx = "(Format(F_POIN.Date_Saisie,'dd/mm/yyyy')=date())"
strCommandText =   "SELECT F_POIN.DO_Piece, F_POIN.RP_Code, F_POIN.AR_ref, Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POIN.DL_Qte,  F_POIN.Initiales" _
               & Chr(13) & Chr(10) & "FROM LOFIC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('FC0065','FC0105') and RP_Code IN('0FCTRL','FEMBA') AND " & choixx
Debug.Print strCommandText     ' pour vérifier la syntaxe et la poster 
 
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=lofic;UID=Administrateur;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=DELL04;DATABASE=LOFIC" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandText = StrCommandText
        .RowNumbers = True
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
      .Refresh BackgroundQuery:=False
      .Delete
    End With
 
          Application.ScreenUpdating = True
End Sub

[cisco59]

bonjour et merci deja
mais cela me fait erreur de syntaxe

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
35
36
37
38
39
40
41
42
Sub importpointage()
 
Application.ScreenUpdating = False
    Sheets("import").Visible = True
    Sheets("import").Select
     Cells.Select
    selection.Clear
'******************************************
  strCommandText = _
        "SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales" _
        & Chr(13) & "" & Chr(10) & "FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') "
        Debug.Print strCommandText
 
'*******************************************
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "ODBC;DSN=sofilec;UID=Administrateur;Trusted_Connection=Yes;APP=Microsoft Office 2010;WSID=DELL06;DATABASE=SOFILEC" _
        , Destination:=Range("$A$1")).QueryTable
         .CommandText = strCommandText
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
      .Refresh BackgroundQuery:=False
      '.Delete
    End With
    ActiveSheet.Columns("d:d").Select
       selection.NumberFormat = "dd/mm/yyyy"
 
     Sheets("import").Columns("A:d").EntireColumn.AutoFit
     'Range("a1").Select
     figervolet
    trierdate
          Application.ScreenUpdating = True
 
End Sub

[tee_grandbois]

mais cela me fait erreur de syntaxe

OK. Est-il possible que tu précises sur quelle ligne ?

[cisco59]

a la fin

Code :

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

.Refresh BackgroundQuery:=False

[tee_grandbois]

Aucun rapport avec le format date ...

[tee_grandbois]

que donne le Debug.Print strCommandText ?

[cisco59]

le probleme est la c'est qu'il ne dit rien
voici l'execution

Code sql :

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
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref, Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') AND (month(F_POINTAGE.Date_Saisie) = 7 or month(F_POINTAGE.Date_Saisie) = 8)
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref, Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') AND (month(F_POINTAGE.Date_Saisie) = 7 or month(F_POINTAGE.Date_Saisie) = 8)
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref, Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as F_POINTAGE.DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(F_POINTAGE.Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref, Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as F_POINTAGE.DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(F_POINTAGE.Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,  F_POINTAGE.DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(F_POINTAGE.Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,F_POINTAGE.Date_Saisie , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,  F_POINTAGE.DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(F_POINTAGE.Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,  F_POINTAGE.DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(F_POINTAGE.Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,F_POINTAGE.Date_Saisie , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,F_POINTAGE.Date_Saisie , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,F_POINTAGE.Date_Saisie=Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') , F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA') 
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA')

[tee_grandbois]

si tu fais un copier/coller du code ci-dessous dans un nouvelle requète :

Code sql :

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

1
2
SELECT F_POINTAGE.DO_Piece, F_POINTAGE.RP_Code, F_POINTAGE.AR_ref,Format(F_POINTAGE.Date_Saisie,'dd/mm/yyyy') as DateSaisie, F_POINTAGE.DL_Qte,  F_POINTAGE.Initiales
FROM SOFILEC.dbo.F_POINTAGE WHERE year(Date_Saisie)='2017' and Initiales IN ('SOFC0065','SOFC0105') and RP_Code IN('021COFCTRL','021COFEMBA')

as-tu une erreur de syntaxe ?

[tee_grandbois]

en revoyant le code, je pense que :

Code :

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

.Refresh BackgroundQuery:=False

est faux
cela devrait être :

Code :

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

1
2
.Refresh 
.BackgroundQuery:=False

[cisco59]

tout est en rouge erreur compimlation

[tee_grandbois]

mets les 2 instructions en commentaires (une apostrophe devant chacune)