Ouvrir un fichier Excel (vba)

Marsh Posté le 13-09-2013 à 14:41:56

Bonjour à tous,

Ca fait depuis ce matin que j'essaie de faire cette manipulation toute simple, d'ouvrir un fichier Excel à partir d'un classeur Excel. Je ne comprend pas pourquoi ca ne marche pas.
Je désespère, si quelqun pourrait m'aider svp !
J'ai cherché sur les forums et tester plusieurs solutions mais j'ai toujours la même fenêtre d'erreur qui apparait "Erreur d'éxécution"

Merci d'avance.

Voila mon code :

Code :

Sub Ouvre()
Dim wb As Workbook
Dim ws As Worksheet
Set wb = Workbooks.Open("C:\Users\bws229\Desktop\Test\Classeur1.xls" )
Set ws = wb.Worksheets("Répartition" )
End Sub

Marsh Posté le 13-09-2013 à 14:41:56

Marsh Posté le 13-09-2013 à 15:08:03

Bonjour,
sans connaitre la ligne déclenchant l'erreur ni le message exact, cela revient à ‼

A tester :

Code :

Sub Ouvre()
' Dim wb As Workbook
Dim ws As Worksheet
Workbooks.Open ("C:\Users\bws229\Desktop\Test\Classeur1.xls" )
Set ws = ActiveWorkbook.Worksheets("Répartition" )
Set ws = Nothing
End Sub

Sinon l'Enregistreur de macros est un ami !

Marsh Posté le 13-09-2013 à 15:12:07

Merci pour ton aide.
Je viens juste de comprendre, mon fichier est protégé du coup, c'était impossible.

Sinon le code marche bien.
Problème résolu.

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *