condition pour ouvrir un fichier

[debutant]

Allo tout le monde

J'aimerais savoir comment je peux FACILEMENT mettre des conditions pour l'ouvreture d'un fichier

Workbooks.Open Filename:= _
'C:nomdossierBidule.xls'

 

[jduv]

Bonjour,
Peut tu préciser quelles conditions??

 

[debutant]

Allo tout le monde (désolé mon message a été envoyer sans etre terminé)

J'aimerais savoir comment je peux FACILEMENT mettre des conditions pour l'ouvreture d'un fichier, ce que j aimerais avoir c est quelque chose du genre


if nomdossierBidule.xls' = CLOSE then

Workbooks.Open Filename:= _
'C:nomdossierBidule.xls'
end if


mais le CLOSE ne fonctionne pas! qu est ce que je doit écrire à la place du CLOSE?

merci bcp

 

[Luki]

Débutant,

Essaye peut être de voir s'il est ouvert. Si ce n'est pas le cas, xl génère une erreur que tu peux récupérer:

Dim MonClasseur As Workbook

Set moncalsseur = Workbooks('Monfichierbidule.Xls')

If Err.Number <> 0 Then

(Là tu peux ouvrir ton Classeur)

End If


Luki

 

[jduv]

Essai cela

Dim WXL As Workbook
On Error Resume Next
Set WXL = Workbooks('nomdossierBidule.xls')
On Error GoTo 0
If WXL Is Nothing Then Workbooks.Open 'C:nomdossierBidule.xls' Else Set WXL = Nothing