Créer une requête suppression avec condition

**ANANA49** · 03/12/2018, 17h07

Bonjour,

Je souhaiterais trouver le code SQL lié à une requête suppression d'enregistrements sous condition.

En clair, je souhaite supprimer toutes les lignes d'une table qui sont placées après une donnée (ACTION2) qui se trouve dans le champ F1.

Code :

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

1
2
3
4
 
DELETE T_ACTION
FROM T_ACTION
Where ...

Merci pour votre aide.

**tee_grandbois** · 03/12/2018, 17h24

bonjour,
pas très clair la demande, peut-être qu'une capture d'écran des données aiderait à y voir mieux ?

**ANANA49** · 04/12/2018, 09h44

Bonjour tee-Grandbois,

Je te transmets le fichier Excel que j'importe dans ma base Access en liaison. Le but est de créer une requête qui me supprime tous les données après "ACTION2" (A partir de la ligne 19 du fichier). Je souhaite garder uniquement le premier tableau à partir de la ligne 5. Les données sont variables donc je peux avoir 10 lignes à conserver comme +++ mais ce sera toujours après "ACTION2".
Je ne sais pas si c'est possible sur Access mais avec ton expérience de retraité (Actif) je me dis que rien n'est impossible..

**tee_grandbois** · 04/12/2018, 13h56

bonjour,
ce n'est pas une table mais un classeur attaché, je ne suis pas persuadé que l'on puisse supprimer des lignes via une requête.
Il faut peut être voir le problème différemment : que fais-tu des lignes que tu veux garder ?

**ANANA49** · 04/12/2018, 14h06

Oui effectivement c'est un classeur attaché mais je crée une table avec une requête et ensuite je l'exporte dans un classeur Excel déjà existant.
C'est pour ça que j'essaie d'insérer dans la requête SQL, le code pour supprimer les lignes qui ne m'intéresse pas pour pouvoir l'exporter...
As tu une autre solution ?

**tee_grandbois** · 04/12/2018, 19h47

Oui effectivement c'est un classeur attaché mais je crée une table avec une requête et ensuite je l'exporte dans un classeur Excel déjà existant.
C'est pour ça que j'essaie d'insérer dans la requête SQL, le code pour supprimer les lignes qui ne m'intéresse pas pour pouvoir l'exporter.

peux-tu nous la refaire dans un ordre qui permettrait de comprendre ?

**ANANA49** · 05/12/2018, 13h56

Il faut peut être voir le problème différemment : que fais-tu des lignes que tu veux garder ?

Je souhaite les exporter dans un classeur Excel déjà créé : BDD_Courriers.xlsm
Sur la feuille : Source_stocksFlux

Mais comme tu peux le constater, les données ne sont pas exploitables en l'état donc je souhaiterai faire le ménage sur ce classeur attaché à ma base Access pour garder uniquement les données qui se trouvent avant "ACTION2" et à partir de la ligne 5.

En espérant que tu arrives à me comprendre..

Merci tee_grandbois

**tee_grandbois** · 06/12/2018, 00h53

bonsoir,
existe t-il une raison particulière d'attacher le classeur ?
Car il est possible d'exporter directement de classeur à classeur:

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
43
44
45
46
47
48
49
Sub fExportXlsToXls()
Dim xlApp As New Excel.Application
Dim xlWbk1 As Excel.Workbook, xlWbk2 As Excel.Workbook
Dim xlWsh1 As Excel.Worksheet
Dim xlWsh2 As Excel.Worksheet
Dim strFicSource As String
Dim strFicDestin As String
Dim L As Long
Dim lgDerlig1 As Long
Dim lgDerLig2 As Long
 
'fichiers du traitement
strFicSource = "C:\StocksTest.xlsx"
strFicDestin = "C:\BDD_Courriers.xlsm"
Set xlWbk1 = xlApp.Workbooks.Open(strFicSource)
Set xlWbk2 = xlApp.Workbooks.Open(strFicDestin)
 
'feuilles du traitement
Set xlWsh1 = xlWbk1.Worksheets("TEST")
Set xlWsh2 = xlWbk2.Worksheets("Source_stocksFlux")
 
