BVA erreur 400 chemin d'acces

[ced91300]

Bonjour à tous,
Dans mon bva j'ai l'erreur 400 et je ne vois pas ou est mon erreur
(macro pour recopier le contenu d'un autre classeur)

Dim chemin As String
Sub recopie()
Dim Mafeuille As String
Application.ScreenUpdating = False
Workbooks.Open chemin = ThisWorkbook.Path & "\TOTO\toto1.xls"
Workbooks(1).Activate
Mafeuille = Range("E8").Value
Workbooks(2).Sheets(Mafeuille).Range("C6:M17").Copy Destination:=Workbooks(1).Sheets("G18").Range("A15")
Workbooks(2).Close SaveChanges = False

merci de votre aide
cordialement

 

[mutzik]

bonjour,

il bloque à quelle ligne ?

 

[Dranreb]

Bonjour.
L'erreur est dans l'expression Boolean chemin = ThisWorkbook.Path & "\TOTO\toto1.xls"
Ça ne constitue pas un paramètre Filename valide.

 

[ced91300]

bonjour,

il bloque à quelle ligne ?

Bonjour, il bloque dès le début

 

[mutzik]

re
Workbooks.Open ThisWorkbook.Path & "\TOTO\toto1.xls"

 

[Dranreb]

Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :

Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub

 

[ced91300]

re
Workbooks.Open ThisWorkbook.Path & "\TOTO\toto1.xls"

Merci de ton aide ca fonctionne bien

Bonjour, il bloque dès le début

 

[ced91300]

Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :

Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub

Bonjour,

j'ai essayé ce code, ne se bloque pas mais aucune action à priori ne se réalise

Cordialement

 

[ced91300]

Vous aurez d'ailleurs la même erreur plus bas, avec Close SaveChanges = False au lieu de Close SaveChanges:=False
Je l'écrirais peut être comme ça :

Sub Recopie()
Dim RngCible As Range, NomFeuiSouce As String
NomFeuiSouce = ActiveSheet.Range("E8").Value
Set RngCible = ActiveWorkbook.Sheets("G18").Range("A15")
Application.ScreenUpdating = False
Workbooks.Open Filename:=ThisWorkbook.Path & "\TOTO\toto1.xls"
ActiveWorkbook.Worksheets(NomFeuiSouce).Range("C6:M17").Copy Destination:=RngCible
ActiveWorkbook.Close SaveChanges:=False
End Sub

Désolé, si cela fonctionne parfaitement mauvaise désignation de ma feuille

Merci à tous pour votre aide

Cordialement