Vbyesno

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion jip31
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
J

jip31

Guest
Bonjour

j'utilise le code ci-dessous pour ouvrir une boite de dial

Sub Message()
MsgBox "L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP"
If vbyes= yes Then call ACP
End If
If vbNO= yes Then exit sub
End If
End Sub


quand je clique sur yes ca doit lancer une macro et si je clique no ca doit permettre de ne pas la lancer
mais ca ne marche pas!
pouvez vous m aider svp?
 
Trier par date Trier par votes
Re : Vbyesno

Re
Mais ce n'est pas le seul problème:
VB: 
Rep = MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP")
If Rep = vbYes Then Call ACP
If Rep = vbNo Then Exit Sub

Je pense qu'une visite dans l'atelier des MsgBox te plaira ;-)
Cordialement
 
Vote positif 0 Vote négatif
Re : Vbyesno

bonjour

je pense qu'il te manque une déclaration de variable variant pour la saisie avec Msgbox :

Dim ReponseMsgbox as variant

et ensuite:

ReponseMsgbox = Msgbox("..... , vbYesNo ...

et là:

if ReponseMsgbox = VbYes then ...
...
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Vbyesno

re

Roland_M à dit:
je pense qu'il te manque une déclaration de variable variant pour la saisie avec Msgbox :

Dim ReponseMsgbox as variant
Cliquez pour agrandir...

elle n'est obligatoire que Si... tu commences par Option Explicit et dans ce cas (passage par une variable):
Code: 
Private Sub CommandButton1_Click()
  Rep = MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP")
  If Rep = vbYes Then MsgBox "ACP"  'Call ACP
End Sub
 
Vote positif 0 Vote négatif
Re : Vbyesno

erci roland mais ca ne change rien
quand je clique sur non la macro s exécute quand même!
voici mon code

Sub ACP()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Call Message

' Récupération des données des appels entrants
ChDir "\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM"
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants").Select
Cells.Select
Sheets("Appels entrants").Paste
Windows("ROSSE JP_Appels entrants.xlsx").Activate
ActiveWindow.Close

' Récupération des données des appels entrants répondus
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants répondus.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants répondus").Select
Cells.Select
Sheets("Appels entrants répondus").Paste
Windows("ROSSE JP_Appels entrants répondus.xlsx").Activate
ActiveWindow.Close

' Récupération des données des appels entrants perdus
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants perdus.xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants perdus").Select
Cells.Select
Sheets("Appels entrants perdus").Paste
Windows("ROSSE JP_Appels entrants perdus.xlsx").Activate
ActiveWindow.Close

' Récupération des stats générales
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants (statistique générale).xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants (statistique)").Select
Cells.Select
Sheets("Appels entrants (statistique)").Paste
Windows("ROSSE JP_Appels entrants (statistique générale).xlsx").Activate
ActiveWindow.Close

' Récupération des graphes
Workbooks.Open Filename:= _
"\\W2008-3120-102\dataacp\Reporting Server Attached Files\Support CP COM\ROSSE JP_Appels entrants (graphique).xlsx"
Cells.Select
Selection.Copy
Windows("Statistiques ACP.xlsm").Activate
Sheets("Appels entrants (graphique)").Select
Cells.Select
Sheets("Appels entrants (graphique)").Paste
Windows("ROSSE JP_Appels entrants (graphique).xlsx").Activate
ActiveWindow.Close

' Sélection de la feuille
Sheets("Synthèse").Select

' Enregistrement classeur
ActiveWorkbook.Save

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Private Sub Aut😵pen()
Call ACP
End Sub

Sub Message()
Dim RepMsgbox As Variant
Rep = MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP")
If Rep = vbYes Then Call ACP
If Rep = vbNo Then Exit Sub
End Sub


merci
 
Vote positif 0 Vote négatif
Re : Vbyesno

Re à tous
Avec ton code tu Exit sub de la sub Message.....
Donc
VB: 
Public RepMsgbox As Variant
Private Sub Auto_Open()
Call ACP
End Sub
Te permets d'utiliser une variable partout dans les modules (a mettre en tête de module, avant la première ligne)
Ensuite ton code message deviens
VB: 
Sub Message()
RepMsgbox = MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", vbYesNo + vbQuestion, "Export ACP")
End Sub

Ensuite le début du code ACP
VB: 
Sub ACP()

Call Message

If RepMsgbox = vbNo Then Exit Sub

Application.DisplayAlerts = False
Application.ScreenUpdating = False



'La suite......

Il faut vérifier si l'on continu avant de désactiver le calcul

Cordialement
 
Vote positif 0 Vote négatif
Re : Vbyesno

re

mais quel est l'intérêt de passer par une autre macro (Call Message) ?
Je ferais directement
Code: 
Sub ACP()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

If MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", 36, "Export ACP") = 7 Then Exit Sub

' Récupération des données des appels entrants
...
 
Vote positif 0 Vote négatif
Re : Vbyesno

Si... à dit:
re

mais quel est l'intérêt de passer par une autre macro (Call Message) ?
Je ferais directement
Code: 
Sub ACP()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

If MsgBox("L'export ACP du " & Date - 1 & " va démarrer, voulez-vous continuer? ", 36, "Export ACP") = 7 Then Exit Sub

' Récupération des données des appels entrants
...
Cliquez pour agrandir...

Je suis d'accord avec toi, Si..... on sort Avant de désactiver les alertes 😀

Cordialement
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
186
Constantin
C
Y
  • Résolu(e)
XL 2019 Compter le nb de Fichier dans un dossier afin de créer une nouvelle version
Réponses
2
Affichages
550
youguybass
Y
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
909
n_turf
N
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
389
Did25
D
L
  • Question Question
XL 2016 Enregistrer une zone dans un PDF
Réponses
2
Affichages
394
patricktoulon
patricktoulon
I
  • Résolu(e)
XL 2021 msgbox : timer vbyes
2 3
Réponses
40
Affichages
2 K
isandre
I
P
  • Résolu(e)
Microsoft 365 Problème avec Application.undo
Réponses
2
Affichages
277
pat66
P
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
406
escudo
E
chinel
  • Résolu(e)
XL 2016 problème au niveau d'un contrôle dans VBA
Réponses
2
Affichages
578
chinel
chinel
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
1 K
tnion
T
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
738
Piment
P
cp4
  • Question Question
XL 2010 [RESOLU] Lenteur rendre visible un Label
Réponses
11
Affichages
654
patricktoulon
patricktoulon
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
434
fredl
F
jurassic pork
  • Question Question
Autres Séquenceur (Timer) dans autre instance d'Excel
Réponses
5
Affichages
453
Dranreb
Dranreb
A
  • Question Question
XL 2016 erreur de code
Réponses
10
Affichages
517
AlphaOne
A
patricktoulon
fermer la session éteindre le pc etc... sous toute les formes
Réponses
5
Affichages
663
oguruma
oguruma
H
  • Résolu(e)
XL 2021 Rétablir la valeur initiale d'une combobox
Réponses
7
Affichages
341
hyule
H
P
  • Résolu(e)
XL 2019 Msgbox différent selon le contenu d'une cellule
2
Réponses
16
Affichages
2 K
pat66
P
E
  • Question Question
Microsoft 365 Listbox avec plus de 10 colonnes
Réponses
6
Affichages
978
Excellearning
E
Retour