D debutant Guest 4 Mars 2005 #1 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'
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'
J jduv XLDnaute Nouveau 4 Mars 2005 #2 Bonjour, Peut tu préciser quelles conditions?? Vote positif 0 Vote négatif
D debutant Guest 4 Mars 2005 #3 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 Vote positif 0 Vote négatif
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 XLDnaute Accro 4 Mars 2005 #4 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 Vote positif 0 Vote négatif
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
J jduv XLDnaute Nouveau 4 Mars 2005 #5 Essai cela Code: 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 Vote positif 0 Vote négatif
Essai cela Code: 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