Fermeture excel sans devoir repondre oui [Résolu]

Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
- - Dernière réponse : mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
- 17 févr. 2007 à 07:18
Bonjour je voudrais savoir comment fermer excel sans devoir repondre oui au changement d'excel
Merci

pour fermer excel j'utilise
ClasseurXLS.Workbooks.Close

Merci d'avance.

@+
Afficher la suite 

11 réponses

Meilleure réponse
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
3
Merci
re,

<small> Coloration syntaxique automatique </small>

   Dim xlApp      As Object 
   Dim xlBook     As Object 
   Dim xlSheet    As Object 

Set xlApp =   CreateObject ("Excel.Application") 
Set xlBook  = xlApp.WorkBooks.Open(App.Path & "" & NomFicher) 
Set xlSheet = xlBook.WorkSheets("--Nom de ta feuille--") 

For g = 0 To cont '?? cont pas déclaré !
   If ns1(g) = Text1.Text Then 
      xlSheet.cells(g + 1, 1) = Text1.Text 
      xlSheet.cells(g + 1, 2) = designation.Text 
      xlSheet.cells(g + 1, 3) = Text2.Text 
   End If 
Next g 

xlBook.Close True 
xlApp.Quit 

Set xlApp = Nothing 
Set xlBook = Nothing 
Set xlSheet = Nothing 
<small> Coloration syntaxique automatique </small>

PCPT : pas de problème !
En VBA, ça fonctionne comme ceci :
Application.DisplayAlerts = True (ou False)

@++

  Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce
sondage


Merci de prendre le temps de lire
le Règlement CS


    http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 188 internautes nous ont dit merci ce mois-ci

Commenter la réponse de mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
 
Salut,

Essai ça :



ClasseurXLS.WorkBooks.Close True
               OU
ClasseurXLS.WorkBooks.Close False
' le 1er, ça enregistre les modifications

@++

  Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce
sondage


Merci de prendre le temps de lire
le Règlement CS




    http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
Commenter la réponse de mortalino
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Humm par contre ça représente quoi pour toi ClasseurXLS ?



La logique voudrait que ce soit l'application (bien ça ait un nom représentant le classeur).



Bref, si c'est bien ça, tu peux aussi mettre




With ClasseurXLS
   .DisplayAlerts = False
   .Workbooks.Close
   .DisplayAlerts = True
End With

Là, t'auras aucune demande d'Excel, et aucun enregistrement ! 

@++

  Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce
sondage


Merci de prendre le temps de lire
le Règlement CS




    http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
Commenter la réponse de mortalino
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
justement je veux pas d'alerts mais je veux qu'il enregistre les données qui
on été modifié

mais la commande
ClasseurXLS.WorkBooks.Close True

sa marche pas
Commenter la réponse de petiflamand
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
26
0
Merci
salut,
utilisation d'un classeur excel sous VB6 ou VBA?!!!!!!!
c'est quand même incroyable çà!!!!!

sous VB6 :
ExlObj.DisplayAlerts = False
Commenter la réponse de PCPT
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Si c'est du vb6 ça doit marcher !
Que représente ClasseurXLS ?

je ne serai pas contre de voir un bout de code ;
Ce sera plus facile pour voir pourquoi il ne veut pas enregistrer !

@++

  Mortalino
Le mystérieux chevalier, "Provençal, le Gaulois"

Merci de prendre le temps de répondre à ce
sondage


Merci de prendre le temps de lire
le Règlement CS


    http://www.smileycentral.com/?partner=ZSzeb008_ZNxdm414YYFR
Commenter la réponse de mortalino
Messages postés
13298
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
26
0
Merci
arf, désolé Mortalino, apparemment c'est aussi le cas pour VBA et je n'avais que survolé tes réponses...

<hr size="2" width="100%" />Prenez un instant pour répondre à ce sondage svp
Commenter la réponse de PCPT
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Voici  et je suis sous vb6,
ClasseurXLS.Workbooks.Open PathFic & NomFic


For g = 0 To cont
If ns1(g) = Text1.Text Then
ClasseurXLS.cells(g + 1, 1) = Text1.Text
ClasseurXLS.cells(g + 1, 2) = designation.Text
ClasseurXLS.cells(g + 1, 3) = Text2.Text
End If
Next g




ClasseurXLS.Workbooks.Close
Commenter la réponse de petiflamand
Messages postés
675
Date d'inscription
samedi 31 mai 2003
Statut
Membre
Dernière intervention
26 mai 2013
1
0
Merci
Merci beaucoup sa marche , c'est beaucoup plus compliquer pour moi
mais sa fonctionne c'est le principale

nikel merci mortalino

@++
Commenter la réponse de petiflamand
Messages postés
2
Date d'inscription
dimanche 9 février 2003
Statut
Membre
Dernière intervention
14 février 2007
0
Merci
Pas mal le code mais quand tu as déjà un fichier excel et que tu l'as déjà sauver il le ferme, et si il n'etait pas sauver il te demande de le faire comme si tu voulais le fermer en cliquant sur la croix. pas de solution miracle pour ca ?
Commenter la réponse de ismaii
Messages postés
6789
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
16
0
Merci
Salut,

il faut mettre le parmètre SaveChanges à True ou False (de Close), dans tous les cas avec cette info, tu n'auras pas de demande de la part d'Excel.

TonClasseur.Close True
OU
TonClasseur.Close False

@++

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>
Commenter la réponse de mortalino