Je suis content si tu as pu résoudre ton problème mais j'en étais encore à réfléchir sur le principe que tu avais utilisée pour créer tes boutons afin de leur affecter la macro qui aurait marché pour incrémenter tes fichiers et les copier...
ET JE VENAIS DE TROUVER ! :evil:
Selon ce principe, le code que je t'ai donné aurait fonctionné. Mais bon, puisque tu ne veux pas de ma solution... :cry: tant mieux si tu en as une autre qui te simplifie la vie. :lol:Code:
1
2
3
4
5
6
7
8
9 Set Bouton = ActiveSheet.Buttons.Add(Left:=butLeft, Top:=butTop, Width:=butWidth, Height _ :=butHeight * 2) With Bouton .OnAction = "SaveFiles" 'Join(Split(XlsFiles(i), " "), "") x = Split(XlsFiles(i), ".") .Name = x(0) .Caption = .Name End With
Il n'empêche que j'ai appris plein de choses et que je n'ai pas perdu mon temps.
Quand tu as un autre problème tordu, n'hésite pas... :lol:
A+
NB - Pense à mettre Résolu, le bouton en bas et à gauche :wink: