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

conflit d'if then pour ouvrir le meme usf

grisan29

XLDnaute Accro

Herdet

Nous a quitté

grisan29

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency