inputBox

[Temjeh]

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

 

[Temjeh]

Dans celui-la aussi si possible

Private Sub CommandButton2_Click()

ChDir "C:\Program Files\Territoire 2004\Territoires"
Workbooks.Open FileName:= _
"C:\Program Files\Territoire 2004\Territoires\Vide.xls"

ActiveWorkbook.SaveAs FileName:= _
"C:\Program Files\Territoire 2004\Territoires\" & TextBox1 & ".xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Save
MsgBox "Votre territoire sera créer dans le répertoire: C:\Program Files\Territoire 2004\Territoires\"
YesNo = MsgBox("Voulez-vous éditer le nouveau ?", vbYesNo + vbQuestion, "Caution")
Select Case YesNo
Case vbYes
TextBox1 = ""
MsgBox "Passer maintenant en mode Excel"
Application.Visible = True
UserForm1.Hide
UserForm3.Hide
Case vbNo
'Insert your code here if No is clicked
TextBox1 = ""
MsgBox "*Créer maintenant un autre*"
ActiveWorkbook.Close
End Select


End Sub


Merci de votre aide

 

[yeahou]

Bonjour

voila pour la première, tu peux appliquer le même principe pour la deuxième mais tu pourrais certainement remplacer avantageusement ces inpubox par un application.getopenfilename et un application.GetSaveAsFilename

Cordialement, A+


Private Sub CommandButton3_Click()
Dim Nom_Fichier
Nom_Fichier = Application.InputBox(prompt:="Entrez le nom de fichier")
ChDir "C:\Program Files\Territoire 2004\Territoires"

If FileExists("C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls") = False Then
MsgBox "fichier Inexistant"
Else
Workbooks.Open Filename:= _
"C:\Program Files\Territoire 2004\Territoires\" & Nom_Fichier & ".xls"
TextBox1 = ""
MsgBox "*Passer maintenant en mode Excel*"
UserForm4.Hide
UserForm3.Hide
End If

End Sub

 

[Temjeh]

Thank

Wow ca c'est génial j'avais essayer par moi même(2hrs au moins) en modifiant des formules que j'avais mais avec toujour des BUG


Merci ca fait plus pro avec une box qui ouvre au lieu d'un TextBox

Infiniment reconnaissant

Claude

A+++