Variable dans excel et access
steps
-
LatelyGeek Messages postés 1774 Date d'inscription Statut Membre Dernière intervention -
LatelyGeek Messages postés 1774 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Variable dans excel et access
- Word et excel gratuit - Guide
- Liste déroulante excel - Guide
- Si et ou excel - Guide
- Déplacer colonne excel - Guide
- Trier dans excel - Guide
4 réponses
Et en essayant WHERE Format([Date];"m")=MyMonth
Comme ça l'uitilisateur n'a qu'à taper 1 pour janvier et 12 pour décembre...
Comme ça l'uitilisateur n'a qu'à taper 1 pour janvier et 12 pour décembre...
Pardon, pas de guillemets.
Format([Date];m)=MyMonth
Mais je ne suis quand même pas certaine que ça fonctionne; Teste...
Format([Date];m)=MyMonth
Mais je ne suis quand même pas certaine que ça fonctionne; Teste...
en essayant ceci il me done un message d'erreur :
"erreur de compliation: attendu :fin d'instruction" sur le "m" ...