Bonjour,
Je souhaite créer un bouton "Exportation" qui me permettra d’alimenter une base de données et de rajouter les données d'un classeur Excel (fichier source) à la dernière ligne non vide d'un nouveau fichier Excel (Fichier destination), j'aimerai bien que le bouton m'affiche un message comme quoi les données sont déjà exportées si c'est le cas, pour ne pas avoir des doublons.
Mais en premier lieu, je souhaite tout d'abord importer les données. En faisant plusieurs recherches sur le forum, j'ai essayé le code si-dessous mais ça n'a pas marché.
NB : mon fichier source commence à partir de la 2ème ligne , je sais pas si c'est ça le problème et je dois alors rajouter une boucle.
Aidez moi SVPPP
Sub EnvoiDonnees()
'Copie des données
Workbooks("Appli.xls").Sheets("res").Copy
'Ouverture du fichier de destination
Workbooks.Open ThisWorkbook.Path & "\source.xls"
'Collage, dans le fichier de destination, sur la première ligne libre
With Sheets("Feuil1").UsedRange: NoDeLaDernLig = .Cells(.Rows.Count, .Columns.Count).Row: End With
Sheets("Feuil1").Cells(NoDeLaDernLig + 1, 1).Select
ActiveSheet.Paste
'Enregistrement des données copiées et fermeture du fichier de destination
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub