Importer les données d'un fichier vers un nouveau fichier Excel

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

I need help plzzz, aidez moi SVPP!! je suis bloquée et je pourrais pas avancer sur mon projet sans avoir passé cette étape.

Bonjour

Il serait plus facile de t'aider si tu joignais ton fichier.

Bye !

Merci gmb pour ton retour.

En fait j'ai deux fichiers, un fichier source (appli) et un fichier destination, le fichier source contient des données alors que le fichier destination est normalement vierge , il y a juste la 1ère colonne qui est l’entête du fichier. Le fichier sera alimenté par le fichier source et me servira comme base de données.

Je souhaite normalement qu'en cliquant sur le bouton "Exportation de données", j'obtiendrai le résultat que j'ai mis dans le fichier destination.

J'ai joigne un exemple de mes deux fichiers

Je rajoute également que le fichier destination va être alimenté chaque jour est donc je dois rajouter à partir de la dernière ligne non vide.

Je dois également vérifier selon la 1ère colonne "A" si les données existent déja je les rajoute pas sinon je les rajoute.

Merci d'avance GMB.

Au plaisir de te lire bientôt

15appli.xlsx (12.56 Ko)
12destination.xlsx (9.17 Ko)

Bonjour

Un essai à tester. Te convient-il ?

Bye !

32appli.xlsm (21.18 Ko)
24destination.xlsx (10.47 Ko)

Bonjour GMB,

Merci bien pour ton retour. Normalement le code fonctionne et m'importe les données, mais pas correctement. Il me supprime des lignes dont j'ai besoin, et si j'ai une colonne vide il supprime juste les valeurs jusqu’à la colonne vide et puis si il met les autres données après.

En fait pour faire simple je souhaite copier le fichier tel qu'il est, et si il y a des doublons il les supprime. Apparemment je me suis mal exprimée au départ, vu que la condition de suppression c'est selon deux colonnes (1 et 4) mince !!. et donc vu que le fichier destination serait ma base de données je souhaite qu'il soit alimenter après chaque traitement( importation de données).

Merci d'avance pour ton retour, j'ai mis en copie le fichier et le res que j'obtient.

Voila la macro que j'ai mis pour supprimer les doublons et que je souhaite intégrer dans le code d'importation

Sub supp_doubs()

Dim plage As Range

Set plage = Sheets("RESULTAT").Range("$A$1:$O$1000")

plage.RemoveDuplicates Columns:=Array(4, 1), Header:=xlNo

End Sub

14appli-1.xlsm (20.02 Ko)
15destination1.xlsx (10.68 Ko)

Nouvel essai

Bye !

43destination.xlsx (10.25 Ko)
71appli-v2.xlsm (20.84 Ko)

Merci GMB, mais le problème persiste toujours. Dans mon fichier de base c'est toujours le cas : si j'ai une colonne vide il supprime juste les valeurs jusqu’à la colonne vide et puis si il met les autres données après, et ce c'est dans le cas ou je reclique sur le bouton importation de données pour voir si effectivement il me mets pas de doublons .

Rechercher des sujets similaires à "importer donnees fichier nouveau"