fichier existant ou non ?

Dull

XLDnaute Barbatruc

• 10 Mars 2006

• #2

Salut Nevil, Le Forum,

En fichier joint un test

n'hesite pas si problèmes

@+ :woohoo: [file name=Nevil_20060310094441.zip size=10260]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Nevil_20060310094441.zip[/file]

 

Pièces jointes

• Nevil_20060310094441.zip

  10 KB · Affichages: 14

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 10 Mars 2006

• #3

Salut Nevil,

Sub Test()
Dim Chemin, NomFic

Chemin = 'C:\\Documents and Settings\\xxx\\Mes documents\\'
NomFic = 'Classeur.xls'
If Dir(Chemin & NomFic) = '' Then
MsgBox 'Le fichier : ' & NomFic & ' est introuvable !'
Workbooks.Add
ActiveWorkbook.SaveAs ('Plan d'actions ' & a & '')
Else: MsgBox 'Bravo, le fichier ' & NomFic & ' a été trouvé'
End If
End Sub

Cliquez pour agrandir...

Ciao

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 10 Mars 2006

• #4

Salut Dull je t'ai pas vu !!

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 10 Mars 2006

• #5

Blunet, je viens de tester ton code, mais que le fichier existe ou pas, il me dit qu'il est introuvable. Biensur je change le repertoire de destination.

Je m'en vais de ce pas batailler comme un porquichon.

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 10 Mars 2006

• #6

re Nevil, le Forum,

Trop pressé ne tient pas compte de mon fichier
j'ai oublier de déclarer la variable je te re proposerai un autre fichier dans quelques instant excuse moi encore

@+ :woohoo:

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 10 Mars 2006

• #7

bonjour tout le monde .

sinon, il existe la méthode fileexists qui renvoi vrai ou faux.

Dim toto

Set toto = CreateObject('Scripting.FileSystemObject')

If toto.FileExists('c:\\\\\\\\avev\\\\\\\\dull.xls') Then
        MsgBox 'Ce fichier existe.'
Else
        MsgBox 'Ce fichier n'existe pas.'
End If

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

Blunet

XLDnaute Occasionnel

• 10 Mars 2006

• #8

Re salut tout le monde, Nevil je suis étonné car je refait le test il est parfait : et cré le fichier Plan d'action !!! lorsque la fonction Dir n'a pas trouvé le fichier en question.

Vérifions une fois de plus chacun de son côté 😱

 

Vote positif 0 Vote négatif

N

Nevil

XLDnaute Occasionnel

• 10 Mars 2006

• #9

Merci les mecs, j'ai opté pour la solution a Hervé qui marche impec.

Encore merci a tous

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 10 Mars 2006

• #10

Re le fil,

je te renvois le fichier promis avec les modifs

en fin de compte
en cliquant sur le bouton

1/ tu recherche dans 'mes documents' si un fichier nommé A.xls existe
2/ s'il existe alors l'ouvrir
3/sinon le créer

n'hesite pas si problème

@+ :woohoo: [file name=Nevil_20060310102727.zip size=11315]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Nevil_20060310102727.zip[/file]

 

Pièces jointes

• Nevil_20060310102727.zip

  11 KB · Affichages: 18

Vote positif 0 Vote négatif