fichier existant ou non ?

[Nevil]

Bonjour a toutes et a tous,

Voila mon souci:
Dans ma macro, je crée un fichier XL du nom que je veux suivant la variable 'a' avec ce code:

Workbooks.Add
ActiveWorkbook.SaveAs ('Plan d'actions ' & a & '')

Ce qu'il faudrait c'est que le fichier soit créé lorsqu'il n'existe pas mais qu'il ne soit pas créé s'il est deja existant. Comment tester l'existance d'un fichier ??

Merci

 

[Dull]

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]

 

[Blunet]

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

Ciao

 

[Blunet]

Salut Dull je t'ai pas vu !!

 

[Nevil]

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.

 

[Dull]

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:

 

[Hervé]

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

salut

 

[Blunet]

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é 😱

 

[Nevil]

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

Encore merci a tous

 

[Dull]

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]