Erreur d'éxecution "9"

creative59 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   -
'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.

1 réponse

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

Essaie avec : 
Sub Test()
    Workbooks.Open "C:\Users\MARIE\Documents\4573311_2012_2014\4573311_2012.xls"
    Workbooks("4573311_2012.xls").Close
End Sub


A+
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses
Code erreur 3000
Laurent -
JM -

5 réponses
Panne T32 sur telecommande Orange
rayseg22G -
Fifi -

6 réponses
impossible lire vidéos france 2
pauline21 -
freezet -

5 réponses