bonjour j'aimerais mettre une synthaxe pour controler si
le fichier est bien a sa place avant son ouverture et
ainsi prevenir l'utilisateur si le fichier n'est plus la.
si quelqu'un pourrais m'aider ???
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Nicolas B.
Salut aurelien,
Si tu veux tester l'existence d'un fichier avant de l'ouvrir, tu peux procéder ainsi :
Sub Test() Dim NomFichier As String NomFichier = "D:Mes documentsClasseur.xls"
Set fso = CreateObject("Scripting.FileSystemObject") If fso.fileexists(NomFichier) Then Workbooks.Open (NomFichier) Else MsgBox "Le fichier n'existe pas." End If End Sub
On peut aussi passer par un On Error Goto Machin, mais c'est moins joli ;-)
A+ Nicolas B.
aurelien wrote:
bonjour j'aimerais mettre une synthaxe pour controler si le fichier est bien a sa place avant son ouverture et ainsi prevenir l'utilisateur si le fichier n'est plus la. si quelqu'un pourrais m'aider ???
merci par avance
Salut aurelien,
Si tu veux tester l'existence d'un fichier avant de l'ouvrir, tu peux
procéder ainsi :
Sub Test()
Dim NomFichier As String
NomFichier = "D:Mes documentsClasseur.xls"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.fileexists(NomFichier) Then
Workbooks.Open (NomFichier)
Else
MsgBox "Le fichier n'existe pas."
End If
End Sub
On peut aussi passer par un On Error Goto Machin, mais c'est moins joli ;-)
A+
Nicolas B.
aurelien wrote:
bonjour j'aimerais mettre une synthaxe pour controler si
le fichier est bien a sa place avant son ouverture et
ainsi prevenir l'utilisateur si le fichier n'est plus la.
si quelqu'un pourrais m'aider ???
Si tu veux tester l'existence d'un fichier avant de l'ouvrir, tu peux procéder ainsi :
Sub Test() Dim NomFichier As String NomFichier = "D:Mes documentsClasseur.xls"
Set fso = CreateObject("Scripting.FileSystemObject") If fso.fileexists(NomFichier) Then Workbooks.Open (NomFichier) Else MsgBox "Le fichier n'existe pas." End If End Sub
On peut aussi passer par un On Error Goto Machin, mais c'est moins joli ;-)
A+ Nicolas B.
aurelien wrote:
bonjour j'aimerais mettre une synthaxe pour controler si le fichier est bien a sa place avant son ouverture et ainsi prevenir l'utilisateur si le fichier n'est plus la. si quelqu'un pourrais m'aider ???
merci par avance
Hervé
Salut Aurélien, Une autre solution :
Sub Existe() Dim Fichier As String Fichier = "D:DossierClasseur1.xls" MsgBox IIf(Dir(Fichier) <> "", _ "Existe ;o)", _ "N'existe pas :o((") End Sub
Hervé.
"aurelien" a écrit dans le message news: 13f101c47b9a$68db5080$
bonjour j'aimerais mettre une synthaxe pour controler si le fichier est bien a sa place avant son ouverture et ainsi prevenir l'utilisateur si le fichier n'est plus la. si quelqu'un pourrais m'aider ???
merci par avance
Salut Aurélien,
Une autre solution :
Sub Existe()
Dim Fichier As String
Fichier = "D:DossierClasseur1.xls"
MsgBox IIf(Dir(Fichier) <> "", _
"Existe ;o)", _
"N'existe pas :o((")
End Sub
Hervé.
"aurelien" <anonymous@discussions.microsoft.com> a écrit dans le message
news: 13f101c47b9a$68db5080$a401280a@phx.gbl...
bonjour j'aimerais mettre une synthaxe pour controler si
le fichier est bien a sa place avant son ouverture et
ainsi prevenir l'utilisateur si le fichier n'est plus la.
si quelqu'un pourrais m'aider ???
Sub Existe() Dim Fichier As String Fichier = "D:DossierClasseur1.xls" MsgBox IIf(Dir(Fichier) <> "", _ "Existe ;o)", _ "N'existe pas :o((") End Sub
Hervé.
"aurelien" a écrit dans le message news: 13f101c47b9a$68db5080$
bonjour j'aimerais mettre une synthaxe pour controler si le fichier est bien a sa place avant son ouverture et ainsi prevenir l'utilisateur si le fichier n'est plus la. si quelqu'un pourrais m'aider ???
merci par avance
aurelien
merci beaucoup pour vos reponses a bientot j'espere
bonne fin d'aprem et bon week-end
merci beaucoup pour vos reponses a bientot j'espere
