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"
- Une erreur s'est produite instagram ✓ - Forum Instagram
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- Erreur 0x80070643 - Accueil - Windows
- Code erreur f3500-31 ✓ - Forum Bbox Bouygues
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows