Bonjour,
J'ai un petit problème d'adaptation d'un code simple
Dans mon userform, j'ai une textbox qui stipule "OUVRAGE" ou "ARTICLE" selon la demande, et donc si "OUVRAGE" on vas chercher les infos dans feuille ouvrage et si "article" dans feuille article. Je ne vois pas ce qui ne vas pas !
bonne fête a tous
Géraldine
J'ai un petit problème d'adaptation d'un code simple
Dans mon userform, j'ai une textbox qui stipule "OUVRAGE" ou "ARTICLE" selon la demande, et donc si "OUVRAGE" on vas chercher les infos dans feuille ouvrage et si "article" dans feuille article. Je ne vois pas ce qui ne vas pas !
bonne fête a tous
Géraldine
Code:
Private Sub UserForm_Activate()
Dim Fin As Integer, Chemin As String, [COLOR="red"]Feuil As Range[/COLOR]
Chemin = ThisWorkbook.Path & "\"
NomClasseur = "devis.xls"
[COLOR="red"]Feuil = TextBox2[/COLOR]
If ClasseurOuvert(NomClasseur) = False Then Workbooks.Open (Chemin & NomClasseur)
With Workbooks("devis.xls").[COLOR="Red"]Sheets(Feuil)[/COLOR]