:
Private Sub Importerdonnees_Click()
Dim WbkDest As Workbook
Dim WsDest As Worksheet, WsSource As Worksheet
Dim LigDest As Long
Application.ScreenUpdating = False
Set WsSource = Workbooks.Open("C:\Users\youpi\OneDrive\Documents\inscriptionmalafretaz.xlxs")
Set WbkDest = ThisWorkbook.Sheets("base_MALAFRETAZ")
Set WsDest = WbkDest.Sheets(1)
LigDest = WsDest.Range("A2" & Rows.Count).End(xlUp).Row + 1
WsSource.Range("A2:z700").Copy
WsDest.Range("A2" & LigDest).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
WbkDest.Close True
Set WsDest = Nothing
Set WbkDest = Nothing
Set WsSource = Nothing
Application.ScreenUpdating = True
End Sub
\[code]
Le code me renvoie une erreur d'exécution 1004 : il ne trouve pas mon fichier source ( il me dit qu'il a peut être déplacé, supprimé....)
Quelqu'un peut il m'aider à passer cette erreur ?
Merci d'avance