Re : Compilation de llignes
Bonjour le Forum
Je vois que beaucoup de personnes ont ouvert mon fil, mais n'ont pas d'idée.
Dans un premier temps, est-ce possible?
Sinon je vais expliquer mieux ce que je veux j'ai passé une bonne partie de la nuit à composer des codes sans succès.
A partir du fichier Bob destination V1, je lance la macro qui ferait :
1 - j'efface les lignes présentes dans le tableau à partir de la ligne 12 jusqu'à la première ligne qui serait vide dans la colonne F (dans mon exemple F47), pour le moment je faisais :
Feuil9.Rows("12:40000").ClearContents,
2 - j'ouvre les fichiers que je veux compiler (pour l'exemple Bob source1 et 2), là cela fonctionne voici le code :
Sub MAJ()
Dim classeurSource As Workbook, classeurDestination As Workbook, Fichiers, Filtre$, i%, DerLigne As Long
Feuil9.Rows("12:40000").ClearContents
Set classeurDestination = ThisWorkbook
Fichiers = Application.GetOpenFilename(Filtre, 1, "Sélection des fichiers", , True)
If IsArray(Fichiers) = False Then Exit Sub
For i = LBound(Fichiers) To UBound(Fichiers)
Set classeurSource = Application.Workbooks.Open(Fichiers(i))
3 - je copie les lignes de chaque fichier, de la ligne 12 jusqu'à la première ligne qui serait vide dans la colonne F (dans mes exemple source 1 jusqu'à la ligne 38 et la source 2 ligne 19) le nombre de lignes est aléatoire chaque fois.
Je partais à partir de ce code
DerLigne = classeurSource.Sheets("AIPC détaillée BU").Range("f" & Rows.Count).End(xlUp).Row
classeurSource.Sheets("AIPC détaillée BU").Range("f12:jr" & DerLigne).Copy
4 - je colle mes lignes à la suite en gardant les valeurs, les formules et les MFC et je ferme les sources je suis parti de ce code
classeurDestination.Sheets("AIPC détaillée BU").Range("f" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.DisplayAlerts = False
classeurSource.Close False
Voilà mon besoin
Si ce n'est pas possible ou compliqué, pouvez-vous me le dire, comme cela je construirai autrement mes fichiers.
Merci d'avance
Bobjazz