Discussion :

[Invité]

Bonjour,

Je cherche à copier une feuille "Amortissements" dans mon classeur "2012 TEST" depuis mon classeur "2011 TEST".
Si une feuille du même nom existe déjà dans "2012 TEST", je la supprime avant d'effectuer la copie. La suppression est effectuée avec la méthode "delete" de l'objet sheets.
Le code est assez simple et fonctionne :

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
16
17
18
19
20
    Sub Test()
    Dim BilanN_1 As Workbook, BilanN As Workbook
    Dim AmortissementsN_1 As Worksheet, AmortissementsN As Worksheet
 
    Set BilanN = ThisWorkbook
 
    Application.DisplayAlerts = False
    Set BilanN_1 = Workbooks.Open("2011 TEST.xlsm", , True)
 
    'on supprime l'onglet Amortissements
    Set AmortissementsN = BilanN.Sheets("Amortissements")
    AmortissementsN.Delete
    Application.DisplayAlerts = True
 
    'on récupère les amortissements N-1
    Set AmortissementsN_1 = BilanN_1.Sheets("Amortissements")
    AmortissementsN_1.Copy After:=BilanN.Sheets("Feuil1") 'Workbooks(ThisWorkbook.Name).
 
    BilanN_1.Close (False)
    End Sub

Seulement si je le lance sous Excel 2011 sur Mac et effectue ensuite une sauvegarde, manuellement ou dans la macro, Excel plante.
Alors que si je le lance sous Excel 2007 ou +, tout se passe correctement, même la sauvegarde après coup.

Alors que si je commente dans la macro les 2 lignes suivantes qui effectue le delete, je n'ai plus de problème, la sauvegarde qui suit ne fait plus rien planter.

Code :

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

1
2
'    Set AmortissementsN = BilanN.Sheets("Amortissements")
'    AmortissementsN.Delete

(Ne peut-on pas attacher des fichiers xlsm ??)

Merci pour tout aide que vous pourriez m'apporter parce que là je bloque vraiment !

[Invité]

bonjour,
tu lui dis en lecture seule

Code :

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

1
2
3
'Set BilanN_1 = Workbooks.Open("2011 TEST.xlsm", , True)
lectureSeule=true
Set BilanN_1 = Workbooks.Open("2011 TEST.xlsm", , lectureSeule)

[Invité]

Merci du retour rapide !

Mais cela ne change malheureusement pas le problème...

Par contre, je viens d'avancer un peu.
En fait, je lançais ma macro à partir d'un bouton situé sur ma feuille "Feuil1".
Si je supprime ce bouton de la feuille "Feuil1" et que je lance la macro depuis le menu "développeur/macros", cela ne plante plus.

Un permier soulagement mais j'aimerais bien comprendre s'il s'agit d'un "bug" Excel ou s'il y a quelque chose à corriger pour pouvoir utiliser de nouveau un bouton...

[Invité]

Bon ben solution trouvée sur un autre forum.
Il fallait caser un
AmortissementsN.Activate
avant le
AmortissementsN.Delete
Par contre, je ne comprends pas pourquoi... et suis preneur d'une explication.