Variable dans excel et access

Fermé
steps - 11 mars 2008 à 10:58
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 11 mars 2008 à 20:30
Bonjour à tous,
voila, je travaille avec vba mais d'une manière très brouillone...
tout le travail commence en xls où je lance une macro qui va :
1 supprimer les données en access du mois introduit ou sélectionné
2 importer les nouvelles données en access
3 création des tables du mois introduit ou sélectionné
4 différentes requêtes
5 copy/paste des résultats des requêtes dans des fichiers xls, dont certains doivent se rapporter au mois introduit ou sélectionné
en cherchant sur le net, j'ai compris que je devais me diriger vers l'utilisation de variables, afin de choisir le mois que je veux pour mes requetes, mais je n'y connais rien
j'ai tout de même essayé et voici ce que j'ai pour le moment :


Public MyMonth As String
Sub CreateReports()

Dim Msg, Style, Title, Response
Dim MyMonth As Date
Dim acApp As New Access.Application
Dim ReqSQL1 As String

acApp.OpenCurrentDatabase ("C:\2008\SALES RESULTS\Data Files\Results_2008.mdb")

Msg = "Do you want to import a new File ?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Import File"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MyMonth = InputBox("For witch month do you want to Import a file and create the Results ?")
' l'utilisateur tape le mois en question, quel format ???

ReqSQL1 = "DELETE * FROM AA_Results_Mercator WHERE Date = # " & MyMonth & "#"

acApp.DoCmd.RunSQL (ReqSQL1)

End If

End Sub

il ne s'agit ici que du début de mon code.
Quelqu'un pourrait m'ider, car ceci me faciliterai vraiment mon boulot et je gagnerai pas mal de temps (surtout en fin de mois) !

D'avance merci
A voir également:

4 réponses

LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
11 mars 2008 à 15:04
Et en essayant WHERE Format([Date];"m")=MyMonth
Comme ça l'uitilisateur n'a qu'à taper 1 pour janvier et 12 pour décembre...
0
merci pour ta réponse,
en essayant ceci il me done un message d'erreur :
"erreur de compliation: attendu :fin d'instruction" sur le "m" ...
0
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
11 mars 2008 à 15:21
Pardon, pas de guillemets.
Format([Date];m)=MyMonth
Mais je ne suis quand même pas certaine que ça fonctionne; Teste...
0
en effet,
il me donne une erreur d'execution 3075: erreur de syntaxe dans l'expression 'Format([Date];m)=MyMonth"'
et ne reconnait pas les valeurs de Mymonth
...
0
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
11 mars 2008 à 17:39
Pardon, il y a encore une erreur de ma part, c'est une virgule et non pas un point-virgule, dans VB
0
et non, toujour pas
voila que maintenant il me demande d'entrer un paramertre pour m lorsque le sql ce lance,
j'y comprends rien !
0
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 550
11 mars 2008 à 20:30
Non, ça marche pas, mon truc. Désolée.

Par contre, juste comme ça: Tu déclares MyMonth comme date, alors que tu veux un numéro de mois. Il vaudrait meiux un entier, sans doute.
0