'récupération du dernier enregistrement de chaque classeur
lgDerlig1 = xlWsh1.UsedRange.Rows.Count
lgDerLig2 = xlWsh2.UsedRange.Rows.Count
 
'xlApp.Visible = True
 
With xlWsh1
    'lecture du classeur source à parir de la ligne 5
    For L = 5 To lgDerlig1
        ' fin du traitement si ACTON2 est trouvé en cellule A
        If .Cells(L, 1).Value = "ACTION2" Then
            Exit For
        Else
        'copie des lignes de la feuille 1 si cellule A n'est pas vide
            If .Cells(L, 1).Value <> "" Then
                .Rows(L).Copy xlWsh2.Rows(lgDerLig2)
                lgDerLig2 = lgDerLig2 + 1
            End If
        End If
    Next L
End With
 
xlWbk1.Close
'sauvegarde du classeur de destination
xlWbk2.Close True
xlApp.Quit
 
End Sub

**ANANA49** · 06/12/2018, 09h33

Bonjour,

C'est parfait comme traitement mais j'aimerais pouvoir le lancer directement de mon fichier de destination : BDD_Courriers.xlsm
J'ai intégré ton code sur ce classeur via un Btn de commande, or comme ce classeur est ouvert pour d'autres traitements, il me demande d'enregistrer une copie et je souhaiterai qu'il enregistre directement les données sur BDD_Courriers.xlsm.
Est ce que c'est possible ?
Merci tee_grandbois.

**ANANA49** · 06/12/2018, 09h38

J'ai oublié de te préciser et je ne sais pas si ça a son importance, le classeur BDD_Courriers.xlsm s'ouvre avec un mot de passe : "pat01"

**tee_grandbois** · 06/12/2018, 15h06

bonjour,

Envoyé par ANANA49

Bonjour,

C'est parfait comme traitement mais j'aimerais pouvoir le lancer directement de mon fichier de destination : BDD_Courriers.xlsm
J'ai intégré ton code sur ce classeur via un Btn de commande, or comme ce classeur est ouvert pour d'autres traitements, il me demande d'enregistrer une copie et je souhaiterai qu'il enregistre directement les données sur BDD_Courriers.xlsm.
Est ce que c'est possible ?
Merci tee_grandbois.

donc tu ne passe plus par Access

... cela devient du code 100% Excel. Est-ce que le classeur BDD_Courriers.xlsm est ouvert en mode partagé ?
Et pourquoi ne pas le lancer à partir d'un 3ème classeur dédié au traitement ?

Envoyé par ANANA49

J'ai oublié de te préciser et je ne sais pas si ça a son importance, le classeur BDD_Courriers.xlsm s'ouvre avec un mot de passe : "pat01"

je ne crois pas que cela a une importance car, en général, le mot de passe protège la structure, sinon modifie l'ouverture:

Code :

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

Set xlWbk2 = xlApp.Workbooks.Open(strFicDestin, Password:="pat01")

**ANANA49** · 06/12/2018, 15h57

Merci pour ta réponse.

Oui je souhaitais le lancer d'Access via un bouton de contrôle sur un formulaire mais j'ai eu un message d'erreur : Type défini par l'utilisateur non défini

Code :

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

1
2
3
4
Dim xlApp As New Excel.Application
Dim xlWbk1 As Excel.Workbook, xlWbk2 As Excel.Workbook
Dim xlWsh1 As Excel.Worksheet
Dim xlWsh2 As Excel.Worksheet

Je travaille sur la version Excel 2016...
J'aimerais vraiment le lancer d'Access !

**tee_grandbois** · 06/12/2018, 20h17

Je travaille sur la version Excel 2016...
J'aimerais vraiment le lancer d'Access !

d'accord, mais dans ce cas, pourquoi vouloir aussi le lancer depuis Excel ? :

C'est parfait comme traitement mais j'aimerais pouvoir le lancer directement de mon fichier de destination

