Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Transfert de données vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nimbus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Nimbus

XLDnaute Occasionnel
Bonjour à tous,

Actuellement j'ai créé 2 documents Excel avec chacun des programmes vba.
Le 1er (MC_fonctionne) me permet, par un userform, de récolter des informations.
Le 2nd (MC_JCB_test) doit être capable d'aller chercher les infos rentrées dans le 1er document.

C'est à dire, j'ouvre mon document nommé "MC_JCB_test". Dans l'onglet "Menu" je clique sur le bouton "Extraction hebdomadaire" et à ce moment là, une boîte de dialogue me demande le numéro de semaine souhaité.
Puis, mon programme recherche toutes les infos rentrées dans "MC_fonctionne" correspondant à cette semaine.
Une fois qu'il a trouvé toutes les infos, il me les écrit dans l'onglet "Synthese".

Le problème que je rencontre c'est qu'il n'arrive pas à lire les infos de "MC_fonctionne" et m'affiche un message d'erreur :"Erreur définie par l'application ou par l'objet"

J'ai mis en pj les documents concernés

Merci, par avance, pour votre aide

Nimbus
 

Pièces jointes

Trier par date Trier par votes
Re : Transfert de données vba

Bonjour Nimbus,

Voici ton fichier MC_JCB_test.xlsm modifié.

J'ai supprimé les tableaux et je les ai remplacés par une recherche du n° de semaine dans la colonne B:B de l'autre classeur. Ce second fichier doit être dans le même répertoire et doit être ouvert.

Espérant avoir répondu.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Transfert de données vba

Bonjour Papou-net,

Merci pour ton aide! Le programme fonctionne très bien!
Par contre, j'ai encore une petite question:

Je vais avoir 5 documents similaires à MC_fonctionne et je veux que MC_JCB_test me retrouve toutes les données de ces documents.
Est-ce que je dois recopier ces lignes de code en indiquant, à la place de MC_fonctionne, le nom des autres fichiers? Ou y a t'il une autre méthode?

With Workbooks("MC_fonctionne.xlsm").Sheets("Synthese")
xdlgn = .Range("B" & Rows.Count).End(xlUp).Row
For Each Cel In .Range("B6:B" & xdlgn)
If Cel.Value Like xchoixnosem Then
xdlgn1 = Workbooks("MC_JCB_test.xlsm").Sheets("Synthese").Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 1 To 15
Workbooks("MC_JCB_test.xlsm").Sheets("Synthese").Cells(xdlgn1, i) = .Cells(Cel.Row, i)
Next
End If
Next
End With

Merci pour ton aide
 
Vote positif 0 Vote négatif
Re : Transfert de données vba

Bonjour Nimbus,

Voici la version V1 de ton fichier.

J'ai ajouté une boucle qui analyse tous les fichiers .xls* qui affichés à l'écran. S'ils sont différents du classeur appelant, les données sont ajoutées sur la feuille Synthèse de ce dernier.

Là encore, il faut que les fichiers dont les données sont à extraire soient déjà ouverts.

Bonne journée.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Transfert de données vba

Super merci beaucoup pour aide mais, j'ai autre soucis...
Dans certains documents vos apparaître des num de semaine qui n'apparaîssent pas dans d'autres.
C'est à dire dans mon doc MC_fonctionne il y a les semaines 28, 29, 34, 35 et dans un autre les semaines 23, 30
Ce qui fait que quand je choisi la semaine 30 par exemple , le message "N° de semaines non trouvé!" apparait car il n'y a pas de semaine 30 dans le document MC_fonctionne.

Comment faire pour qu'il m'affiche quand même les données des documents qui comportent la semaine 30?

Merci d'avance pour ton aide!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
499
fanch55
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
724
ali591
A
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
823
GClaire
G
  • Résolu(e)
Microsoft 365 Userform - Transfert de données
Réponses
6
Affichages
583
Simbaa
M
  • Résolu(e)
Microsoft 365 Gestion numéros de pages du classeur dans une cellule
2
Réponses
16
Affichages
2 K
sousou
B
  • Question Question
XL 2016 envoi mails depuis base de données excel
Réponses
2
Affichages
637
boguinette
B
F
  • Question Question
Microsoft 365 Pré-remplissage de champs dans UserForm
Réponses
1
Affichages
687
dysorthographie
M
  • Résolu(e)
XL pour MAC Fonction peut s'adapter au changement de ligne ?
Réponses
4
Affichages
632
MaiBZH
M
W
  • Question Question
Protection des données
Réponses
3
Affichages
566
Deadpool_CC
  • Résolu(e)
Microsoft 365 Masquer des colonnes aux cellules avec valeurs données selon sélection d'une liste déroulante
Réponses
5
Affichages
1 K
PatFr38
G
  • Question Question
XL 2016 mise en forme de données
Réponses
3
Affichages
501
gortex3D
G
A
  • Résolu(e)
Microsoft 365 [VBA] Transfert de données en fonction d'une date
Réponses
5
Affichages
1 K
natorp
Z
  • Question Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
976
kiki29
P
  • Question Question
XL 2016 Mise en place d'une étude hebdomadaire des remarques 5S - Bascule d'information entre 3 fichiers
Réponses
10
Affichages
2 K
gbinforme
G
G
  • Question Question
XL pour MAC VBA export données Excel vers Signets word
Réponses
3
Affichages
1 K
Staple1600
  • Question Question
XL 2016 VBA Compilation de données de chaque feuille vers une ligne précise d'une feuille de compilation
Réponses
0
Affichages
675
My<3
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
2 K
vgendron
B
  • Question Question
XL 2019 Macro - Envoyer des mails depuis un tableau de données
Réponses
3
Affichages
1 K
AtTheOne
P
  • Résolu(e)
XL 2016 Mémorisation d'une identification d'utilisateur d'un User Form sur une feuille Excel.
2
Réponses
20
Affichages
1 K
Pauuul35
P
C
  • Résolu(e)
Microsoft 365 Transposition de données automatiquement selon critères, c'est possible ?
Réponses
14
Affichages
1 K
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…