Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Macro imbriquée

Macro imbriquée

4 réponses
Avatar
Yves Trudel
Bonjour,
J'ai une macro qui fonctionne bien et qui demande à l'utilisateur d'inscrire
une date.
J'aimerais pouvoir construire une autre macro qui déclenchera la première
lorsque certaines conditions sont satisfaites, "Call Sub()", mais surtout
qui pourra inscrire automatiquement une date définie par les lignes de code.
Est-ce que c'est possible et si oui est-ce possible sans modifier la
première macro?
Et bien sûr comment on fait??

Merci d'avance
Yves


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Yann
Salut Yves,
Sub Macro1()
blabla
End Sub

Sub Macro2()
If Condition then Call Macro1()
End Sub

Bye
Yann
-----Message d'origine-----
Bonjour,
J'ai une macro qui fonctionne bien et qui demande à
l'utilisateur d'inscrire

une date.
J'aimerais pouvoir construire une autre macro qui
déclenchera la première

lorsque certaines conditions sont satisfaites, "Call Sub
()", mais surtout

qui pourra inscrire automatiquement une date définie par
les lignes de code.

Est-ce que c'est possible et si oui est-ce possible sans
modifier la

première macro?
Et bien sûr comment on fait??

Merci d'avance
Yves


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system
(http://www.grisoft.com).

Version: 6.0.740 / Virus Database: 494 - Release Date:
2004-08-16



.



Avatar
LeSteph
Bonjour Yves,
Avec un peu plus de précisions par exemple le texte de ta macro ,
comment tu souhaite déterminer la date et les fâmeuses conditions
...etc..
on peut faire un truc du genre:

Sub Masub()
Dim ladate
ladate=...'datedéfinieparleslignedecode
If onmeticilacondition Then
mamacroquifonctionnebien(ladate)
end if
end sub

LeSteph

"Yves Trudel" a écrit dans le message de
news:
Bonjour,
J'ai une macro qui fonctionne bien et qui demande à l'utilisateur
d'inscrire

une date.
J'aimerais pouvoir construire une autre macro qui déclenchera la première
lorsque certaines conditions sont satisfaites, "Call Sub()", mais surtout
qui pourra inscrire automatiquement une date définie par les lignes de
code.

Est-ce que c'est possible et si oui est-ce possible sans modifier la
première macro?
Et bien sûr comment on fait??

Merci d'avance
Yves


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16




Avatar
Yves Trudel
Voici la macro qui fonctionne bien (!)
Je souhaite l'interrompre où j'ai ajouté des ??? pour que la date demandée
s'inscrive suivant les données de la nouvelle macro.
Merci d'avance
Yves

Sub sauvegarde()
Dim dateDuSamedi As String
Application.ScreenUpdating = False

dateDuSamedi = InputBox("Entrer la nouvelle date (de préférence la date de
samedi prochain)", " dateDuSamedi ", "AAAA-MM-JJ")

??????

ChDir "G:70000PLANIFICATION_ET_COORDINATIONÉlectrique"
ActiveWorkbook.SaveAs Filename:= _
"G:70000PLANIFICATION_ET_COORDINATIONÉlectriqueplanification
électrique " & dateDuSamedi & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


"LeSteph" a écrit dans le message de
news:412a181c$0$18622$
Bonjour Yves,
Avec un peu plus de précisions par exemple le texte de ta macro ,
comment tu souhaite déterminer la date et les fâmeuses conditions
...etc..
on peut faire un truc du genre:

Sub Masub()
Dim ladate
ladate=...'datedéfinieparleslignedecode
If onmeticilacondition Then
mamacroquifonctionnebien(ladate)
end if
end sub

LeSteph

"Yves Trudel" a écrit dans le message de
news:
Bonjour,
J'ai une macro qui fonctionne bien et qui demande à l'utilisateur
d'inscrire

une date.
J'aimerais pouvoir construire une autre macro qui déclenchera la
première


lorsque certaines conditions sont satisfaites, "Call Sub()", mais
surtout


qui pourra inscrire automatiquement une date définie par les lignes de
code.

Est-ce que c'est possible et si oui est-ce possible sans modifier la
première macro?
Et bien sûr comment on fait??

Merci d'avance
Yves


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16








---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16


Avatar
LeSteph
Re,
C'est un peu différent c'était la nouvelle macro qui devait appeler celle
ci?et il manque
comment tu souhaite déterminer la date et les fâmeuses conditions?
Peu importe! Tu reprécisera si ce n'est pas cela car dès lors je cherche le


but de la manoeuvre
et résultat sauf erreur d'appréciation de ma part on supprime le inputbox
et en fait
je suppose plus simplement que tu veux la date du samedi.

Sub sauvegarde()
Dim dateDuSamedi
Dim monjour


dateDuSamedi = Now
monjour = Format(dateDuSamedi, "dddd")
While monjour <> "samedi"
dateDuSamedi = dateDuSamedi + 1
monjour = Format(dateDuSamedi, "dddd")


Wend


dateDuSamedi = Format(dateDuSamedi, "yyyy-mm-dd")



ChDir "G:70000PLANIFICATION_ET_COORDINATIONÉlectrique"
ActiveWorkbook.SaveAs Filename:= _
"G:70000PLANIFICATION_ET_COORDINATIONÉlectriqueplanification
électrique " & dateDuSamedi & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


End Sub

LeSteph




"Yves Trudel" a écrit dans le message de
news:

Voici la macro qui fonctionne bien (!)
Je souhaite l'interrompre où j'ai ajouté des ??? pour que la date demandée
s'inscrive suivant les données de la nouvelle macro.
Merci d'avance
Yves

Sub sauvegarde()
Dim dateDuSamedi As String
Application.ScreenUpdating = False

dateDuSamedi = InputBox("Entrer la nouvelle date (de préférence la date de
samedi prochain)", " dateDuSamedi ", "AAAA-MM-JJ")

??????

ChDir "G:70000PLANIFICATION_ET_COORDINATIONÉlectrique"
ActiveWorkbook.SaveAs Filename:= _
"G:70000PLANIFICATION_ET_COORDINATIONÉlectriqueplanification
électrique " & dateDuSamedi & ".xls" _
, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:úlse, CreateBackup:úlse


"LeSteph" a écrit dans le message de
news:412a181c$0$18622$
Bonjour Yves,
Avec un peu plus de précisions par exemple le texte de ta macro ,
comment tu souhaite déterminer la date et les fâmeuses conditions
...etc..
on peut faire un truc du genre:

Sub Masub()
Dim ladate
ladate=...'datedéfinieparleslignedecode
If onmeticilacondition Then
mamacroquifonctionnebien(ladate)
end if
end sub

LeSteph

"Yves Trudel" a écrit dans le message de
news:
Bonjour,
J'ai une macro qui fonctionne bien et qui demande à l'utilisateur
d'inscrire

une date.
J'aimerais pouvoir construire une autre macro qui déclenchera la
première


lorsque certaines conditions sont satisfaites, "Call Sub()", mais
surtout


qui pourra inscrire automatiquement une date définie par les lignes de
code.

Est-ce que c'est possible et si oui est-ce possible sans modifier la
première macro?
Et bien sûr comment on fait??

Merci d'avance
Yves


---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16








---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.740 / Virus Database: 494 - Release Date: 2004-08-16