marquage pour interdire l'envoi ultérieur vers excel

**olemoine** · 04/01/2005, 17h23

Bonsoir tout le monde !!!

Ca fait maintenant plusieurs jours que je bloque sur une fonction qui fait appel aux fonctions avancées d’Access

Je profite pour vous faire part de mon pb sur ce forum qui m’a déjà rendu d’enormes services.
(Merci a tous au passage..

)

Voilà ce que j’aimerais réaliser :

J’ai un formulaire qui contient une liste déroulante (années) et un bouton sur clic qui envoi des données au format Excel.

Ces données envoyées proviennent d’une requete « exportexcel » qui contient un champ « envoi » booléan OUI/NON.

Ce que j’aimerai faire, c’est à partir de la liste déroulante, je choisi une année du champ année de la requete exportexcel (je choisi 2004 par exemple) et en appuyant sur le bouton envoi des données sous excel, j’ai un code qui m’effecute :

- sélection des lignes avec années =2004 dans ma requete exportexcel
- les données à envoyer sont copiée dans une requete temporaire exportexcel2
- Les données copiées sont marquée dans le champs « envoi » =OUI dans la requete exportexcel
- Ce marquage a pour effet que les données marquées par oui ne seront plus copiées dans la table temporaire exportexcel2 (donc plus envoyés au format Excel) a l ‘avenir.

Voici un début de 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
 
Private Sub Commande8_Click()
 
Dim etat As String
Dim strFiltre As String
strFiltre = "[définition]='" & Me.Modifiable6 & "'"
 
 
End Sub
 
Private Sub Commande14_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel ")
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "exportexcel2", "c:\schémascomptables.xls"
DoCmd.RunSQL ("Update exportexcel2 set envoi=true")
 
DoCmd.DeleteObject acQuery, "exportexcel2"
End Sub

Merci d’avance.

OLivier

**Tofalu** · 04/01/2005, 17h51

Ne serait ce pas du multi post ??

Merci de lire les règles

**olemoine** · 04/01/2005, 17h55

Désolé, je vais enlever l'ancien message, je l'avais mal expliqué, je le redéfini dans ce post...
Escusez moi

**Tofalu** · 04/01/2005, 17h57

Le problème c'est qu'il n'y a pas de question dans ton message, où bloques tu réellement ?

**olemoine** · 04/01/2005, 18h09

voila j'ai enlevé l'autre post...

En fait j'ai réalisé ma requete, mais je ne sais pas comment:

1) selectionner uniquement certianes années grace à ma liste (mon code ne fonctionne pas apparemment) commande8

2) les données sont envoyées par excel (ca marche !!!

) les case sont cochées dans ma requete exportexcel (donc ds ma table d'origine) une fois les données envoyées. Le problème: comment faire pour sélectionner lors d'un envoi UNIQUEMENT les cases qui ne sont pas cochées dans ma requete exportexcel

Merci

**niclalex** · 04/01/2005, 19h24

peut etre avec ceci :

Code :

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

Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE (((exportexcel.envoi ) = False))")

**olemoine** · 04/01/2005, 20h57

oui ca marche!!!!

Et comment puis je faire pour sélectionner de ma liste déroulante uniquement l'envoi d'une année??

j'ai un début de code mais ca ne marche pas, j'aimerai que ce bouton limite la copie par année de exportexcel vers exportexcel2

Code :

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

1
2
3
4
5
6
7
8
Private Sub Commande8_Click() 
 
Dim etat As String 
Dim strFiltre As String 
strFiltre = "[définition]='" & Me.Modifiable6 & "'" 
 
 
End Sub

merci

**niclalex** · 04/01/2005, 23h50

je ne comprends pas bien ta demande : tu réalises ton export en cliquant un bouton "commande14" (bonjour le nom

)
Et tu veux réaliser un filtre sur clic d'un autre "commande8" ?

**olemoine** · 05/01/2005, 19h28

bonjour!!!
C'est vrai le nom n'est pas top...

En fait j'aimerai à partir d'une liste déroulante, chosiir un critere d'une requete et lancer une exportation des données filtrées vers excel.

Pour l'instant j'arrive juste à envoyer vers excel toutes les données, mais j'aimerai qu'il y ai un filtre d'envoi selon ce que j'ai sélectionné.:

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 
Private Sub Commande14_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE (((exportexcel.envoi ) = False))")
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "exportexcel2", "c:\schémascomptables.xls"
DoCmd.RunSQL ("Update exportexcel2 set envoi=true")
 
 
DoCmd.DeleteObject acQuery, "exportexcel2"
End Sub

Pour l'instant ca envoi a partir d'un requete exportexcel2 basée sur excelexport. J'aimerai filtrer excelexport selon un critere, tout copier vers excelexport2 et envoyer excelexport2 vers mon ficher c:\schémascomptables.xls...

Merci d'avance!!

Olemoine

**Tofalu** · 05/01/2005, 19h36

En supposant que tu dispose d'un champ ladate :

Code :

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

1
2
3
4
5
6
7
8
Dim qd As QueryDef 
Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE envoi ) = False AND year(laDate)=" & mazonedeliste) 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "exportexcel2", "c:\schémascomptables.xls" 
DoCmd.RunSQL ("Update exportexcel2 set envoi=true") 
 
 
DoCmd.DeleteObject acQuery, "exportexcel2"

