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

Microsoft 365 Importer des données de plusieurs fichiers excel vers un seul

  • Initiateur de la discussion Initiateur de la discussion Pimprenelle9
  • 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 !

P

Pimprenelle9

Guest
Bonjour

Je dois importer des données de plusieur fichiers excel vers un seul qui est le tableau récapitulatif. Une ligne de ce tableau correspond a un fichier créé par un autre utilisateur.
Le fichier NC1 correspondra à la ligne 5, le fichier NC2 à la ligne 6, et ainsi de suite.
voici ce que j'ai fait mais ca ne marche pas...


Sub AjoutNC()

Dim classeurSource As Workbook, classeurDestination As Workbook
Dim Line As Integer
Dim fichier As String

fichier = "C:\Users\MOI\Desktop\NC\NC" & Line-4
fichier = fichier.xlsm
Set classeurSource = Application.Workbooks.Open("fichier", , True) 'ouvrir le classeur source (en lecture seule)

Set classeurDestination = ThisWorkbook 'définir le classeur destination

classeurSource.Sheets("NC").Range("C6").Cells.Copy classeurDestination.Sheets("test").Range("A1")

classeurSource.Close False

End Sub
 
Je vais regarder, je ne connait pas...
voila ce que j'ai fait finalement mais le problème c'est que ca renvoie les formules du fichier NC (style =B5, listes déroulantes vides...)

Sub AjoutNC()

Dim classeurSource As Workbook, classeurDestination As Workbook
Dim number As Variant
Dim Lineliste As Integer
Dim fichier As String
Dim Line As Integer
For Line = 1 To 999
Lineliste = Line + 3
If Range("B" & Lineliste) = "" Then
fichier = "C:\Users\Moi\Desktop\NC\NC" & Line
fichier = fichier & ".xlsm"
Set classeurSource = Application.Workbooks.Open(fichier, , True) 'ouvrir le classeur source (en lecture seule)

Set classeurDestination = ThisWorkbook 'définir le classeur destination

classeurSource.Sheets("NC").Range("C6").Cells.Copy classeurDestination.Sheets("test").Range("E" & Lineliste)

classeurSource.Close False
End If
Next Line

End Sub
 
Dernière modification par un modérateur:
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

L
Réponses
11
Affichages
2 K
L
P
Réponses
3
Affichages
533
Réponses
3
Affichages
854
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…