Discussion :

[arctica]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[aalex_38]

Bonjour, la syntaxe pour l'ouverture :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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