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

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
w
wafi
Jeune membre
Jeune membre
Messages : 48
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2010FR

Message par wafi » 21 mai 2019, 10:19

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
w
wafi
Jeune membre
Jeune membre
Messages : 48
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2010FR

Message par wafi » 21 mai 2019, 12:07

I need help plzzz, aidez moi SVPP!! je suis bloquée et je pourrais pas avancer sur mon projet sans avoir passé cette étape.
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'063
Appréciations reçues : 389
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 21 mai 2019, 13:39

Bonjour

Il serait plus facile de t'aider si tu joignais ton fichier.
Bye !
w
wafi
Jeune membre
Jeune membre
Messages : 48
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2010FR

Message par wafi » 21 mai 2019, 14:17

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
destination.xlsx
(9.17 Kio) Téléchargé 8 fois
appli.xlsx
(12.56 Kio) Téléchargé 10 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'063
Appréciations reçues : 389
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 22 mai 2019, 08:42

Bonjour

Un essai à tester. Te convient-il ?
Bye !
destination.xlsx
(10.47 Kio) Téléchargé 21 fois
appli.xlsm
(21.18 Kio) Téléchargé 26 fois
w
wafi
Jeune membre
Jeune membre
Messages : 48
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2010FR

Message par wafi » 22 mai 2019, 09:59

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
destination1.xlsx
(10.68 Kio) Téléchargé 7 fois
appli 1.xlsm
(20.02 Kio) Téléchargé 10 fois
g
gmb
Fanatique d'Excel
Fanatique d'Excel
Messages : 13'063
Appréciations reçues : 389
Inscrit le : 4 avril 2013
Version d'Excel : 2016

Message par gmb » 22 mai 2019, 14:59

Nouvel essai
Bye !
appli v2.xlsm
(20.84 Kio) Téléchargé 52 fois
destination.xlsx
(10.25 Kio) Téléchargé 32 fois
w
wafi
Jeune membre
Jeune membre
Messages : 48
Appréciation reçue : 1
Inscrit le : 24 avril 2019
Version d'Excel : 2010FR

Message par wafi » 22 mai 2019, 15:26

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 .
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message