Erreur d'éxecution "9" Fermé

Question

'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.

Gyrus · Answer

Bonjour,

Essaie avec :
Sub Test()    Workbooks.Open "C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls"    Workbooks("4573311_2012.xls").CloseEnd Sub

A+

Erreur d'éxecution "9"

1 réponse

Discussions similaires