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

copier des lignes non vides d'un autre fichier et coller

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zizoufan
  • 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
Z

zizoufan

XLDnaute Occasionnel
Bonjour à tous,

j'ai créé un bout de code en VBA me permettant de consolider sur un fichier qui s'appelle "consolidé" l'ensemble des données sur d'autres fichiers. Le seul problème que j'ai est que je n'arrive pas à paramétrer le code de telle façon à prendre toutes les lignes non vides dans les fichiers "assistance" et "test" avant de les coller.

Sub Consolidé()
' Consolidé Macro
Dim lgLigFinH As Long

Workbooks.Open ("C:\Users\PC\Desktop\test\assistance.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Range("A2").Select
ActiveSheet.Paste
Columns("B:B").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("D😀").EntireColumn.AutoFit
Columns("D😀").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("G:G").EntireColumn.AutoFit
Windows("assistance.xlsm").Activate
ActiveWindow.Close
Sheets("Feuil3").Select
' Dernière ligne vide dans la feuille Historique
lgLigFinH = Worksheets("Feuil3").Range("A" & Cells.Rows.Count).End(xlUp).Row + 1
Workbooks.Open ("C:\Users\PC\Desktop\test\test.xlsm")
Sheets("BD").Select
Range("A2:H6").Select
Selection.Copy
Windows("consolidé.xlsm").Activate
Sheets("Feuil3").Select
Worksheets("Feuil3").Range("A" & lgLigFinH).Select
ActiveSheet.Paste


End Sub

Merci de votre aide
---------------------------

Je joins le fichier cible et les fichiers sources
 

Pièces jointes

Trier par date Trier par votes
Re : copier des lignes non vides d'un autre fichier et coller

Salut Zizoufan

Voici un code avec annotations, j'espère qu'il sera asses compréhensible pour toi 😉
VB: 
Sub Consolidé()
' Consolidé Macro
  Dim Dlig As Long
  Dim sPath As String
  Dim Ind As Integer, TabWbk() As String
  Dim Wbk As Workbook
  ' Comme on copie la même feuille de chaque classeur on peut utiliser un tableau de ceux-ci
  ' Initialiser le tableau des classeurs à ouvrir, à séparer par des virgules
  TabWbk = Split("assistance.xlsm,test.xlsm", ",")
  ' Chemin par défaut contenant les fichiers
  sPath = ThisWorkbook.Path & "\"
  ' Pour chaque valeur du tableau
  For Ind = 0 To UBound(TabWbk)
    ' Ouvrir le classeur
    Set Wbk = Workbooks.Open(sPath & TabWbk(Ind))
    ' Avec la feuille BD
    With Wbk.Sheets("BD")
      ' Récupérer le numéro de la dernière ligne remplie
      Dlig = .Range("A" & Rows.Count).End(xlUp).Row
      ' Copier l'ensemble des données
      ' Destination = Prochaine cellule vide de ce classeur
      .Range("A2:H" & Dlig).Copy Destination:=ThisWorkbook.Sheets("Feuil3").Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
    End With
    Wbk.Close Savechanges:=False
  Next Ind
End Sub

A+
 
Vote positif 0 Vote négatif
Re : copier des lignes non vides d'un autre fichier et coller

Bonjour Bruno,

c'est parfait. Et oui j'ai bien compris la logique des choses 🙂
j'ai juste un petit souci c'est que je suis obligé de taper un mot de passe à chaque ouverture de fichier. Puisqu'il s'agit du même mot de passe pour tous les fichiers. Y a t il un moyen des les ouvrir d'un seul coup ??

Merci par avance
 
Vote positif 0 Vote négatif
Re : copier des lignes non vides d'un autre fichier et coller

Re,

Oui c'est dans le propriétés existantes
Code: 
Set Wbk = Workbooks.Open(sPath & TabWbk(Ind), Password:="TonMdp")

A+
 
Vote positif 0 Vote négatif
Re : copier des lignes non vides d'un autre fichier et coller

Bruno,

Merci pour ta réactivité.
Pour ce dernier point je me suis mal exprimé. En fait si tu ouvres le fichier avec le macro de consolidé tu es obligé de taper un identifiant et un mot de passe. Y a t -il une manière de désactiver ces formulaires lors du consolidé ? Merci

Cordialement,
 
Vote positif 0 Vote négatif
Re : copier des lignes non vides d'un autre fichier et coller

Re,

Heuu pas sur celui que tu as mis sur le forum.

Désolé, mais je ne comprends vraiment pas ta demande

A+
 
Vote positif 0 Vote négatif
Re : copier des lignes non vides d'un autre fichier et coller

Bruno,

les fichiers que je veux consolider contiennent tous des restrictions d'accès. Si je suis Manager j'accède à deux feuilles seulement, si je suis admin j'accède à toutes les feuilles. le manager accède à ses feuilles en tapant un identifiant et un mot de passe (géré par VBA)
Quand j'exécute la macro de consolidation, il ouvre effectivement les fichiers mais il me demande un identifiant et un mot de passe.
Cela existe il aussi dans les propriétés aussi comme tu l'as indiqué ci-haut ?
Set Wbk = Workbooks.Open(sPath & TabWbk(Ind), Password:="TonMdp")
Cliquez pour agrandir...
 
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 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
345
sylvanu
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
751
Chaton77
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
720
robpellan52
R
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
809
M@xu3L
M
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
  • Question Question
Microsoft 365 VBA creation d'un export vers un fichier CSV
Réponses
12
Affichages
746
vgendron
H
  • Résolu(e)
XL 2019 récupérer une donnée d'un fichier csv pour le copier vers un autre
2
Réponses
27
Affichages
3 K
Hutchy33
H
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
708
Staple1600
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
1 K
Dranreb
H
  • Question Question
XL 2010 Aide sur un copier coller
Réponses
4
Affichages
490
hutch57
H
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
L
  • Question Question
XL 2016 Macro et suppressions de lignes
Réponses
9
Affichages
962
fanfan38
B
  • Question Question
Microsoft 365 Colorer les Lignes coller
Réponses
4
Affichages
917
bd.afaf
B
F
  • Question Question
Microsoft 365 désactiver les filtres de plusieurs onglets et incrémenter les lignes
2
Réponses
17
Affichages
2 K
TooFatBoy
P
  • Question Question
XL 2016 Découpage Fichier Excel en plusieurs Fichiers selon une clé - VBA
Réponses
1
Affichages
2 K
fanch55
B
  • Résolu(e)
Microsoft 365 Copier coller en VBA des colonnes non adjacentes
Réponses
8
Affichages
1 K
Bizarre
B
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
J
  • Résolu(e)
XL 2019 alléger code VBA (supprimer activate / select / copy / activate / select / paste)
Réponses
4
Affichages
2 K
Eric 888
P
  • Question Question
XL 2016 Macro, Copier coller des cellules fusionnées en fonction d'un texte
Réponses
1
Affichages
863
Deadpool_CC
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…