FileExists

[Jeremyy]

bonjour a tous les forumeurs ,

encore un petit probleme avec mon code je voudrais tester la présence d'un classeur excel :

Dim Ch As String
Dim Ladate As Date, LeMoi As Variant
Dim fso As Variant

'nom fichier a ouvrir
nomsuivi = activeworkbook.path
Ladate = Date
LeMois = MonthName(Month(Ladate))
'vérification si classeur au nom du mois existe
Set objet_fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(nomsuivi & LeMois) = False Then  [COLOR="Red"]==> Il me dit Objet Requis[/COLOR]
Workbooks.Add
End If

Merci a tous d'avance

 

[tototiti2008]

Re : FileExists

Bonjour Jeremyy,

peut-être :

objet_fso.FileExists(nomsuivi & " \" & LeMois & ".xls")

?

 

[Pierrot93]

Re : FileExists

Bonjour jeremy

modifies peut être cette ligne :

Set objet_fso = CreateObject("Scripting.FileSystemObject")

par :

Set [B][COLOR="Red"]fso[/COLOR][/B] = CreateObject("Scripting.FileSystemObject")

bon après midi
@+

Edition : bonjour tototiti

 

[Jeremyy]

Re : FileExists

Merci a vous deux j'ai fais cela :

Set fso = CreateObject("Scripting.FileSystemObject")

il me semblait avoir essayé cela mais bon sa fonctionne maintenant .

Merci beaucoup