Salut et bienvenu
il suffit de remplacer "1" dans ta chaine de texte par le contenu du textbox, en faisant un truc comme ça
Workbooks.Open Filename:="F:\(........\Facture\Sauvegarde\Facture_d_acompte_n°" & textbox1.text & ".xls"
Je n'ai pas le nom du textbox donc g mis au pif, par contre il serait surement utile de contrôler que le contenu correspond bien a une valeur numérique ou encore mieux remplacer ton textbox par une liste déroulante contenant les numéros possibles a utiliser.
Dans un cas comme dans l'autre tu trouveras des info dans la FAQ VBA du site
Un commentaire rapide sur le code, je ne sais pas quel sera sa longueur au final mais il serait a mon avis judicieux de déclarer des variable WorkBook et de leur attribuer les 2 fichier que tu utilises, ça évitera d'avoir a taper des noms de fichiers a rallonge a chaque fois, ce qui te permettra aussi d'abandonner les ".Activate" et compagnie
En gros ca donnerait un truc comme ca
1 2 3 4 5 6 7
| Dim Fichier1 As WorkBook, Fichier2 As WorkBook 'remplaces fichier1 fichier2 par des noms plus explicite afin de les retrouver facilement dans ton code.
Set Fichier1 = Workbooks.Open Filename:="F:\(........\Facture\Sauvegarde\Facture_d_acompte_n°" & textbox1.text & ".xls"
'Par la suite pas besoin d'activer le fichier
Fichier1.Sheets("Feuil1").Range("A1:E6").copy Fichier2.Sheets("Feuil2").Range("A4") |
Je n'ai pas testé le code mais la phylosophie a utiliser dans le code est la
A++
Qwaz
Partager