Macro à l'ouverture du classeur qui bug

[dionys0s]

Salut le forum :

J'ai ce code qui s'exécute à l'ouverture du fichier, et qui plante sur la dernière étape, et je ne comprends pas du tout pourquoi... si vous avez une idée :

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    ChDir "X:\Finance\Bons de Commande\Projet\Support"
    Workbooks.Open Filename:= _
        "X:\Finance\Bons de Commande\Projet\Support\Datas.xls"
    Cells.Select
    Selection.Copy
    Windows("Projet.xls").Activate
    Feuil2.Visible = True
    Feuil2.Select
    Cells.Select
    ActiveSheet.Paste
    Windows("Datas.xls").Activate
    
End Sub

En gros le but est de fermer le classeur Datas.xls

D'avance merci pour votre aide

 

[tbft]

Re : Macro à l'ouverture du classeur qui bug

Bonjours

as tu regardé avec le déboggeur pour voir si Windows("Datas.xls") dans la fenetre espion existé?

 

[dionys0s]

Re : Macro à l'ouverture du classeur qui bug

Euh j'ai pas regardé mais Datas.xls s'ouvre au début de la macro justement...

 

[James007]

Re : Macro à l'ouverture du classeur qui bug

Pour fermer un dossier, tu peux utiliser :

           .Close savechanges:=False

A +

 

[Pierrot93]

Re : Macro à l'ouverture du classeur qui bug

Bonjour à tous,

peut être avec l'utilisation d'une variable :

Dim wb As Workbook
Set wb = Workbooks.Open(Filename:= _
        "X:\Finance\Bons de Commande\Projet\Support\Datas.xls")
'tes instructions
wb.Close 'false ou true pour enregistrement des modifis.

avec ce type de code, partout oùu tu veux effectuer une action sur le classeur en question, tu te sers de la variable wb....

bonne fin d'après midi
@+

 

[dionys0s]

Re : Macro à l'ouverture du classeur qui bug

J'ai bidouillé une autre solution :

Je crée une macro dans un module lambda :

Sub Fermer_Datas()

    Windows("Datas.xls").Activate
    ActiveWindow.Close

End Sub

et dans This Workbook

Private Sub Workbook_Open()

Application.ScreenUpdating = False
Application.ShowWindowsInTaskbar = False
Application.DisplayAlerts = False

    ChDir "X:\Finance\Bons de Commande\Projet\Support"
    Workbooks.Open Filename:= _
        "X:\Finance\Bons de Commande\Projet\Support\Datas.xls"
    Cells.Select
    Selection.Copy
    Windows("Projet.xls").Activate
    Feuil2.Visible = True
    Feuil2.Select
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select
    Feuil2.Visible = False
    Call Fermer_Datas

Application.ScreenUpdating = True
Application.ShowWindowsInTaskbar = True
Application.DisplayAlerts = True

End Sub

Curieusement ça marche... mais en remplaçant mon code de Fermer_Datas à la place de Call Fermer_Datas, ça plante.

Mystère.

 

[tbft]

Re : Macro à l'ouverture du classeur qui bug

Re
as tu essayé sans CALL

 

[James007]

Re : Macro à l'ouverture du classeur qui bug

A priori, pour copier tu peux simplifier ton code et utiliser :

Workbooks("Datas.xls").Sheets("Sheet1").Copy Before:=Workbooks("Projet.xls").Sheets(1)

A +

 

[dionys0s]

Re : Macro à l'ouverture du classeur qui bug

Pierrot j'ai essayé ta solution mais ça refuse encore. Ca plante. Vraiment curieux. Merci tout de même !
Je conserve ma bidouille donc.

 

[dionys0s]

Re : Macro à l'ouverture du classeur qui bug

Re
as tu essayé sans CALL

Me suis mal exprimé.
Ca marche avec le call. C'est un peu artisanal certes, mais ça tourne