Word Xp 2002 Soucis dans le Code

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
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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
314 450
Messages
2 109 726
Membres
110 552
dernier inscrit
jasson