T
Temjeh
Guest
Bonjour a tous
Pourriez-vous m'aider a modifier ma formule
Private Sub CommandButton3_Click()
ChDir "C:\Program Files\Territoire 2004\Territoires"
If FileExists("C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls") = False Then
MsgBox "fichier Inexistant"
Else
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls"
TextBox1 = ""
MsgBox "*Passer maintenant en mode Excel*"
UserForm4.Hide
UserForm3.Hide
End If
End Sub
J'ai je voudrais remplacer le textBox par un inputBox dans ce macro pour ouvrir mes territoires
Merci a tous
A+
Temjeh
Pourriez-vous m'aider a modifier ma formule
Private Sub CommandButton3_Click()
ChDir "C:\Program Files\Territoire 2004\Territoires"
If FileExists("C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls") = False Then
MsgBox "fichier Inexistant"
Else
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls"
TextBox1 = ""
MsgBox "*Passer maintenant en mode Excel*"
UserForm4.Hide
UserForm3.Hide
End If
End Sub
J'ai je voudrais remplacer le textBox par un inputBox dans ce macro pour ouvrir mes territoires
Merci a tous
A+
Temjeh