Discussion :

[Wasimolo]

Bonjour,

Depuis un moment j'essaie de faire fonctionner mon code pour supprimer une feuille dans classeur excel A et copier la nouvelle dans le classeur A depuis un classeur B. Cependant, la suppression ne se fait pas, mais le copie s'effectue correctement. Et le code ne fait aucun message d'erreur :/

Voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
            xlWorkBook = xlApp.Workbooks.Open(Chemin)
            xlWorkSheet = xlWorkBook.Worksheets(Feuil1)
            xlWorkbook_Final = xlApp.Workbooks.Open(Chemin2)
            xlWorkSheet_Final = xlWorkbook_Final.Worksheets(Feuil1)
 
            xlWorkSheet_Final.Activate()
            xlWorkSheet_Final.Delete() 'Supprime la feuille
 
'Copie la nouvelle feuille qui a le même nom
xlWorkBook.Worksheets.Copy(After:=xlWorkbook_Final.Worksheets(Feuil1))
            xlWorkbook_Final.Save()
            xlWorkbook_Final.Close()
            xlWorkBook.Close()
            xlApp.Quit()

Donc pour résumer on a deux classeurs différents et deux feuilles qui sont respectivement dans chacun et qui ont le même nom.

J'ai essayé plusieurs variantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlWorkbook_Final.Worksheets(Feuil1).Delete, xlApp.DisplayAlerts = False/True

Aucun message d'erreur, mais la copie se fait et la feuille n'est pas supprimée avant. Lorsque j'ouvre le classeur "Final", j'ai la nouvelle feuille "Nom de la feuille (2)" et l'autre qui devait être supprimée "Nom de la feuille".

Idées ou conseils pour dépanner sont les bienvenues.

Merci d'avance.

[chrismonoye]

Bonjour,
je crois qu'il faut désactiver le message de confirmation (de suppression ici) avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        xlApp.Application.DisplayAlerts = False
        xlWorkSheet_Final.Delete() 'Supprime la feuille
        xlApp.DisplayAlerts = True

Ici ce message n'apparait pas car l'application n'est pas visible.

[Wasimolo]

Exactement, ça fonctionne. Merci breaucoup.