Erreur d'éxecution "9"
creative59
Messages postés
1
Statut
Membre
-
Gyrus Messages postés 3360 Statut Membre -
Gyrus Messages postés 3360 Statut Membre -
'Création d'une macro permettant de justifier des mouvements d'un comptes sur plusieurs années
Sub CreationSynthese()
'Effacement de la feuille
Cells.Delete
'Ecriture de la ligne de Titre
Range("A1") = "N° OC"
Range("B1") = "MVTSEN"
Range("C1") = "MNT FINAL"
'Mise en forme de la ligne de titre
Range("A1:C1").Interior.Color = 962981050
Range("A1:C1").HorizontalAlignment = xlCenter
Range("A1:C1").VerticalAlignment = xlCenter
Range("A1:C1").Font.Bold = True
End Sub
Sub Test()
Workbooks.Open "C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls"
Workbooks("C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls").Close
End Sub
L'erreur d'exécution apparaît dans le test sur la dernière ligne.
Merci pour l'aide que vous pourrez m'apporter.
Sub CreationSynthese()
'Effacement de la feuille
Cells.Delete
'Ecriture de la ligne de Titre
Range("A1") = "N° OC"
Range("B1") = "MVTSEN"
Range("C1") = "MNT FINAL"
'Mise en forme de la ligne de titre
Range("A1:C1").Interior.Color = 962981050
Range("A1:C1").HorizontalAlignment = xlCenter
Range("A1:C1").VerticalAlignment = xlCenter
Range("A1:C1").Font.Bold = True
End Sub
Sub Test()
Workbooks.Open "C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls"
Workbooks("C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls").Close
End Sub
L'erreur d'exécution apparaît dans le test sur la dernière ligne.
Merci pour l'aide que vous pourrez m'apporter.
