Bon, j'ai remplacé
Application.CommandBars("Clipboard").Controls("&Vider le Presse-Papiers").Execute
par
Application.CutCopyMode = False
et il ne me sort plus Erreur d'exécution 5 : Argument ou appel de procédure incorrect.
Problème du presse papier réglé.
Par contre j'ai toujours droit à Erreur d'exécution 9 : l'indice ne correspond pas à la sélection.
Rappel du code en question :
1 2 3 4 5 6
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CutCopyMode = False
Application.ScreenUpdating = False
Workbooks("fichier données.xlsx").Close SaveChanges:=False
ThisWorkbook.Close SaveChanges:=False
End Sub |
Ce qui est étrange, c'est qu'avec cette macro toute conne sur un bouton, je ferme l'autre fichier sans problème.
1 2 3
| Sub Fermer_sources()
Workbooks("fichier_données.xlsx").Close SaveChanges:=False
End Sub |
Mais si j'appelle cette macro au moment de la fermeture, comme ça :
1 2 3 4 5 6
| Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CutCopyMode = False
Application.ScreenUpdating = False
Fermer_sources
ThisWorkbook.Close SaveChanges:=False
End Sub |
Excel me ressort la blague de l'erreur d'exécution 9, tout en surlignant le Workbooks("fichier_données.xlsx").Close SaveChanges:=False de la macro toute conne qui fonctionne autrement.
Partager