Problème lors de la fermeture du classeurRésolu

Question

Bonjour à tous, 

J'ai un problème dans le code VBS ci-dessous.
Il fonctionne très bien jusqu'à se qui se sauvegarde et se ferme ! 
Il m'affiche "L'indice n'appartient pas à la sélection".
Sachant que lorsque je répond "OK" à cette fenetre, le classeur se ferme et s'enregistre très bien...

Merci pour votre aide..!

Mon code :

Const xlValues = -4163
Const xlNone = -4142

Dim xlApp,xlBook,xlSheetData,xlSheetNew,k

Path="P:\monfichier.xls"

Set xlApp= CreateObject("Excel.Application")
xlApp.Visible=True

Set xlBook= xlApp.Workbooks.Open(Path)

xlBook.Worksheets.Add.Name = "Coucou"

Set xlSheetData= xlBook.WorkSheets("Hello")

Set xlSheetNew= xlBook.WorkSheets("Coucou")

'-------------

'Copier les données:	
DerLigne = xlSheetData.UsedRange.Rows.Count   
xlSheetData.Rows("2:" & DerLigne).Copy

'Coller les données:
xlSheetNew.Rows("1").PasteSpecial xlValues, xlNone, False, False

'Supprimer l'ancienne feuille:
xlApp.DisplayAlerts = False 	
xlSheetData.Delete
xlApp.DisplayAlerts = True

'-------------

'Quitter et sauvegarder:
xlBook.Close True
xlApp.Quit

'-------------

'Liberer mémoire:
Set xlSheetData = Nothing
Set xlSheetNew =Nothing
Set xlBook = Nothing
Set xlApp = Nothing

jordane45 · Answer

ça ne serait pas au moment de libérer la mémoire..

'Liberer mémoire: Set xlSheetData = Nothing Set xlSheetNew =Nothing Set xlBook = Nothing Set xlApp = Nothing

mpStoox · Answer

Négatif...

C'est vraiment à la fermeture apparament. Lorsque j'arrete le code après la suppression de la feuille et que je ferme manuellement, le classeur il m'affiche la même fenêtre.

jordane45 · Answer

Tu as essayé ceci : 
xlBook.Saved = TruexlBook.Close

jordane45 · Answer

Ton code fonctionne parfaitement chez moi.

Tu as bien créé le fichier  P:\monfichier.xls ?
Ce fichier comporte bien une feuille nommée :  Hello ?


Sinon, en ajoutant des MsqgBox à chaque étape;.cela te permettrait de déterminer à quel endroit ça bloque...

Const xlValues = -4163 
Const xlNone = -4142

Dim xlApp,xlBook,xlSheetData,xlSheetNew,k

Path="C:	mp\monfichier.xls" 
msgbox Path
Set xlApp= CreateObject("Excel.Application") 
xlApp.Visible=True

Msgbox "Ouverture du classeur"
Set xlBook= xlApp.Workbooks.Open(Path)

Msgbox " Ajout d'une feuille"
xlBook.Worksheets.Add.Name = "Coucou"

Set xlSheetData= xlBook.WorkSheets("Hello")

Set xlSheetNew= xlBook.WorkSheets("Coucou")

'-------------

Msgbox "Copier les données" 
DerLigne = xlSheetData.UsedRange.Rows.Count 
xlSheetData.Rows("2:" & DerLigne).Copy

Msgbox "Coller les données: "
xlSheetNew.Rows("1").PasteSpecial xlValues, xlNone, False, False

MsgBox "Supprimer l'ancienne feuille" 
xlApp.DisplayAlerts = False 
xlSheetData.Delete 
xlApp.DisplayAlerts = True

'-------------

Msgbox "Quitter et sauvegarder"
xlBook.Close True 
xlApp.Quit

'-------------

'Liberer mémoire: 
Set xlSheetData = Nothing 
Set xlSheetNew =Nothing 
Set xlBook = Nothing 
Set xlApp = Nothing

cs_JMO · Answer

Bonjour,

