Userform et As Range ...

[Geraldine]

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

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]

 

[Banzai64]

Re : Userform et As Range ...

Bonjour

sans certitude absolue

Essayes

Dim Fin As Integer, Chemin As String, Feuil As [COLOR="Red"]String[/COLOR]

 

[Geraldine]

Re : Userform et As Range ...

bonjour banzai,
j'avais essayé aussi, mais non pas as string,

@

 

[kiki29]

Re : Userform et As Range ...

Jour Bon, je viens de tester avec String, ça marche

 

[Banzai64]

Re : Userform et As Range ...

Bonjour

ce qui me géne un peu c'est ton Private Sub UserForm_Activate()
Je ne sais pas si à ce moment TextBox2 contient quelque chose
Essayes de mettre un point d'arrêt dans ton code et vérifies ta variable Feuil

Pour le moment je ne vois pas grand chose d'autre

 

[Geraldine]

Re : Userform et As Range ...

non pour kiki,

mais banzai tu as peut etre raison je regarde

 

[kiki29]

Re : Userform et As Range ...

Re, en adaptant ton code car trop parcellaire

Dim Fin As Integer, Chemin As String, sNomFeuille As String
Dim NomClasseur As String

    Chemin = ThisWorkbook.Path & "\"
    NomClasseur = "devis.xls"
    
    sNomFeuille = CStr(TextBox1.Text)
    
    Workbooks.Open (Chemin & NomClasseur)

    With Workbooks("devis.xls").Sheets(sNomFeuille)
        Debug.Print "Ok"
    End With

 

[Geraldine]

Re : Userform et As Range ...

et c'est bien ça merci banzai,


je vais corriger tout ça et kiki je vais regarder ce que t'as fait, merci et bonne journée

@