Intégrer une macro dans une autre

Version imprimable

Bonjour,

Grâce à ce forum, j'ai pu créer mon formulaire.

Mon problème actuel est que j'aimerais figer la date pour que l'utilisateur retrouve une tracabilité de ses demandes.

On m'a conseillé la macro suivante :
Code:

1 2 3 4 Sub Macro1() Range("I6").Select SendKeys "^;~" End Sub
qui fonctionne très bien si je l'affecte à un bouton seul.

Seulement voilà, je souhaite avoir un seul bouton à cliquer pour exécuter une suite d'action.

Actuellement j'ai un bouton qui exécute la commande suivante :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Bouton_demande() If Worksheets("aaa").[A1] <> "" Then ActiveWorkbook.SaveAs Filename:="U:\d" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls" ActiveWorkbook.SendMail Recipients:=Array("name@dddd.com"), Subject:="x" ActiveWorkbook.Close Else MsgBox "Des cases obligatoires ne sont pas remplies !" Range("C7").Select End If End Sub
Est-ce possible de "bidouiller" pour que le bouton "envoi de la demande" exécute toutes les actions :
figer la date
enregistrer le fichier
envoyer la demande
...

Merci !

bonjour,

Citation:

Est-ce possible de "bidouiller" pour que le bouton "envoi de la demande" exécute toutes les actions :
figer la date
enregistrer le fichier
envoyer la demande

une macro peut en appeler autant qu'elle le souhaite, la seul contrainte, avoir accès à l'autre.

Pour cela:

Si tes macros sont dans le meme module:

Tes macros peuvent être déclarer Private et s'appeler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Macro1()
Range("I6").Select
SendKeys "^;~"
End Sub
 
Private Sub Bouton_demande()
 
    If Worksheets("aaa").[A1] <> "" Then
        ActiveWorkbook.SaveAs Filename:="U:\d" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls"
        ActiveWorkbook.SendMail Recipients:=Array("name@dddd.com"), Subject:="x"
        ActiveWorkbook.Close
    Else
        MsgBox "Des cases obligatoires ne sont pas remplies !"
        Range("C7").Select
    End If
 
Macro1 'appelle la Macro1
 
End Sub

Cependant si ta Macro1 n'est pas dans le meme module, déclare la Public pour y avoir acces:

Module1:

Code:

1
2
3
4
Public Sub Macro1()
Range("I6").Select
SendKeys "^;~"
End Sub

Module2:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Bouton_demande()
 
    If Worksheets("aaa").[A1] <> "" Then
        ActiveWorkbook.SaveAs Filename:="U:\d" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls"
        ActiveWorkbook.SendMail Recipients:=Array("name@dddd.com"), Subject:="x"
        ActiveWorkbook.Close
    Else
        MsgBox "Des cases obligatoires ne sont pas remplies !"
        Range("C7").Select
    End If
 
Macro1 'appelle la Macro1
 
End Sub

voila

bastien

Bonjour et merci pour la réponse !

Ca ne marche pas, du moins pas systématiquement...

J'ai commencé par "nettoyer" tous mes modules car j'en avais beaucoup trop et surtout à double, voir à triple... Il m'en reste 3 :

module 1
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub Bouton_demande() If Worksheets("marchandise").[A1] <> "" Then ActiveWorkbook.SaveAs Filename:="U:\f" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls" ActiveWorkbook.SendMail Recipients:=Array("nom@aaa"), Subject:="x" ActiveWorkbook.Close Else MsgBox "Des cases obligatoires ne sont pas remplies !" Range("C7").Select End If Macro1 End Sub
Module 2
Code:

1 2 3 4 5 6 Private Sub Workbook_Beforeclose(Cancel As Boolean) If Range("A1") = "" Then Cancel = True MsgBox "Vous devez remplir A1 !" End If End Sub
Module 3
Code:

1 2 3 4 Public Sub Macro1() Range("I6").Select SendKeys "^;~" End Sub
Le lien entre le module 1 et le module 2 se fait très bien, si A1 est vide, le classeur ne s'envoie pas...

Par contre, lorsque j'ouvre le classeur enregistré, la date indique auourdhui()...

J'ai sûrement fait faux mais je ne sais plus où chercher...

21/07/2011, 20h13
MattChess

Cells(6, 9) = Date
Citation:

Envoyé par EmmanuelleFFH

"envoi de la demande" exécute toutes les actions :
figer la date
enregistrer le fichier
envoyer la demande

Vu l'ordre des actions, il est demandé de d'abord figer la date.
Donc il faut d'abord appeler Macro1 immédiatement après être entré dans Bouton_demande()
plutôt qu'attendre la fin parce qu'à ce moment là, la feuille de calcul active a déjà été sauvegardée sans la date.
Code:

1 2 3 Private Sub Bouton_demande() Macro1 If Worksheets("aaa").[A1] <> "" Then
On a mis l'appel de Macro1 avant le If.
Il faut voir s'il faut le mettre à l'intérieur du If dans la partie Then juste avant la sauvegarde
ou comme c'est le cas actuellement, si on peut figer la date même si des cases obligatoires ne sont pas remplies.

Citation:

Envoyé par EmmanuelleFFH

Ca ne marche pas, du moins pas systématiquement...

Concernant l'aspect non systématique, le SendKeys peut dans certain cas être trop lent.

On risque d'enchaîner les instructions qui suivent sans être sûr que le Sendkeys a bien terminé ce qu'on lui demande d'envoyer, d'où le dernier paramètre optionnel Wait à True pour forcer l'attente de la fin d'exécution du SendKeys.
Parfois on est même obligé de faire suivre le SendKeys par DoEvents pour s'assurer de la prise en compte de la gestion des événements clavier.
Pour toutes ces raisons de synchronisation, si cela est possible, il vaut mieux éviter le SendKeys.

Dans Macro1, le Sendkeys de Ctrl+";" suivi de ENTER pour générer la date pourraît être réécrit plus simplement par :
Code:

1 2 3 Public Sub FigerDate() Cells(6, 9) = Date End Sub
s'il s'agit d'écrire la date dans la cellule I6 autrement-dit rangée 6, colonne 9.
On n'a pas besoin de sélectionner la case I6 et surtout on n'utilise pas SendKeys.

Veillez à ce que la cellule I6 soit au format Date souhaité
- soit dans la feuille de calcul,
- soit au niveau du code avec l'instruction Format() exactement comme dans le nom de la sauvegarde.

Si la feuille courante de calcul ActiveWorkbook n'est pas celle que l'on souhaite pour figer la date,
précisez éventuellement le nom complet de la feuille de calcul tel que Worksheets("aaa").
Par exemple :
Code:

1 2 3 Public Sub FigerDate() Worksheets("marchandise").Cells(6, 9) = Date End Sub
22/07/2011, 09h48
EmmanuelleFFH
Bonjour Mattchess,

Ca marche nickel comme je voulais avec
Code:

1 2 3 Public Sub FigerDate() Cells(6, 9) = Date End Sub
, merci beaucoup !

merci à Bastou93 également pour m'avoir indiqué une piste !