Comme Jordane45, le code proposé fonctionne sous XP avec Excel 2003.

Il est inutile d'instancié les feuilles.

Exemple:
 Set xlBook = xlApp.Workbooks.Open(Path)xlBook.Worksheets.Add.Name = "Coucou"'-------------'Copier les données:DerLigne = xlBook.Sheets("Hello").UsedRange.Rows.CountxlBook.Sheets("Hello").Rows("2:" & DerLigne).Copy'Coller les données:xlBook.Sheets("Coucou").Rows("1").PasteSpecial xlValues, xlNone, False, False'Supprimer l'ancienne feuillexlApp.DisplayAlerts = FalsexlBook.Sheets("Hello").DeletexlBook.Close TruexlApp.DisplayAlerts = TruexlApp.Quit'-------------'Liberer mémoire:Set xlBook = NothingSet xlApp = Nothing
--
jean-marc

ucfoutu · Answer

Bonjour, je vois beaucoup de choses inutiles, d'autres incomplètes et des lourdeurs dans ce code, mais il devrait en effet quand-même fonctionner, pour autant qu'existe bien une feuille nommée Hello dans monfichier.xls au moment de son ouverture

ucfoutu · Answer

Il nous faut par ailleurs espérer que tu n'as par ailleurs pas mis une instruction de suppression de la feuille Hello dans, par exemple, l'évènement Workbook_BeforeClose du classeur P:\monfichier.xls
Ce serait alors pour le moins assez cocasse, mais sait-on jamais ...

ucfoutu · Answer

Pourquoi ai-je enfin l'impression de ce que tout ce code serait finalement et bêtement remplaçable par ces quelques lignes :
 Dim toto As Workbook Set toto = Workbooks.Open("P:\monfichier.xls") With toto   With .Worksheets("hello")     .UsedRange.Copy     .Range("A1").PasteSpecial xlValues, xlNone, False, False     .Rows(1).Delete     .Name = "coucou"   End With   .Close True End With 
Il faut par ailleurs qu'il soit bien clair qu'il ne fonctionnerait (comme le tien, d'ailleurs) qu'une seule fois, puisque, dès la seconde, la feuille "Hello" n'existe déjà plus.
Et (bien entendu) : ne pas se "mélanger les pinceaux (me relire) éventuellement avec l'évènement BeforeClose.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviend

ucfoutu · Answer

Plus je me réveille, plus je pense que l'un des évènements de ton classeur P:\monfichier.xls exécxute une instruction faisant référence à la feuille nommée Hello (que tu viens de supprimer !)
Si ce classeur contient des formules, examine-les aussi, pour le cas où elles contiendraient une référence à la feuille "Hello"
Reviens-nous en parler après examen. On te proposera alors deux petits rajouts "libératoires".

cs_JMO · Answer

Bonjour
 
Reprenant le script de ucfoutu (que je salue).
With CreateObject("Excel.Application").Workbooks.Open("P:\monfichier.xls")   With .Worksheets("Hello")     .UsedRange.Copy     .Range("A1").PasteSpecial -4163, -4142, False, False     .Rows(1).Delete     .Name = "Coucou"     .Range("A1").Select   End With   .Close TrueEnd With
--
jean-marc

mpStoox · Answer

Bonjour à tous (dsl de mon absence pendant le weekend)

J'ai peut-être oublié de vous dire pourquoi j'effectue ce traitement :
Dans la feuille "Hello" il y a des macros sur la ligne 1 et j'ai besoin de nettoyer la feuille pour l'importer dans Access par la suite.
(Je n'arrive pas à supprimer cette ligne, j'ai seulemnt trouvé le moyen en supprimant la feuille complète)

mpStoox · Answer

Ca venait bien des macros dans le fichier qui m'embêtaient pour fermer... 
Je colle dans un autre fichier à présent et ca fonctionne bien !
Dernière question :

Quelle est la ligne de code pour vider le presse papier ?! 

Merci !

Problème lors de la fermeture du classeur

12 réponses

Votre réponse

Discussions similaires