Oui tu peux M envoyer tes 2 fichiers mais je ne pourrais essayer que demain je suis sur ma tablette mon PC est éteint
Maintenant il suffit de bien alimenter les noms :
Le classeur ici Workbooks(“JOURNAL (1).xlsm”).
L onglet qui porte les numéros ici Sheets(“Feuil1”)
Avec ce code en colonne G du classeur actif à l ecran tous classeurs ouverts tu recuperes le bon nom de classeur qui contient les numéros :
For i = 1 to workbooks.count
Range (“G”&i) = Workbooks (i).name
Next
Reste le bon nom de l onglet qui possède les numéros
Et de correctement porter ces noms dans la ligne de code :
Range(“A3”) = Workbooks(“JOURNAL (1).xlsm”).Sheets(“Feuil1”).Range(“A65535”).End(xlUp) + 1
Pour un onglet appelé Numéros je corrige ainsi :
Range(“A3”) = Workbooks(“JOURNAL (1).xlsm”).Sheets(“Numéros”).Range(“A65535”).End(xlUp) + 1
A toi de voir si ç est dans tes possibilités sinon donnes moi tes fichiers demain