grisan29
XLDnaute Accro
bonjour a tous
je me bats avec les if then et else et je n'arrive a mettre de l'ordre dans ce code
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
en commentaire je ne peux qu'ouvrir les devis
bon trêve d'explication un fichier les vaut
http://cjoint.com/?CIrvrydnMkZ
Pascal
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
le code tel que ne fait rien ouvrir, si je mets
Code:
If UserForm1.Label2.Caption = "devis" Then
bon trêve d'explication un fichier les vaut
http://cjoint.com/?CIrvrydnMkZ
Pascal