Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Jp Workbooks Open Dossier Nomclasseur 'Ouvrir le premier classeur de notre chemin Lignetotal ActiveSheet UsedRange Rows Count 'Compter le nombre de lignes utilisés Range Cells Cells Lignetotal Copy 'Copier les deux premieres colonnes correspondant aux nom

Workbooks Open Dossier Nomclasseur 'Ouvrir le premier classeur de notre chemin Lignetotal ActiveSheet UsedRange Rows Count 'Compter le nombre de lignes utilisés Range Cells Cells Lignetotal Copy 'Copier les deux premieres colonnes correspondant aux noms et prenoms Workbooks DevoirENSAE Activate 'Activer notre classeur ou on veiur faire la copie Sheets Add After Worksheets Worksheets Count Name Notes 'Creer un feuille notes à la ?n de toutes feuilles présentes Worksheets Notes Activate 'Activer la feuille créée Range A A Select 'Selection la colonne A pour faire le collage Selection PasteSpecial Paste xlPasteValues 'Coller Workbooks Nomclasseur Close 'Fermer alors le premier classeur du chemin While Nomclasseur 'Tant qu'il y a toujours un classeur dans notre chemin Workbooks Open Dossier Nomclasseur 'On ouvre le classuer Range Cells Cells Lignetotal Copy 'On copie la colonne correspondant à la note Workbooks DevoirENSAE Activate 'On active notre classeur ou on veut coller Worksheets Notes Activate 'On vient dans notre feuille note Dernierecolonne ActiveSheet UsedRange Columns Count 'on determine le nombre de colonnes utilisées augmentés de un pour faire le collage Puisqu'on veut coller verticalement Cells Dernierecolonne Select 'Selectionner la première cellule de la ligne contenus dans la zone non utilisés Selection PasteSpecial Paste xlPasteValues 'On colle les notes qu'on avait copiées Workbooks Nomclasseur Close 'on ferme alors le claasseur ouvert dans notre chemin Nomclasseur Dir ' On passe au classeur suivant dans notre chemin jusqu'à ce qu'il n'en reste plus WendSub consolider Dim Dossier As String Dim Nomclasseur As String Dim Derniereligne As Integer Dim Dernierecolonne As Integer Dim Lignetotal As Integer Dossier InputBox Quelle est l'addresse du dossier ChDir Dossier Nomclasseur Dir Dossier xls Workbooks Open Dossier Nomclasseur 'Ouvrir le premier classeur de notre chemin Lignetotal ActiveSheet UsedRange Rows Count 'Compter le nombre de lignes utilisés Range Cells Cells Lignetotal Copy 'Copier les deux premieres colonnes correspondant aux noms et prenoms Workbooks DevoirENSAE Activate 'Activer notre classeur ou on veiur faire la copie Sheets Add After Worksheets Worksheets Count Name Notes 'Creer un feuille notes à la ?n de toutes feuilles présentes Worksheets Notes Activate 'Activer la feuille créée Range A A Select 'Selection la colonne A pour faire le collage Selection PasteSpecial Paste xlPasteValues 'Coller Workbooks Nomclasseur Close 'Fermer alors le premier classeur du chemin CWhile Nomclasseur 'Tant qu'il y a toujours un classeur dans notre chemin Workbooks Open Dossier Nomclasseur 'On ouvre le classuer Range Cells Cells Lignetotal Copy 'On copie la colonne correspondant à la note Workbooks DevoirENSAE Activate 'On active notre classeur ou on veut coller Worksheets Notes Activate 'On vient dans notre feuille note Dernierecolonne ActiveSheet UsedRange Columns Count 'on determine le nombre de colonnes utilisées augmentés de un pour faire le collage Puisqu'on veut coller verticalement Cells Dernierecolonne Select 'Selectionner la première cellule de la ligne contenus dans la zone non utilisés Selection PasteSpecial Paste xlPasteValues 'On colle les notes qu'on avait copiées Workbooks Nomclasseur Close 'on ferme alors le claasseur ouvert dans notre chemin Nomclasseur Dir ' On passe au classeur suivant dans notre chemin jusqu'à ce qu'il