Bonjour et bonne année à toutes et tous!!!
Je vous expose mon souci j'essaie en vain de récupérer des données de plusieurs fichiers se trouvant dans un même répertoire contenant des sous- dossier avec des classeurs qui n'ont pas le même nombres de colonnes ( seules quelques colonnes m'intéressent).
Donc je voudrais copié_collé ces données dans une feuille qui se nommera synthèse (facture avec tva et une autre sans tva) les unes en dessous des autres.
Et en deuxième partie créer une macro me permettant de faire une consolidation des deux synthèses ( synthèse globale avec seulement les colonnes qui m'intéressent).
Je suis perdue et vraiment besoin de soutient .
Merci à vous par avance,
Option Explicit
'déclarations variables
Dim nomclasseur As String
Dim totligne As Integer
Dim derligne As Integer
'procèdures permettant la cosolidation de plusieurs classeurs
Sub consolider()
Application.ScreenUpdating = False ' cacher a mise à jour d'excel
'Etape 1: parcourir tous les fichiers du dossier
ChDir "C:\Users\Ziani\Desktop\Telem fichiers d 'origine"
'on cherche le premier classeur dans le dossier
nomclasseur = Dir("C:\Users\Ziani\Desktop\Telem fichiers d 'origine\*.xlsx")
'boucle pour chercher tous les classeurs excel
While Len(nomclasseur) > 0
Workbooks.Open nomclasseur 'ouverture du fichier
totligne = ActiveSheet.UsedRange.Rows.Count 'on compte le nombre de ligne
Range("a1:ak" & totligne).Copy 'on copie l'emsemble du tableau
Workbooks("classeur1.xlsm").Activate ' on revient sur le classeur de synthèse
derligne = ActiveSheet.UsedRange.Rows.Count + 1 'on recherche la derniere ligne vide de la feuille
Range("A" & derligne).Select 'on se positionne sur le derniere ligne vide la colonne
ActiveSheet.Paste ' je colle les données
Application.CutCopyMode = False 'nettoyer le presse papier
Workbooks(nomclasseur).Close ' on ferme le classeur
nomclasseur = Dir ' on passe au prochain fichier
'création de la feuille synthèse
Sheets.Add after:=ActiveSheet
= "synthèse des factures"
Wend
Application.ScreenUpdating = True 'relance la mise à jour d'excel
End Sub