syntaxe pour "un fichier n'existe pas" ?

[MissCroft]

bonjour
je cherche à dire à ma macro que if condition, then if "lien du fichier" est introuvable then en ouvrir un autre spécifié

et je ne sais pas comment "écrire çà en VBA"
merci de votre aide encore une fois

 

[tototiti2008]

Re : syntaxe pour "un fichier n'existe pas" ?

Bonjour MissCroft,

Quan tu dis :

"lien du fichier"

tu sous-entend que tu essaye d'ouvrir un fichier ou que tu utilises un lien hypertexte ?

 

[cbea]

Re : syntaxe pour "un fichier n'existe pas" ?

Bonsoir MissCroft, tototiti2008,

Peut-être une solution :

' Si le fichier est introuvable
If Dir(monFichier, vbDirectory) = "" Then
    MsgBox "Ouvrir un autre fichier"
End If

 

[MissCroft]

Re : syntaxe pour "un fichier n'existe pas" ?

en fait j'ai çà comme ligne :
If Target.Address = "$B$4" And IsNumeric(Target) And Len(Target) = 5 Then Workbooks.Open Filename:="X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"


le souci c'est que le X peut etre aussi P selon le poste d'où on exécute la macro, donc je cherche à faire des conditions pour voir lequel existe et ouvrir celui que excel trouve.

 

[pierrejean]

Re : syntaxe pour "un fichier n'existe pas" ?

bonjour a tous

Tu peux peut-etre t'inspirer de ceci

Sub ouvre()
On Error Resume Next
Workbooks.Open ("C:\testessai.xls")
 If Err.Number = 1004 Then
  Workbooks.Open ("C:\test.xls")
End If
On Error GoTo 0
End Sub

ps: je regarde avec ton code

 

[cbea]

Re : syntaxe pour "un fichier n'existe pas" ?

re,

un essai :

If Target.Address = "$B$4" And IsNumeric(Target) And Len(Target) = 5 Then
    If Dir("X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls", vbDirectory) = "" Then
        If Dir("P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls", vbDirectory) = "" Then
            MsgBox "Ouvrir un autre fichier"
        Else
            Workbooks.Open Filename:="P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
        End If
    Else
        Workbooks.Open Filename:="X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
    End If
End If

PS: Bonjour pierrejean

 

[tototiti2008]

Re : syntaxe pour "un fichier n'existe pas" ?

Bonjour à tous,

une autre proposition :

Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
    If fs.fileexists("X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls") Then
        Workbooks.Open "X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
    Else
        Workbooks.Open "P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
    End If

 

[pierrejean]

Re : syntaxe pour "un fichier n'existe pas" ?

Re

A tester donc:

Sub ouvre()
If Target.Address = "$B$4" And IsNumeric(Target) And Len(Target) = 5 Then
On Error Resume Next
 Workbooks.Open Filename:="X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
  If Err.Number = 1004 Then
     Workbooks.Open Filename:="P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
  End If
On Error GoTo 0
End Sub

Edit : Apres examen des reponses , je preconise celle de cbea 🙂 qui couvre toutes les possibilités et qui ne fait pas appel a la gestion d'erreur (a eviter en regle générérale)

 

[MissCroft]

Re : syntaxe pour "un fichier n'existe pas" ?

re,

un essai :

If Target.Address = "$B$4" And IsNumeric(Target) And Len(Target) = 5 Then
    If Dir("X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls", vbDirectory) = "" Then
        If Dir("P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls", vbDirectory) = "" Then
            MsgBox "Ouvrir un autre fichier"
        Else
            Workbooks.Open Filename:="P:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
        End If
    Else
        Workbooks.Open Filename:="X:\Planning grue\RECAP-LOUEURS-TARIFS3.xls"
    End If
End If

PS: Bonjour pierrejean

merci çà maaaaarche 🙂
une question : où trouver un "dico" de syntaxe vba ? parce que à chaque fois je cale sur la formulation d'une requête...où avez vous appris tout çà ?