Re : Ordre de copie des contenus des cellules de fichiers excel d'un meme dossier
Re,
Résumons,
Tu ne veux pas faire de tri dans les feuilles finales parcequ'il place les ligne vides ensembles. Cela suppose, à toi de le confirmer, que tu veuilles conserver ces lignes vides.
Si c'est ça, donne nous la macro d'importation et on fera le tri avant que les données soient copiées dans la feuille destination.
Ok?
P.S. pour le moment je vais partir donc ......
A+
ah ok ,oui je veux qu'il garde les lignes vides entre les deux lignes rempli extraite ,voilà mon programme d'extraction:
Chemin = Chemin_dossier & "\"
'MsgBox Chemin
Fichier = Dir(Chemin & "*.xls")
Sheets("ing").Visible = False
i = 2 'commencer par l'indice de tableau de la feuille d'information
Do While Fichier <> ""
Set wb = Workbooks.Open(Chemin & Fichier) 'ouverture du fichier excel correspondant à une chambre
a = Sheets(2).Range("F65536").End(xlUp).Row 'parcourire tout la colonne F qui correspond à taille d'info de la chambre
Dim valeurNumchambre As String
Dim valeurTypechambre As String
Dim valeurAdresse As String
Dim valeurPlanche As String
Dim valeurclassement As String
valeurNumchambre = Sheets(1).Range("R2").Value 'extraction des info du fichier ouvert
valeurTypechambre = Sheets(1).Range("AC2").Value
valeurAdresse = Sheets(1).Range("K3").Value
valeurPlanche = Sheets(1).Range("X2").Value
ThisWorkbook.Sheets(1).Range("A" & i).Value = valeurNumchambre
ThisWorkbook.Sheets(1).Range("B" & i).Value = valeurPlanche
ThisWorkbook.Sheets(1).Range("C" & i).Value = valeurTypechambre
ThisWorkbook.Sheets(1).Range("D" & i).Value = valeurAdresse
i = i + a 'donc pour un nouveau ajout des info fichier ,on va commencer par le dernier indice rempli
wb.Close True 'fermeture du fichier
Set wb = Nothing
Fichier = Dir