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

youpi457032

XLDnaute Occasionnel
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 :
/
Code:
 :
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

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 789
Membres
101 817
dernier inscrit
carvajal