2 macros à partir d'un seul bouton de commande (suite)
Ledude89
Messages postés14Date d'inscriptionvendredi 6 juin 2008StatutMembreDernière intervention 4 juillet 2008
-
10 juin 2008 à 14:06
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 2013
-
10 juin 2008 à 15:30
En fait, maintenant, j'ai pu définir qu'un des problèmes vient du fait que le fichier Excel que génère la macro ACCESS au moment de l'exportation, ne se met pas à jour automatiquement et qu'il faut donc le supprimer (ou le vider) avant chaque Export.
Il me faut donc insérer une fonction dans mon code :
--------------------------------------------------------------------------------
Private Sub Commande273_Click()
Dim stDocName As String
On Error GoTo Err_Commande273_Click
If Commande273.Caption = "moyenne_classe" Then 'si le texte du bouton est on fait l'action 1
stDocName = "moyenne_classe"
DoCmd.OpenQuery stDocName, acNormal, acEdit
ElseIf Commande273.Caption = "export_vers_excel_moyenne_classe" Then 'sinon on fait l'action 2
stDocName = "export_vers_excel_moyenne_classe"
DoCmd.RunMacro stDocName
End If
If Commande273.Caption = "moyenne_classe" Then 'ce if pour changer le texte affiché par le bouton apres chaque action
Commande273.Caption = "export_vers_excel_moyenne_classe"
Else
Commande273.Caption = "moyenne_classe"
End If
Exit Sub
bigfish_le vrai
Messages postés1835Date d'inscriptionvendredi 13 mai 2005StatutMembreDernière intervention20 novembre 201315 10 juin 2008 à 15:30
salut,
ce ne serait pas plus simple de comprendre pourquoi le fichier excel ne ce met pas a jour et de resoudre le probleme plutot que de vouloir contourner le probleme par une usine a gas ?