BVA erreur 400 chemin d'acces

ced91300 · 21 Août 2017

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 · 21 Août 2017

bonjour,

il bloque à quelle ligne ?

Dranreb · 21 Août 2017

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

ced91300 · 21 Août 2017

mutzik à dit:
bonjour,

il bloque à quelle ligne ?

Bonjour, il bloque dès le début

mutzik · 21 Août 2017

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

Dranreb · 21 Août 2017

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 :

VB:

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 · 21 Août 2017

mutzik à dit:
re
Workbooks.Open ThisWorkbook.Path & "\TOTO\toto1.xls"

Merci de ton aide ca fonctionne bien

ced91300 à dit:
Bonjour, il bloque dès le début

ced91300 · 21 Août 2017

Dranreb à dit:
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 :

VB:

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 · 21 Août 2017

Dranreb à dit:
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 :

VB:

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

BVA erreur 400 chemin d'acces

ced91300

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

ced91300

XLDnaute Occasionnel

mutzik

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

ced91300

XLDnaute Occasionnel

ced91300

XLDnaute Occasionnel

ced91300

XLDnaute Occasionnel

Discussions similaires

BVA erreur 400 chemin d'acces

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

XLDnaute Occasionnel

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency