Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel msgbox : le annuler marche pas

msgbox : le annuler marche pas

3 réponses
Avatar
Sunburn
Bonjour,
j'ai une msgbox dans une macro, et le "annuler" ne fonctionne pas, la suite
de la macro s'execute. qu'est-ce qui ne va pas ?
merci.
YANN
-------
Sub FeuilleExcel()
Dim VarA1 As String, VarA2 As String, VarA3 As String, VarB1 As String,
VarB2 As String, VarB3 As String, _
VarF1 As String, VarF2 As String, VarF3 As String, VarF4 As String, VarF5 As
String, _
VarG1 As String, VarG2 As String, VarG3 As String, VarG4 As String, VarG5 As
String
VarA1 = [DGA!A1].Value
VarA2 = [DGA!A2].Value
VarA3 = [DGA!A3].Value
VarB1 = [DGA!B1].Value
VarB2 = [DGA!B2].Value
VarB3 = [DGA!B3].Value
VarF1 = [DGA!F1].Value
VarF2 = [DGA!F2].Value
VarF3 = [DGA!F3].Value
VarF4 = [DGA!F4].Value
VarF5 = [DGA!F5].Value
VarG1 = [DGA!G1].Value
VarG2 = [DGA!G2].Value
VarG3 = [DGA!G3].Value
VarG4 = [DGA!G4].Value
VarG5 = [DGA!G5].Value
Dim NomDoc As String
'Set excelobj = CreateObject("Excel.Application")
NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer.
Attention, pas de caractères spéciaux")
Workbooks.Open Filename:="G:\COLL\ypa\Dossiers de
travail\ModeleRevisHoche.xlt"
With Sheets("Feuil1")
.[A1] = VarA1
.[A2] = VarA2
.[A3] = VarA3
.[B1] = VarB1
.[B2] = VarB2
.[B3] = VarB3
.[E3] = NomDoc
.[H1] = VarF1
.[H2] = VarF2
.[H3] = VarF3
.[H4] = VarF4
.[H5] = VarF5
.[I1] = VarG1
.[I2] = VarG2
.[I3] = VarG3
.[I4] = VarG4
.[I5] = VarG5
End With
If NomDoc <> "" Then
ActiveWorkbook.SaveAs ThisWorkbook.path & "\" & NomDoc
End If
End Sub
---------
Signaler un problème avec ce contenu

3 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
FFO
Salut à toi

Pourquoi ne mets tu pas la ligne :

If NomDoc <> "" Then

aprés l'instruction du MsgBox ainsi :

NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer.
Attention, pas de caractères spéciaux")
If NomDoc <> "" Then
Workbooks.Open Filename:="G:COLLypaDossiers de
travailModeleRevisHoche.xlt"
With Sheets("Feuil1")
.[A1] = VarA1
.[A2] = VarA2
.[A3] = VarA3
.[B1] = VarB1
.[B2] = VarB2
.[B3] = VarB3
.[E3] = NomDoc
.[H1] = VarF1
.[H2] = VarF2
.[H3] = VarF3
.[H4] = VarF4
.[H5] = VarF5
.[I1] = VarG1
.[I2] = VarG2
.[I3] = VarG3
.[I4] = VarG4
.[I5] = VarG5
End With
ActiveWorkbook.SaveAs ThisWorkbook.path & "" & NomDoc
End If

Celà devrait mieux convenir avec l'annuler du MsgBox
Dis moi !!!!
Avatar
Sunburn
salut
impecable, merci

"FFO" a écrit :

Salut à toi

Pourquoi ne mets tu pas la ligne :

If NomDoc <> "" Then

aprés l'instruction du MsgBox ainsi :

NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer.
Attention, pas de caractères spéciaux")
If NomDoc <> "" Then
Workbooks.Open Filename:="G:COLLypaDossiers de
travailModeleRevisHoche.xlt"
With Sheets("Feuil1")
.[A1] = VarA1
.[A2] = VarA2
.[A3] = VarA3
.[B1] = VarB1
.[B2] = VarB2
.[B3] = VarB3
.[E3] = NomDoc
.[H1] = VarF1
.[H2] = VarF2
.[H3] = VarF3
.[H4] = VarF4
.[H5] = VarF5
.[I1] = VarG1
.[I2] = VarG2
.[I3] = VarG3
.[I4] = VarG4
.[I5] = VarG5
End With
ActiveWorkbook.SaveAs ThisWorkbook.path & "" & NomDoc
End If

Celà devrait mieux convenir avec l'annuler du MsgBox
Dis moi !!!!



Avatar
Blaise Cacramp
"Sunburn" a écrit dans le message de
news:
Bonjour,
j'ai une msgbox dans une macro, et le "annuler" ne fonctionne pas, la
suite
de la macro s'execute. qu'est-ce qui ne va pas ?
merci.
YANN
-------
Sub FeuilleExcel()
Dim VarA1 As String, VarA2 As String, VarA3 As String, VarB1 As String,
VarB2 As String, VarB3 As String, _
VarF1 As String, VarF2 As String, VarF3 As String, VarF4 As String, VarF5
As
String, _
VarG1 As String, VarG2 As String, VarG3 As String, VarG4 As String, VarG5
As
String
VarA1 = [DGA!A1].Value
VarA2 = [DGA!A2].Value
VarA3 = [DGA!A3].Value
VarB1 = [DGA!B1].Value
VarB2 = [DGA!B2].Value
VarB3 = [DGA!B3].Value
VarF1 = [DGA!F1].Value
VarF2 = [DGA!F2].Value
VarF3 = [DGA!F3].Value
VarF4 = [DGA!F4].Value
VarF5 = [DGA!F5].Value
VarG1 = [DGA!G1].Value
VarG2 = [DGA!G2].Value
VarG3 = [DGA!G3].Value
VarG4 = [DGA!G4].Value
VarG5 = [DGA!G5].Value
Dim NomDoc As String
'Set excelobj = CreateObject("Excel.Application")
NomDoc = InputBox("Entrez le nom du document Excel que vous allez créer.
Attention, pas de caractères spéciaux")
Workbooks.Open Filename:="G:COLLypaDossiers de
travailModeleRevisHoche.xlt"
With Sheets("Feuil1")
.[A1] = VarA1
.[A2] = VarA2
.[A3] = VarA3
.[B1] = VarB1
.[B2] = VarB2
.[B3] = VarB3
.[E3] = NomDoc
.[H1] = VarF1
.[H2] = VarF2
.[H3] = VarF3
.[H4] = VarF4
.[H5] = VarF5
.[I1] = VarG1
.[I2] = VarG2
.[I3] = VarG3
.[I4] = VarG4
.[I5] = VarG5
End With
If NomDoc <> "" Then
ActiveWorkbook.SaveAs ThisWorkbook.path & "" & NomDoc
End If
End Sub
---------




Bonjour ou bonsoir, selon.

À vue de nez, la procédure s'exécute jusqu'à la ligne « If NomDoc <> ""
Then »
Remontez cette ligne juste après l'inputbox


Cdt, Blaise
---- ---- ----