ouvrir classeur avec macro

Bonjour à tous,

J'ai envoyé le même message mais je l'ai mal aiguillé mes excuses

je souhaiterai automatiser une tache toute simple mais débutant en vba je bloque dés le départ .
Il s'agit d'ouvrir un classeur par le biais d'une macro ,l'actualiser et copier les cellules comme indiquer dans le code , hélas dés le départ, j'ai une erreur qui dis erreur 424 "objet requis" à la 1ere ligne

Code:

---

1 2 3 4 5 6 7 8

Workbooks.Open stock.jour.xls, "C:\Documents and Settings\PC42\Bureau\suivi stock" ActiveWorkbook.RefreshAll Range("B5:B8").Select Selection.Copy Workbooks.Open Filename:="T:\suivi_stock_2009\Bestand_ 2009.xls" Range("B32").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=TrueSi on peut le simplifier c'est issu de l'enregistreur

---

Merci à vous

Bonjour, la syntaxe pour l'ouverture :

Code:

---

Workbooks.Open Filename:="C:\Documents and Settings\PC42\Bureau\suivi stock\stock.jour.xls"

---

Nb : il peut être intéressant d'instancier à l'ouverture :

Code:

---

1 2 3 4 5 6

Dim wb as workbook Dim Repertoire as string Dim Fichier as string repertoire = "C:\Documents and Settings\PC42\Bureau\suivi stock" Fichier = "stock.jour.xls" Set wb = Workbooks.Open(Repertoire & "\" & Fichier)

---

Pour que la macro s'exécute à l'ouverture du classeur, tu dois l'appeler depuis ThisWorkbook -> Editeur VBA - > Thisworkbook ou tu mets

Code:

---

1 2 3

Private Sub Workbook_Open() LaMacro End Sub

---

Et tu places la macro d'affichage de l'usf dans un module Standard -> Dans l'éditeur VBA -> Insertion -> Module standard où tu mets

Code:

---

1 2 3 4

Sub LaMacro() Load Userform1 Userform1.show End sub

---

Tu adaptes les noms sauf Workbook_Open()
Tu enregistres le fichier, tu le fermes et tu testes à l'ouverture suivante