msgbox

[tony]

bonjour a tous
mon probleme avec ma boite de dialogue 'oui & non' pour 'oui' pas de probleme,en revanche quand je reponds 'non' mon fichier se ferme et je desirai qu'il reste ouvert donc si vous pouviez me donner un petit coup pousse, d'avance merci

si joint la programmation
Dim chemin: Dim r
'si cellule 50 vide affiche l'ecran de sauvegarde
If IsEmpty(Sheets('sommaire').Range('a50')) Then
chemincomplet = Application.GetSaveAsFilename(Sheets('sommaire').Range('f4'), 'FICHIER EXCEL,*.xls', , 'SAUVEGARDE...')
Position = InStrRev(chemincomplet, '\\')
cheminincomplet = Left(chemincomplet, Position)

With ActiveWorkbook
.Sheets('sommaire').Range('a50') = cheminincomplet
.Save
.Sheets('Pré audit 2004').Visible = xlVeryHidden
.Sheets('Pré audit 2005').Visible = x1VeryHidden
.Sheets('Marges par CA et type').Visible = x1VeryHidden
.Sheets('Procédure').Visible = xlVeryHidden
.Sheets('Lettre d'information').Visible = x1VeryHidden
.Sheets('Composition des ventes').Visible = x1VeryHidden
.Sheets('Composition des achats').Visible = x1VeryHidden
.Sheets('sommaire').Unprotect
.Sheets('sommaire').Shapes('bouton 14').Delete
.Sheets('sommaire').Range('f4').Select
End With

Selection.Validation.Delete
With ActiveWorkbook
.Sheets('sommaire').Protect Password:=''
Application.DisplayAlerts = False
.SaveAs cheminincomplet & ActiveWorkbook.Sheets('sommaire').Range('f4') & '.xls'
.Close
End With
Application.DisplayAlerts = True
Else
r = MsgBox('sauvegarde du fichier ? ', vbYesNo)
If r = vbYes Then



With ActiveWorkbook
.Sheets('Pré audit 2004').Visible = xlVeryHidden
.Sheets('Pré audit 2005').Visible = x1VeryHidden
.Sheets('Marges par CA et type').Visible = x1VeryHidden
.Sheets('Procédure').Visible = xlVeryHidden
.Sheets('Lettre d'information').Visible = x1VeryHidden
.Sheets('Composition des ventes').Visible = x1VeryHidden
.Sheets('Composition des achats').Visible = x1VeryHidden
.Sheets('sommaire').Unprotect
.Sheets('sommaire').Shapes('bouton 14').Delete
.Sheets('sommaire').Range('f4').Select
End With

Selection.Validation.Delete
ActiveWorkbook.Sheets('sommaire').Protect Password:=''
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Sheets('sommaire').Range('a50') & Range('f4') & '.xls'
ActiveWorkbook.Close
Application.DisplayAlerts = True

Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If

End If

Application.Quit
End Sub

 

[dg62]

Bonjour Tony



Else
Application.DisplayAlerts = False
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If

End If

Application.Quit
End Sub



il convient de supprimer :

activeWorkbook.close

et
application.quit

 

[tony]

merci c'est super sa fonctionne le petit IK c'est que mais maintenant quand je reponds 'oui' mon fichier s'enregistre mais ne se ferme plus, comme auparavant???

 

[dg62]

re


que souhaites tu faire ?



sauvegarder, fermer le classeur et garder excel actif.

dans ce cas tu laisses activeworbook.close et tu enlèves application.quit.




ps : tu n'as pas posté dans le bon forum, tu es dans le salon, les questions techniques doivent être posées dans le forum excel.

Message édité par: dg62, à: 15/07/2005 18:12

 

[tony]

je souhaite
en repondant oui sauvegarder et fermer & en repondant non rester sur la feuille

 

[dg62]

re


tu places ton application.quit juste avant le ELSE
et ça devrait marcher




Cordialement

 

[tony]

je suis desolé didier, et novice en meme temps car sa ne fonctionne pas peux tu me le renvoyer rectifier par avance merci
tony

 

[tony]

didier c'est bon j'y suis enfin arrivé je te remercie beaucoup la solution
cordialement tony

 

[XlDAdmin1]

Fil déplacé dans le bon forum

A++

David