Bonjour
J'ai un probleme sur une macro ,cette erreur plante excel
boite de dialogue indique Erreur d'aplication
J'ai fait des tests sur un autre micro et meme probleme
Le code de la macro
Merci d'avance
J'ai un probleme sur une macro ,cette erreur plante excel
boite de dialogue indique Erreur d'aplication
Code:
L'instruction à "0*303c0bc7" emploie l'adresse mémoire "0*000000080".
La memoire ne peut etre "Written".
cliquez sur Ok terminer le programme
J'ai fait des tests sur un autre micro et meme probleme
Le code de la macro
Code:
Application.DisplayAlerts = False
Fichiers = Sheets("Index").Range("A6")
Workbooks.Open Filename:=Fichiers
ActiveWindow.WindowState = xlMinimized
ActiveWindow.WindowState = xlMaximized
Sheets("Model (2)").Select
Sheets("Model (2)").Copy After:=Workbooks("Exportation.xls").Sheets(1)
Numero = Range("B21")
Sheets("Model (2)").Name = Numero
ActiveSheet.Shapes("Button 1").Select
Selection.Delete
ActiveSheet.Shapes("Button 2").Select
Selection.Delete
ActiveSheet.Shapes("Button 3").Select
Selection.Delete
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveWindow.SelectedSheets.Delete
Sheets("Nom").Select
ActiveSheet.AutoFilterMode = False
Range("A2:B65536").Select
Selection.ClearContents
Columns("M:Z").Select
Selection.ClearContents
Range("B2:K5000").Select
Selection.Sort Key1:=Range("D2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("B:K").Select
Selection.AutoFilter
Range("a1").Select
Application.DisplayAlerts = True
End Sub
Merci d'avance