[VBA] VBA et ExcelRésolu

Question

Bonjour!

J'ai fait une petite application en VBA sur excel 2002 sous XP avec des forms toussa.
La première chose que fait dans l'application est

Application.visible false

pour que l'on voit uniquement ma form.

Pour la fermeture, je procède comme ça puisuqe j'ai besoin de fermer sans sauvegarder :


Function quitterSansSauvegarder()
    
    Dim XlSheet As Object
    Set XlSheet = Application
    
    XlSheet.Application.DisplayAlerts = False
    Application.Workbooks.Close
    Set XlSheet = Nothing
End Function


Or, si un fichier excel était en cours d'édition avant le lancement de mon appliVBA, tout le travail sera perdu :(

Je ne sais pas trop comment m'y prendre,
mais peut t'on savoir si un travail excel est en cours?
Si je ferme seulement mon classeur, et qu'aucun autre classeur n'était ouvert avant, le processus Excel.exe sera toujours présent...

Si quelqu'un à une idée svp.

Merci :)

jrivet · Accepted Answer

Salut,
Et ceci?
Function quitterSansSauvegarder()
 
   Application.DisplayAlerts = False
   ActiveWorkbook.Close (False)

End Function<hr />, ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

aurelien2723 · Answer

Merci mais :
"Erreur de compilation:
Variable non définie"

ActiveWorbook.Close False

:(

aurelien2723 · Answer

oups....
quel boulet  :s

désolé, avec le "k" ça marche mieux...

jrivet · Answer

Salut,
Tu es sur que c'est du VBA Excel?
Sino ajoute Application devant ActiveWorkBook
Application.ActiveWorkBook.Close(False)

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Aucun pas vu désolé post croisé.

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

N'oublie réponse acceptée sur le ou les posts qui ont pu t'aider.

@+: Ju£i?n
Pensez: Réponse acceptée

aurelien2723 · Answer

Comme je disais, le processus Excel.exe est toujours présent, mêmesi aucun classeur excel n'était ouvert avant.

et deuxième soucis, si un classeur était ouvert, il ne réaparait pas, mais un coup de 
Application.Visible True   
devrait suffir.

aurelien2723 · Answer

je penses que je vais laisser comme ça, c'est à dire que la fenetre Excel vide restera une fois l'application fermer, et si il y avait un fichier, il reviendra...

Qu'en pensez vous?
A moins qu'on peut fermer l'application s'il n'y a plus de woorbook présent?

Merci :)

jrivet · Answer

SAlut,
Lorsque tu veux Quitter Excel
Application.Quit

Ensuite si un Classeur etait déjà present il faut l'activer avec sa methode .Activate (mais nécessite peu être de récupérer le nom du classeur avant)

@+: Ju£i?n
Pensez: Réponse acceptée

tubafat · Answer

Salut, j'ai déjà eu le même problème que toi et je l'ai réglé avec le bout de code suivant:

Application.DisplayAlerts = False
'Compter le nombre de Workbooks ouverts
If Workbooks.Count = 1 Then
Application.quit
Else: ActiveWorkbook.Close
End If





Tubafat

cs_MPi · Answer

C'est quoi ce "Application" ?

    Dim XlSheet As Object
    Set XlSheet = Application

MPi

jrivet · Answer

Salut, 
Application est un objet disponible dans les VBA et qui  ici représente Excel.

@+: Ju£i?n
Pensez: Réponse acceptée

aurelien2723 · Answer

Ca y est :)

A priori j'ai trouvé la solution, ça à l'air de bien fonctionner :)

Function quitterSansSauvegarder()
    Application.Visible = True
    Application.DisplayAlerts = False
    
    ' si un seul woorbook est ouvert, on ferme excel
    If Application.Workbooks.Count = 1 Then
        Application.Quit
    Else    'sinon on ferme que l'applciation
        ActiveWorkbook.Close False
    End If
End Function

Merci bien jrivet :)

aurelien2723 · Answer

a dsl j'avais pas vu les nouvelles réponses

Merci à tous :)

[VBA] VBA et Excel

14 réponses

Votre réponse

Discussions similaires