Importer une plage de données à partir d'un fichier fermé
Résolu/Fermé
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
-
25 sept. 2014 à 14:37
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 1 oct. 2014 à 13:15
julia Namor Messages postés 524 Date d'inscription jeudi 27 mars 2014 Statut Membre Dernière intervention 13 janvier 2024 - 1 oct. 2014 à 13:15
A voir également:
- Importer une plage de données à partir d'un fichier fermé
- Fichier rar - Guide
- Fichier host - Guide
- Fichier iso - Guide
- Comment réduire la taille d'un fichier - Guide
- Comment ouvrir un fichier epub ? - Guide
5 réponses
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
25 sept. 2014 à 15:25
25 sept. 2014 à 15:25
Salam Julia.
En fait, il fallait quelque corrections à ton code au niveau des lignes en gras :
Est-ce que ça marche ?
J'espère que oui !
:)
En fait, il fallait quelque corrections à ton code au niveau des lignes en gras :
Private Sub IMPORTER_Click()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim titre As String
Dim wbk1 As Workbook
Dim wbk2 As Workbook
chemin = ThisWorkbook.Path
titre = chemin & "\bdd.xlsm"
Set wbk1 = ThisWorkbook
Set wbk2 = Workbooks.Open(titre) '(ouvrir le classeur (titre)
wbk1.Sheets("base").Range("données").Value = wbk2.Sheets("base").Range("données").Value
wbk2.Close
End Sub
Est-ce que ça marche ?
J'espère que oui !
:)
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
Modifié par julia Namor le 25/09/2014 à 15:53
Modifié par julia Namor le 25/09/2014 à 15:53
Merci redaiwa
Ça marche très bien.
Est-ce que c'est possible de modifier le code de sorte que les données en doublons (déjà existantes dans wbk1) soient détectées et non importées ?
Gros merci
Ça marche très bien.
Est-ce que c'est possible de modifier le code de sorte que les données en doublons (déjà existantes dans wbk1) soient détectées et non importées ?
Gros merci
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
25 sept. 2014 à 15:56
25 sept. 2014 à 15:56
Le principe c'est qu'à chaque donnée lue sur wkb2, il faut parcourir wkb1 pour voir si elle existe déjà et agir en conséquence. Mais encore faut-il connaître comment sont disposées les données. Si tu peux, poste un fichier exemple.
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
25 sept. 2014 à 16:08
25 sept. 2014 à 16:08
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
25 sept. 2014 à 16:13
25 sept. 2014 à 16:13
j'y cours
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
28 sept. 2014 à 12:58
28 sept. 2014 à 12:58
Salam Julia.
Pour l'histoire des doublons, essaye ceci : https://www.cjoint.com/?DICm5AJcsvD
Bon wekk-end à ton tour :)
Pour l'histoire des doublons, essaye ceci : https://www.cjoint.com/?DICm5AJcsvD
Bon wekk-end à ton tour :)
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
29 sept. 2014 à 01:39
29 sept. 2014 à 01:39
Merci Redaiwa de ton soutien
le lien ne fonctionne pas.
bien Cordialement
le lien ne fonctionne pas.
bien Cordialement
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
Modifié par julia Namor le 25/09/2014 à 17:02
Modifié par julia Namor le 25/09/2014 à 17:02
merci
redaiwa
Messages postés
351
Date d'inscription
mardi 7 octobre 2008
Statut
Membre
Dernière intervention
25 janvier 2024
119
25 sept. 2014 à 16:46
25 sept. 2014 à 16:46
Salam Julia.
Désolé de couper court, mais je dois quitter maintenant, chez nous c'est déjà le week-end !
Bonne chance et A+.
Désolé de couper court, mais je dois quitter maintenant, chez nous c'est déjà le week-end !
Bonne chance et A+.
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
25 sept. 2014 à 17:45
25 sept. 2014 à 17:45
merci bon we
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
julia Namor
Messages postés
524
Date d'inscription
jeudi 27 mars 2014
Statut
Membre
Dernière intervention
13 janvier 2024
33
1 oct. 2014 à 07:08
1 oct. 2014 à 07:08
Bonjour redaiwa
Excuses moi du retour tardif.
Les fichiers correspondent bien à l'importation des données avec contrôle de la présence ou non d'un doublon dans la BDD avant de copier. Ça fonctionne bien.
En revanche, je n'ai que la colonne A d'importée. J'ai essayé d'étendre, en vain, la copie des lignes de A à J en faisant :
fin1 = ThisWorkbook.Sheets("base").Range("A:J" & Rows.Count).End(xlUp).Row
fin2 = Workbooks("bdd.xlsm").Sheets("base").Range("A:J" & Rows.Count).End(xlUp).Row.
Je te joins deux fichiers d'exemples.
Le contrôle des doublons se faisant sur le numéro de Matricule (donnée individuelle).
Merci énormément
https://www.cjoint.com/?3JbhgYiL8I4
https://www.cjoint.com/?3JbhhDYKd1M
Excuses moi du retour tardif.
Les fichiers correspondent bien à l'importation des données avec contrôle de la présence ou non d'un doublon dans la BDD avant de copier. Ça fonctionne bien.
En revanche, je n'ai que la colonne A d'importée. J'ai essayé d'étendre, en vain, la copie des lignes de A à J en faisant :
fin1 = ThisWorkbook.Sheets("base").Range("A:J" & Rows.Count).End(xlUp).Row
fin2 = Workbooks("bdd.xlsm").Sheets("base").Range("A:J" & Rows.Count).End(xlUp).Row.
Je te joins deux fichiers d'exemples.
Le contrôle des doublons se faisant sur le numéro de Matricule (donnée individuelle).
Merci énormément
https://www.cjoint.com/?3JbhgYiL8I4
https://www.cjoint.com/?3JbhhDYKd1M
