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
Modeste
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL() '-----definir le chemin chemin = ThisWorkbook.Path '-----definir le nom du fichier fichier = "monfichier.pdf" '-----construction de la recherche xx = Dir(chemin & "" & fichier) '--- Dir retourne le nom du fichier si trouvé '--- sinon une chaine vide ( voir l'aide en ligne F1) '-----exploitation de la réponse If xx <> "" Then MsgBox fichier & " existe dans " & chemin Else MsgBox fichier & " Non trouvé dans " & chemin End If
End Sub
-- -- @+ ;o)))
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple
isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL()
'-----definir le chemin
chemin = ThisWorkbook.Path
'-----definir le nom du fichier
fichier = "monfichier.pdf"
'-----construction de la recherche
xx = Dir(chemin & "" & fichier)
'--- Dir retourne le nom du fichier si trouvé
'--- sinon une chaine vide ( voir l'aide en ligne F1)
'-----exploitation de la réponse
If xx <> "" Then
MsgBox fichier & " existe dans " & chemin
Else
MsgBox fichier & " Non trouvé dans " & chemin
End If
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL() '-----definir le chemin chemin = ThisWorkbook.Path '-----definir le nom du fichier fichier = "monfichier.pdf" '-----construction de la recherche xx = Dir(chemin & "" & fichier) '--- Dir retourne le nom du fichier si trouvé '--- sinon une chaine vide ( voir l'aide en ligne F1) '-----exploitation de la réponse If xx <> "" Then MsgBox fichier & " existe dans " & chemin Else MsgBox fichier & " Non trouvé dans " & chemin End If
End Sub
-- -- @+ ;o)))
EmanuelL
Tu es vraiment modeste!
Salut et a+ ;-)
Modeste avait énoncé :
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL() '-----definir le chemin chemin = ThisWorkbook.Path '-----definir le nom du fichier fichier = "monfichier.pdf" '-----construction de la recherche xx = Dir(chemin & "" & fichier) '--- Dir retourne le nom du fichier si trouvé '--- sinon une chaine vide ( voir l'aide en ligne F1) '-----exploitation de la réponse If xx <> "" Then MsgBox fichier & " existe dans " & chemin Else MsgBox fichier & " Non trouvé dans " & chemin End If
End Sub
-- -- @+ ;o)))
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org
Tu es vraiment modeste!
Salut et a+ ;-)
Modeste avait énoncé :
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple
isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL()
'-----definir le chemin
chemin = ThisWorkbook.Path
'-----definir le nom du fichier
fichier = "monfichier.pdf"
'-----construction de la recherche
xx = Dir(chemin & "" & fichier)
'--- Dir retourne le nom du fichier si trouvé
'--- sinon une chaine vide ( voir l'aide en ligne F1)
'-----exploitation de la réponse
If xx <> "" Then
MsgBox fichier & " existe dans " & chemin
Else
MsgBox fichier & " Non trouvé dans " & chemin
End If
End Sub
--
--
@+
;o)))
--
*!* -----------------------------------
EmanuelL
Membre d'AtoutFox
www.atoutfox.org
Bonsour® EmanuelL avec ferveur ;o))) vous nous disiez :
Comment vérifier l'existance d'un fichier dans un dossier, par exemple isExist("C:Mes doscumentsMonFichier.PDF")?
Sub EmmanuelL() '-----definir le chemin chemin = ThisWorkbook.Path '-----definir le nom du fichier fichier = "monfichier.pdf" '-----construction de la recherche xx = Dir(chemin & "" & fichier) '--- Dir retourne le nom du fichier si trouvé '--- sinon une chaine vide ( voir l'aide en ligne F1) '-----exploitation de la réponse If xx <> "" Then MsgBox fichier & " existe dans " & chemin Else MsgBox fichier & " Non trouvé dans " & chemin End If
End Sub
-- -- @+ ;o)))
--
*!* ----------------------------------- EmanuelL Membre d'AtoutFox www.atoutfox.org