XL 2019 copie de données de feuille à feuille entre deux classeurs

[youpi457032]

Bonjour,
Je cherche à copier depuis un classeur fermé stocké sur mon drive (one drive) des données d'une feuille (nommée Page 1) dans la plage nommée A2:z700, vers un autre classeur ; lui ouvert, et sur la feuille nommée base_MALAFRETAZ, à partir de de la cellule A2
J'ai testé la macro suivante :
/

 :
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

 

[youpi457032]

Bonjour, Merci pour pour les corrections.
De fait cela fonctionne, la copie s'effectue bien.
Par contre ce n'est pas exactement le résultat escompté...
Je vais devoir faire la manipulation (copie de données ) à de nombreuses reprises. Je ne veux pas que la copie vienne copier X fois les mêmes données. Je veux que les données soient copiées et écrasées et non copiées et ajoutées. Je ne veux pas de doublons à chaque fois que la macro s'exécute. je souhaite juste que les données de la feuille destination soient au strict identique de la feuille source, quelque soit le nombre de fois où j'execute la macro. En fait l'idée, c'est de mettre à) jour les nouvelles données...
Comment procéder ? merci

 

[job75]

Alors il ne faut pas utiliser la méthode End(xlUp), cherchez un peu.

Le copier-coller en VBA c'est quand même élémentaire !!!

 

[youpi457032]

Merci, je vais regarder cela.... et chercher un peu....
Je suis un pro du VBa, mais je vais regarder cela....
Du reste, merci beaucoup