Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Existence d'un fichier

Existence d'un fichier

5 réponses
Avatar
D.Lair
Bonjour =E0 toutes et =E0 tous,
Savez-vous s'il y a une instruction VBA permet de v=E9rifier=20
si le nom du fichier sous lequel la macro va sauvegarder=20
existe d=E9j=E0 ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si r=E9ponse par mail, enlever le K de mon adresse)
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Nicolas B.
Salut,

Il y déjà eu un fil à ce sujet ici :
http://groups.google.fr/groups?threadmf101c47b9a%2468db5080%24a401280a%40phx.gbl


A+
Nicolas B.

D.Lair wrote:
Bonjour à toutes et à tous,
Savez-vous s'il y a une instruction VBA permet de vérifier
si le nom du fichier sous lequel la macro va sauvegarder
existe déjà ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si réponse par mail, enlever le K de mon adresse)


Avatar
michdenis
Bonjour D.lair

Sub Existe()

Dim Fso As Object

Set Fso = CreateObject("scripting.Filesystemobject")
If Fso.FileExists("CheminFichier") = True Then
MsgBox "Ce fichier existe déjà."
End If
Set Fso = Nothing

End Sub


Salutations!


"D.Lair" a écrit dans le message de news:767f01c48463$95075150$
Bonjour à toutes et à tous,
Savez-vous s'il y a une instruction VBA permet de vérifier
si le nom du fichier sous lequel la macro va sauvegarder
existe déjà ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si réponse par mail, enlever le K de mon adresse)
Avatar
Jacky
Bonsoir D.Lair

Il y a aussi:
'---
If Dir(cheminnomdu fichier, 16) = "" Then
MsgBox "Fichier inexistant"
else
MsgBox " le fichier existe"
endif
'-----
Salutations
JJ


"D.Lair" a écrit dans le message de
news:767f01c48463$95075150$
Bonjour à toutes et à tous,
Savez-vous s'il y a une instruction VBA permet de vérifier
si le nom du fichier sous lequel la macro va sauvegarder
existe déjà ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si réponse par mail, enlever le K de mon adresse)
Avatar
Michel Gaboly
Bonsoir Jacky,

Personnellement, je préfère nettement cette solution à l'emploi
de CreateObject("scripting.Filesystemobject"), car VBA permet
d'utiliser Dir aussi bien sur Mac que sur PC.

Et autant que possible, je préfère le code compatible avec les 2
plate-formes ;-))


Bonsoir D.Lair

Il y a aussi:
'---
If Dir(cheminnomdu fichier, 16) = "" Then
MsgBox "Fichier inexistant"
else
MsgBox " le fichier existe"
endif
'-----
Salutations
JJ

"D.Lair" a écrit dans le message de
news:767f01c48463$95075150$
Bonjour à toutes et à tous,
Savez-vous s'il y a une instruction VBA permet de vérifier
si le nom du fichier sous lequel la macro va sauvegarder
existe déjà ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si réponse par mail, enlever le K de mon adresse)


--
Cordialement,

Michel Gaboly
http://www.gaboly.com

Avatar
D.Lair
Merci à tous pour les suggestions. J'ai de quoi faire pour
créer ma fonction.
1000 excuses pour ne pas avoir regardé dans l'historique
des fils.
Amicalement.
DL
-----Message d'origine-----
Bonjour à toutes et à tous,
Savez-vous s'il y a une instruction VBA permet de
vérifier

si le nom du fichier sous lequel la macro va sauvegarder
existe déjà ? ... autorisant des tests du style :
if FILEEXISTS("TOTO.XLS") then ...

Merci par avance pour les astuces.
DL
(si réponse par mail, enlever le K de mon adresse)
.