MuscatMimi
XLDnaute Accro
Bonsoir a tout le Forum
Ca fait des jours que je galére avec mon probléme
J'ai un soucis dans le code ci-dessous
Je désire donc a la fin de cette procédure Fermer le Document créé
Exécuter les macros suivante
SupprimeToutesLesMacros
CommandBars("MBA").Delete
et que l'original reste Ouvert
************************
Actuellement ,L'original,dans cette procédure ce ferme tout seul.
Le Document Créé,reste ouvert
Si je désire fermer Le document créé,avec la croix Noire ,
La boite de dialogue Word
s'ouvre ,et si je clique sur "oui" ,,,la les macros s'exécute
et le document ce ferme
Comprends rien de rien
Voila mon code actuel
Ou ai-je fais une erreur????,
Bonne soirée
Cordialement
Ca fait des jours que je galére avec mon probléme
J'ai un soucis dans le code ci-dessous
Je désire donc a la fin de cette procédure Fermer le Document créé
Exécuter les macros suivante
SupprimeToutesLesMacros
CommandBars("MBA").Delete
et que l'original reste Ouvert
************************
Actuellement ,L'original,dans cette procédure ce ferme tout seul.
Le Document Créé,reste ouvert
Si je désire fermer Le document créé,avec la croix Noire ,
La boite de dialogue Word
s'ouvre ,et si je clique sur "oui" ,,,la les macros s'exécute
et le document ce ferme
Comprends rien de rien
Voila mon code actuel
Code:
Sub Cmd4()
Dim rep As String
Dim odlg As Dialog
Application.ScreenUpdating = False ' pour geler L 'affichage
rep = MsgBox("Enregistrer Votre Document", vbYesNoCancel + vbInformation, "Attention Enregistrement")
Select Case rep
Case vbYes
Set odlg = Application.Dialogs(wdDialogFileSaveAs)
With odlg
.Name = ThisDocument.TextBox3 & " " & ThisDocument.TextBox21 & " " & ThisDocument.TextBox2 & " " & "Réf" & " " & ThisDocument.TextBox1
TextBox2 = Format(TextBox2, "dddd dd mmmm yyyy")
TextBox1 = Format(TextBox1, "0000_000")
End With
odlg.Show
Case vbNo 'Msg
Exit Sub
Case vbCancel
Exit Sub
End Select
SupprimeToutesLesMacros
CommandBars("MBA").Delete
ThisDocument.Save
ThisDocument.Close
Application.Quit
Application.ScreenUpdating = True ' pour dégeler l'affichage
End Sub
Ou ai-je fais une erreur????,
Bonne soirée
Cordialement