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.
A voir également:
- Erreur d'éxecution "9"
- Erreur 0x80070643 - Accueil - Windows
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur 4201 france tv ✓ - Forum Réseaux sociaux
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Erreur upes 1025 - Forum Téléviseurs