Lancer une macro excel à partir d'access

Version imprimable

Voir 40 message(s) de cette discussion en une page

09/08/2011, 08h50
Williamm

Comme toujours, Merci :)

Comme il faut que mon Excel se mette à jour dès que je modifie un formulaire Access.
J'ai pensé à faire en sorte que lorsqu'on clique sur le bouton (que j'ai crée) du formulaire qui sert à quitter le formulaire. Et bien que dans ce cas, rentrer un code VBA qui permet d'ouvrir le Excel et de l'actualiser et de fermer Excel.

Sur ce bouton j'ai deja fais un "DoCmd RunMacro" qui permet d'actualiser ma requête.
Il me reste plus qu'à trouver comment ouvrir le Excel et à l'actualiser puis le refermer tout ça par code.

Si tu sais (sans chercher) comment faire je suis preneur

Merci LedZeppII

J'ai essayé ça mais sans succès:

Dans un module j'ai écris:

Code:

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
Sub Actualiser()
 
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim lFound As Boolean
 
    lFound = False
    For Each wbk In Workbooks
        If wbk.Name = "2onglets.xls" Then
            lFound = True
            Exit For
        End If
    Next
 
 
    If lFound Then
 
    xl.Calculate
    wbk.Save
    wbk.Close
    Set wbk = Nothing
    xl.Quit
    Set xl = Nothing
 
Else
 
    Set xl = CreateObject("Excel.Application")
    xl.Workbooks.Open "c:\2onglets.xls"
    xl.Visible = True
    xl.Calculate
    wbk.Save
    wbk.Close
    Set wbk = Nothing
    xl.Quit
    Set xl = Nothing
 
   End If
End Sub

Puis j'ai rajouté

Code:

Actualiser

sur la commande de mon bouton "Quittez"

Tu sais surement quelles sont mes erreurs :s

Au fait je n'ai pas besoin de parcourir toutes mes feuilles mais seulement les 2 dernieres. Tu sais comment rectifier?

Merci Led

09/08/2011, 11h06
LedZeppII

Bonjour,

Tu veux dire, qu'en plus de l'actualisation à l'ouverture du fichier et toutes les minutes, tu veux actualiser les requêtes Excel ?

A+
09/08/2011, 11h16
Williamm

En fait l'idéal serait que le Excel s'actualise en même temps que la requête.

Apparemment, l'actualisation toutes les minutes ne fonctionne pas quand le fichier Excel est fermé (ce qui sera le cas très souvent dans mon projet).
C'est pourquoi je pense qu'il est p-t plus judicieux qu'au moment ou l'utilisateur change les données d'un formulaire (qui du coup change les valeurs de la requête) et bien qu'au moment (soit il appuie sur un bouton quittez, ou soit sur la perte focus du contrôle) et bien qu'apres la commande:

Code:

DoCmd.RunMacro "M3 Horrairemystere.Remplissage Query"

(ceci actualise ma requete), ça ouvre le Excel, actualise et ferme le Excel.

Tu vois où je veux en venir ?
09/08/2011, 11h31
LedZeppII

Je crois que je vois.
Par contre, je ne vois pas l'intérêt.
Le fichier Excel fermé n'est effectivement pas à jour, mais s'il n'est pas ouvert ça veut dire que personne ne le consulte.
Dès qu'on l'ouvre, les requêtes Excel s'actualisent.
Puis ensuite, elles s'actualisent toutes les minutes.

A priori, on a jamais plus d'une minute de décalage.
09/08/2011, 11h45
Williamm

Oui,

Mais ce fichier Excel va servir de fichier tampon pour alimenter un autre fichier Excel qui lui est ouvert et qui a besoin d'être actualiser a chaque modification de la base Access.

Ce fichier Excel tampon sera sur le réseau et personne n'est censé l'ouvrir (il y a déjà bien assez de fichier excel d'ouvert sur les écran de pc là ou je travaille)

Tu cernes mieux la situation?
09/08/2011, 11h59
LedZeppII

La méthode RefreshAll de l'objet Workbook semble être ce que tu cherches

Code:

wbk.RefreshAll

En executant :

Code:

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
Sub Actualiser()
 
Dim xl As Excel.Application
Dim wbk As Excel.Workbook
Dim lFound As Boolean
 
    lFound = False
    For Each wbk In Workbooks
        If wbk.Name = "2onglets.xls" Then
            lFound = True
            Exit For
        End If
    Next
 
 
    If lFound Then
 
    wbk.RefresAll
    wbk.Save
    wbk.Close
    Set wbk = Nothing
    xl.Quit
    Set xl = Nothing
 
Else
 
    Set xl = CreateObject("Excel.Application")
    xl.Workbooks.Open "c:\2onglets.xls"
    xl.Visible = True
    wbk.RefreshAll
    xl.Quit
 
 
   End If
End Sub

il surligne en jaune "wbl.RefreshAll et m'affiche Erreur d'execution '91':
Variable objet ou variable de bloc non definie

Je dois surement faire qqchose dans le désordre ou oublier bout de code?

09/08/2011, 13h14
Godzestla

Bonjour,

je crois que tu as commis une erreur de frappe.

Code:

wbk.RefresAll

Il manque le H :aie:
09/08/2011, 13h21
Williamm

Merci Godzestla

C'est corrigé mais il me trouve tjrs la même erreur dans le

Code:

wbk.RefreshAll

du Else :s
09/08/2011, 13h50
Godzestla
Ben oui, diantre.

wbk n'est pas affecté à quelquechose dans ton else.

Essaie ceci, mais je n'ai pas testé.
Code:

1 2 3 4 5 6 7 8 9 Else Set xl = CreateObject("Excel.Application") Set Wbk = xl.Workbooks.Open("c:\2onglets.xls") xl.Visible = True wbk.RefreshAll wbk.save wbk.close xl.Quit
Et .... il faudrait aussi faire save puis Close, non ? (voir en gras).

Et... encore.... Set ... = Nothing après.

J'arrête là.

A+

J'ai tout corrigé j'ai plus aucun bug, merci Godzestla

Par contre (Excel m'en veut), au moment ou je clique sur le bouton qui correspond au module:
Code:

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 Sub Actualiser() Dim xl As Excel.Application Dim wbk As Excel.Workbook Dim lFound As Boolean lFound = False For Each wbk In Workbooks If wbk.Name = "2onglets.xls" Then lFound = True Exit For End If Next If lFound Then wbk.RefreshAll wbk.Save wbk.Close Set wbk = Nothing xl.Quit Set xl = Nothing Else Set xl = CreateObject("Excel.Application") Set wbk = xl.Workbooks.Open("c:\2onglets.xls") xl.Visible = True wbk.RefreshAll wbk.Save wbk.Close Set wbk = Nothing xl.Quit Set xl = Nothing End If End Sub
Quand le Excel ouvre: il me met le message suivant: "Cette action va annuler une commande d'actualisation de données, voulez vous continuez"

J'ai le choix entre "OK" ou "Annulez". Si je clique sur Ok, rien ne s'actualise or c'est ce que je chercher à faire :/

Je fais un point pour savoir où j'en suis:

J'ai (je crois) résolu tout ce qui est des problèmes de messages alerte d'actualisation sur Excel.

Il reste juste une derniere chose. En gros, comme j'ai 2 boutons (un qui crée S1 l'autre qui crée S2). Le cycle des feuilles crée ressemble donc à cette séquence:
"S1. 12", "S2. 12", "S1. 13", "S2. 13"...

Les deux derniere feuilles crées doivent toujours resté actualisable ("S1. i" et S2. i) Or c'est pas le cas ici, j'ai toujours que la derneire feuilles qui peut s'actualiser quand je rafraichi le Excel avec:
Code:

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 Sub Actualiser() Dim xl As Excel.Application Dim wbk As Excel.Workbook Dim lFound As Boolean lFound = False For Each wbk In Workbooks If wbk.Name = "2onglets.xls" Then lFound = True Exit For End If Next If lFound Then wbk.RefreshAll wbk.Save wbk.Close Set wbk = Nothing xl.Quit Set xl = Nothing Else Set xl = CreateObject("Excel.Application") Set wbk = xl.Workbooks.Open("c:\2onglets.xls") xl.Visible = True wbk.RefreshAll wbk.Save wbk.Close Set wbk = Nothing xl.Quit Set xl = Nothing End If End Sub
Je pense donc que ça a avoir avec ce module là LedZeppII:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Sub SupprLiaisonsTQ(xlWbk As Excel.Workbook, sSaufTQName As String) Dim xlSheet As Excel.Worksheet Dim sTQName As String Dim i As Integer ' Parcourir les feuilles For Each xlSheet In xlWbk.Worksheets ' Parcourir les requêtes Excel For i = xlSheet.QueryTables.Count To 1 Step -1 sTQName = xlSheet.QueryTables(i).Name ' Si c'est une requête TQ_Sn_AAAA If sTQName Like "TQ_S#_##" Then If sTQName <> sSaufTQName Then xlSheet.QueryTables(i).Delete End If End If Next Next End Sub
En appliquant ce meme module a chacun de mes 2 boutons j'ai tjrs le même probleme, c'est a dire que seule la derniere feuille s'actualise quand je rafraichi le Excel.

En reglant le step pour faire en sorte que les deux dernieres feuilles (crées par 2 boutons differents) puissent s'actualiser est t-il possibe?

ps: pourtant S1 et S2 st crées par 2 boutons indépendant il devrait dc pas y avoir de soucis d'actualisation quand il s'agit des derenire feuilles ajoutées S1 et S2.. je comprends pas :s

edit: je vais être un peu plus précis.

J'ai localisé le moment où ça ne marche pas.

Quand je crée le S1 et le S2 d'une même année et que se sont les 2 dernière feuilles ca marche nikel.
Par contre quand je suis par exemple au S2. 2012 et que je veux créer le S1. 13 ça foire :s -> le S2. 2012 ne s'actualise plus :/

Oui, c'est normal.
Ce que je disais (ici) à propos de la Sub SupprLiaisonsTQ.

Citation:

On va partir sur une convention de nommage des requêtes Excel sous la forme TQ_Sn_AAAA (où n=1 ou 2 et AAAA est l'année).
Cette Sub permet de supprimer les définitions de requêtes Excel TQ_Sn_AAAA sauf celle passée en deuxième argument.

L'exception porte donc sur une seule requête. Pas deux.

J'ai modifié le code.
(J'ai l'impression que la convention de nommage est passée de TQ_Sn_AAAA à TQ_Sn_AA)

Code:

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
Sub SupprLiaisonsTQ(xlWbk As Excel.Workbook, sSaufTQName As String)
Dim xlSheet As Excel.Worksheet
Dim sSaufTQName2 As String
Dim sTQName As String, bDeleteQuery As Boolean
Dim i As Integer
 
' Détermine le nom de la requête Excel pour la période précédente.
' ex : si sSaufTQName = "TQ_S1_12" -> TQ_S2_11
'      si sSaufTQName = "TQ_S2_12" -> TQ_S1_12
If sSaufTQName Like "TQ_S1_##" Then
   sSaufTQName2 = "TQ_S2_" & Format(CLng(Mid(sSaufTQName, 7, 2)) - 1, "00")
ElseIf sSaufTQName Like "TQ_S2_##" Then
   sSaufTQName2 = "TQ_S1_" & Mid(sSaufTQName, 7, 2)
End If
 
' Parcourir les feuilles
For Each xlSheet In xlWbk.Worksheets
    ' Parcourir les requêtes Excel
    For i = xlSheet.QueryTables.Count To 1 Step -1
        sTQName = xlSheet.QueryTables(i).Name
        ' Si c'est une requête TQ_Sn_AA
        If sTQName Like "TQ_S#_##" Then
           bDeleteQuery = True
           If (sTQName = sSaufTQName) Then bDeleteQuery = False
           If (sTQName = sSaufTQName2) Then bDeleteQuery = False
           If bDeleteQuery Then
              xlSheet.QueryTables(i).Delete
           End If
        End If
    Next
Next
 
End Sub

A+

11/08/2011, 11h21
Williamm

je viens de rentrer ton nouveau code.
Ca marche mais mon Excel pose problème.

Il semblerai que ma version Excel 2002 ne soit pas bien adaptée pour ce genre de chose.

Ce qui marche:

Quand je crée deux semestres d'une même année (ex: S1. 12 et S2. 12) ça marche parfaitement, c'est à dire que les deux semestres s'actualise.

Ce qui pose problème:

Apres avoir crée les deux semestres (ex: S1. 12 et S2. 12) et que je crée le semestre S1. 13 (n'oublions pas dans ce cas je veux donc que l'onglet S2. 12 et S1. 13 puissent être actualisable). Quand le Excel se rafraichi Excel me met le message suivant:

" Pour éviter la perte possible de données, Microsoft Excel ne peut pas déplacer les cellules non vides hors de la feuille de calcul"

Je suis obligé de cliquer sur "OK" et après ça m'efface les valeurs du tableau (de la requete)

Je pense que cela est dû a la version d'Excel non ?
12/08/2011, 10h36
LedZeppII

Bonjour,

Citation:

Envoyé par Williamm

Ce qui pose problème:

Apres avoir crée les deux semestres (ex: S1. 12 et S2. 12) et que je crée le semestre S1. 13 (n'oublions pas dans ce cas je veux donc que l'onglet S2. 12 et S1. 13 puissent être actualisable). Quand le Excel se rafraichi Excel me met le message suivant:

" Pour éviter la perte possible de données, Microsoft Excel ne peut pas déplacer les cellules non vides hors de la feuille de calcul"

Je suis obligé de cliquer sur "OK" et après ça m'efface les valeurs du tableau (de la requete)

Je pense que cela est dû a la version d'Excel non ?

Je crois que j'ai déjà eu ou vu ce problème, il y a longtemps.
Il faut peut-être jouer sur le style de rafraichissement.

Code:

.RefreshStyle = xlInsertDeleteCells

De mémoire, j'utilisais xlOverwriteCells.

A+
12/08/2011, 11h11
Williamm

Non rien y fait,

Je précise, quand le message s'affiche et que je clique sur OK, ça me fait perdre uniquement les valeurs du tableau de "S2. 12"

Si une solution te vient à l'esprit n'hésite surtout pas, je vais quand même aller sur le topic Excel pour voir si quelqu'un sait comment résoudre ce problème.

Tu m'as en tout cas bien aidé et j’espère pouvoir compter sur toi si j'ai d'autre soucis en VBA ;)

Merci

Voir 40 message(s) de cette discussion en une page