True False??

[Temjeh]

Salut à tout les excelleur

Encore un prob
J'ai déja poser une question semblable mais je suis pas capable de modifier le code que j'ai ..donc :


Avec ceci j'ouvre certain fichier

ChDir "C:\Program Files\Territoire 2004\Territoires"
Workbooks.Open Filename:= _
"C:\Program Files\Territoire 2004\Territoires\+ListBox1+.xls"

Comment ne pas voir de bug si =faux

Merci à tous

Temjeh
A++

 

[Pascal76]

Salut

Tiens voici un bout de code adapté à ton besoin que j'avais récupéré sur le forum je pense mais je n'ai pas noté qui.


ChDir "C:\Program Files\Territoire 2004\Territoires"

If FileExists("C:\Program Files\Territoire 2004\Territoires\+ListBox1+.xls")=false then
Msgbox "fichier Inexistant"
else
Workbooks.Open Filename:= _
"C:\Program Files\Territoire 2004\Territoires\+ListBox1+.xls"
endif

Module à ajouter

Function FileExists(FileName as string) as Boolean
FilesExists=Dir(FileName)<>""
end Function

Bon courage

Pascal

 

[Temjeh]

Merci Pascal

j'ai inséré dans le module1

Function FileExists(FileName as string) as Boolean
FilesExists=Dir(FileName)<>""
end Function

Puis derrière mon bouton:

ChDir "C:\Program Files\Territoire 2004\Territoires"

If FileExists("C:\Program Files\Territoire 2004\Territoires\+ListBox1+.xls")=false then
Msgbox "fichier Inexistant"
else
Workbooks.Open Filename:= _
"C:\Program Files\Territoire 2004\Territoires\+ListBox1+.xls"
endif

Je recois toujours le message "fichier Inexistant"

Pourtant j'entre un fichier qui existe dans ce répertoire

Merci
J'attend de tes nouvelles

Temjeh

 

[Temjeh]

Erreur

C'est pas un ListBox mais un TextBox

j'ai inséré dans le module1

Function FileExists(FileName as string) as Boolean
FilesExists=Dir(FileName)<>""
end Function

Puis derrière mon bouton:

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"
endif

Je recois toujours le message "fichier Inexistant"

Pourtant j'entre un fichier qui existe dans ce répertoire

Merci
J'attend de tes nouvelles

Temjeh

 

[Pascal76]

Re

J'ai fait une petite erreur en recopiant la fonction

Function FileExists(FileName as string) as Boolean
FilesExists=Dir(FileName)<>"" <--- Un "s" en trop sur cette ligne
end Function

A la place il faut :
Function FileExists(FileName as string) as Boolean
FileExists=Dir(FileName)<>""
end Function

Excuse moi encore

Pascal

 

[Temjeh]

Merci beaucoup ca fonctionne

J,ai juste un peu de problème avec:

+TextBox1+.xls dans ma formule qui porte le nom du dossier a chercher mais je vais surement y arrivé

Merci

A++

 

[Pascal76]

Re

Essaies

MonClasseur=TextBox1.caption

ChDir "C:\Program Files\Territoire 2004\Territoires"

If FileExists("C:\Program Files\Territoire 2004\Territoires\" & MonClasseur & ".xls")=false then
Msgbox "fichier Inexistant"
else
Workbooks.Open Filename:= _
"C:\Program Files\Territoire 2004\Territoires\" & MonClasseur & ".xls"
endif

Pascal

 

[Temjeh]

Erreur

Merci pour ton aide

J'ai une petite erreur:

Il me bug sur le .caption:

MonClasseur=TextBox1.caption

Merci

 

[Temjeh]

??? ca marche

Merci

J'ai essayé ca en changeant mes + pour & de ton code puis chais pas mais ca fonctionne

Private Sub CommandButton1_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"
End If


End Sub

Merci de m'aier dans mon projet

Claude
A++