Essaie ce code qui est en Late Binding (création des objets Excel, donc pas besoin d'ajouter de référence):

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
43
44
45
46
47
48
49
Function fExportXlsToXls()
Dim xlApp As Object
Dim xlWbk1 As Object, xlWbk2 As Object
Dim xlWsh1 As Object, xlWsh2 As Object
Dim strFicSource As String
Dim strFicDestin As String
Dim L As Long
Dim lgDerlig1 As Long
Dim lgDerLig2 As Long
'
Set xlApp = Excel.Application
'fichiers du traitement
strFicSource = "D:\StocksTest.xlsx"
strFicDestin = "D:\BDD_Courriers.xlsm"
 
Set xlWbk1 = xlApp.Workbooks.Open(strFicSource)
Set xlWbk2 = xlApp.Workbooks.Open(strFicDestin, Password:="pat01")
 
'feuilles du traitement
Set xlWsh1 = xlWbk1.Worksheets("TEST")
Set xlWsh2 = xlWbk2.Worksheets("Source_stocksFlux")
 
'dernier enregistrements de chaque classeur
lgDerlig1 = xlWsh1.UsedRange.Rows.Count
lgDerLig2 = xlWsh2.UsedRange.Rows.Count
 
xlApp.Visible = True
 
With xlWsh1     'lecture du classeur source à partir de la ligne 5
    For L = 5 To lgDerlig1
        ' fin du traitement si ACTON2 est trouvé en cellule A
        If .Cells(L, 1).Value = "ACTION2" Then
            Exit For
        Else
        'copie des lignes de la feuille 1 si cellule A n'est pas vide
            If .Cells(L, 1).Value <> "" Then
                .Rows(L).Copy xlWsh2.Rows(lgDerLig2)
                lgDerLig2 = lgDerLig2 + 1
            End If
        End If
    Next L
End With
 
xlWbk1.Close
'sauvegarde du classeur de destination
xlWbk2.Close True
xlApp.Quit
 
End Function

**ANANA49** · 07/12/2018, 09h38

Bonjour tee_grandbois,

J'ai intégré ton code sur mon formulaire Access via un bouton de contrôle mais il m'indique un message d'erreur : Erreur '424' Objet requis

Il bloque sur :

Set xlApp = Excel.Application

Je ne comprends pas..

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
43
44
45
46
47
48
49
Private Sub fExportXlsToXls_Click()
Dim xlApp As Object
Dim xlWbk1 As Object, xlWbk2 As Object
Dim xlWsh1 As Object, xlWsh2 As Object
Dim strFicSource As String
Dim strFicDestin As String
Dim L As Long
Dim lgDerlig1 As Long
Dim lgDerLig2 As Long
'
Set xlApp = Excel.Application
'fichiers du traitement
strFicSource = "D:\StocksTest.xlsx"
strFicDestin = "D:\BDD_Courriers.xlsm"
 
Set xlWbk1 = xlApp.Workbooks.Open(strFicSource)
Set xlWbk2 = xlApp.Workbooks.Open(strFicDestin, Password:="pat01")
 
'feuilles du traitement
Set xlWsh1 = xlWbk1.Worksheets("TEST")
Set xlWsh2 = xlWbk2.Worksheets("Source_stocksFlux")
 
'dernier enregistrements de chaque classeur
lgDerlig1 = xlWsh1.UsedRange.Rows.Count
lgDerLig2 = xlWsh2.UsedRange.Rows.Count
 
xlApp.Visible = True
 
With xlWsh1     'lecture du classeur source à partir de la ligne 5
    For L = 5 To lgDerlig1
        ' fin du traitement si ACTON2 est trouvé en cellule A
        If .Cells(L, 1).Value = "ACTION2" Then
            Exit For
        Else
        'copie des lignes de la feuille 1 si cellule A n'est pas vide
            If .Cells(L, 1).Value <> "" Then
                .Rows(L).Copy xlWsh2.Rows(lgDerLig2)
                lgDerLig2 = lgDerLig2 + 1
            End If
        End If
    Next L
End With
 
xlWbk1.Close
'sauvegarde du classeur de destination
xlWbk2.Close True
xlApp.Quit
 
End Sub

**tee_grandbois** · 07/12/2018, 14h15

bonjour,
désolé c'est une erreur:

Code :

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

Set xlApp = CreateObject("Excel.application")

**ANANA49** · 07/12/2018, 16h22

Un grand merci à toi, tee_grandbois !

Tout fonctionne.. A bientôt

Créer une requête suppression avec condition

IHM

Partager

Partager