True False??

P

Pascal76

Guest

• 18 Juin 2004

• #2

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

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 18 Juin 2004

• #3

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

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 18 Juin 2004

• #4

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

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 18 Juin 2004

• #5

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

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 18 Juin 2004

• #6

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++

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 18 Juin 2004

• #7

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

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 18 Juin 2004

• #8

Erreur

Merci pour ton aide

J'ai une petite erreur:

Il me bug sur le .caption:

MonClasseur=TextBox1.caption

Merci

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 18 Juin 2004

• #9

??? 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++

 

Vote positif 0 Vote négatif