**olemoine** · 05/01/2005, 20h01

Bjr!!,

C'est toujours un plaisir de vous lire Tofalu, merci pour votre aide!!!

J'ai créé une liste déroulante de nom "mazonedeliste" qui prend les valeurs du champs "année" dans ma requete "exportexcel;

Ca me met : [/quote]erreur d'execution 13, incompatibilité de type...[/quote]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Commande14_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE (((exportexcel.envoi ) = False))" And Year(année) = " & mazonedeliste")
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "exportexcel2", "c:\schémascomptables.xls"
DoCmd.RunSQL ("Update exportexcel2 set envoi=true")
 
 
DoCmd.DeleteObject acQuery, "exportexcel2"
End Sub

Vous voyez le problème?[/quote][/code]

**Tofalu** · 05/01/2005, 20h40

De quel type est année ? C'est un champ date ?

**niclalex** · 05/01/2005, 20h42

il faut que tu filtre sur ton champ [année] si c'est une date , comme l'a dit Tofalu le test est

Code :

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

 AND Year([année]) = "& mazonedeliste

par contre si ton champ année n'est pas une date mais juste l'année alors

Code :

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

AND [année] = "& mazonedeliste

Si c'est pas ça indique nous ce que contient ton champ année (date, nombre, texte) et le format de ta zonedeliste
A+

**olemoine** · 05/01/2005, 21h07

Salut!!

Mon champ année est du texte, j'ai essayé la deuxieme solution, maintenant ca me met :

erreur d'execution 2465

Impossible de trouver le champ '|' auquel il fait reference dans votre expression

voisi mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Commande14_Click()
Dim qd As QueryDef
Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE (((exportexcel.envoi ) = False))" And [année] = " & mazonedeliste ")
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97, "exportexcel2", "c:\schémascomptables.xls"
DoCmd.RunSQL ("Update exportexcel2 set envoi=true")
 
 
DoCmd.DeleteObject acQuery, "exportexcel2"
End Sub

**Tofalu** · 05/01/2005, 21h15

Soit dit au passage, c'est quoi cette manie qu'ont beaucoup de gens de gérer des dates en textes ?

Ce champ, il contient quoi :

Toute la date :

Code :

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

Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE envoi  = False And Year(DateValue([année])) = " & mazonedeliste )

Seulement l'année :

Code :

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

Set qd = CurrentDb.CreateQueryDef("exportexcel2", "Select * From exportexcel WHERE envoi = False And [année] = " & chr(34) & mazonedeliste & chr(34))

Vérifie ton code que tu as tapé avant : même s'il est incorrecte, la syntaxe avec les guillemets et loin d'être correcte il me semble.
Idem pour les (), tu en as pas besoins autant si ?