conflit d'if then pour ouvrir le meme usf

grisan29 · 17 Septembre 2013

bonjour a tous
je me bats avec les if then et else et je n'arrive a mettre de l'ordre dans ce code

Code:

Private Sub CommandButton1_Click()
   If UserForm1.Label1.Caption = "facture" Then
        Chemin = "C:\facturation\facture\"
        Else
    If UserForm1.Label2.Caption = "devis" Then
        Chemin = "C:\facturation\devis\"
        Workbooks.Open Chemin & "\" & Me.ListView1.SelectedItem.Text
    End If
    End If
        Unload Me
    End Sub

en fait il y a 2 boutons sur la feuille 1 pour devis et 1 pour facture et chacun ouvre le même usf
le code tel que ne fait rien ouvrir, si je mets

Code:

If UserForm1.Label2.Caption = "devis" Then

en commentaire je ne peux qu'ouvrir les devis
bon trêve d'explication un fichier les vaut
http://cjoint.com/?CIrvrydnMkZ

Pascal

Herdet · 17 Septembre 2013

Re : conflit d'if then pour ouvrir le meme usf

Bonsoir,
Proposition :

Code:

Private Sub CommandButton1_Click()
   If UserForm1.Label1.Caption = "facture" Then Chemin = "C:\facturation\facture\"
   If UserForm1.Label2.Caption = "devis" Then Chemin = "C:\facturation\devis\"
   Workbooks.Open Chemin & "\" & Me.ListView1.SelectedItem.Text
   Unload Me
End Sub

ou plus simple s'il n'y a que "facture" ou "devis" utilisés

Code:

Private Sub CommandButton1_Click()
   Chemin = "C:\facturation\" & IIf(UserForm1.Label1.Caption = "facture", "facture", "devis") & "\"
   Workbooks.Open Chemin & "\" & Me.ListView1.SelectedItem.Text
   Unload Me
End Sub

Salutations
Robert

grisan29 · 17 Septembre 2013

Re :RESOLU conflit d'if then pour ouvrir le meme usf

bonsoir Robert

Merci pour ta rapidité a résoudre un problème récalcitrant depuis hier soir et résolu en quelques dizaine de minutes
merci beaucoup Robert

Pascal

conflit d'if then pour ouvrir le meme usf

grisan29

XLDnaute Accro

Herdet

Nous a quitté

grisan29

XLDnaute Accro

Discussions similaires