[VBA-E] passer fichier inexistant

**ferronimus** · 20/04/2007, 10h32

voila j'ai écrit il y a quelque temps pourobtenir un programme permettant de récupérer des valeurs dans d'autres fichiers vous m'avez beaucoup aidé, sa marchait très bien mais en sur les 2000 fichier 200 sont inexistant et ilme demandais à chaque fois de le retrouver, donc j'ai voulu incorporer une fonction pour seulement passer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub Macro1()
 
 
Dim i As Integer
 
 
For i = 3 To 2000
     If ='C:\...\" & Cells(i, 2).Value & "\" & Cells(i, 7).Value & "\" & "[" & Cells(i, 7).Value & ".XLS" & "]Feuil1'!R22C8" = false Then
'rien
     Else
        Cells(i, 17).Select
        ActiveCell.FormulaR1C1 = _
        "='C:\...\" & Cells(i, 2).Value & "\" & Cells(i, 7).Value & "\" & "[" & Cells(i, 7).Value & ".XLS" & "]Feuil1'!R22C8"
     End If
Next i
End Sub

mais je ne connais pas la synthaxe "if lien=false then rien."

**gruget** · 20/04/2007, 11h00

Bonjour
regarde avec la fonction DIR je crois quelle fait ce que tu veux
rémi

**ouskel'n'or** · 20/04/2007, 14h11

Si c'est bien de cette ligne dont tu parles, essaie avec empty

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
If Cells(i, 2).Value = Empty or Cells(i, 7).Value = Empty or Cells(i, 7).Value = empty Then
        'Le fichier n'existe pas
    else
        Cells(i, 17).Select
        ActiveCell.FormulaR1C1 = _
        "='C:\...\" & Cells(i, 2).Value & "\" & Cells(i, 7).Value & "\" & "[" & _
         Cells(i, 7).Value & ".XLS" & "]Feuil1'!R22C8"

**ouskel'n'or** · 20/04/2007, 14h32

Tiens, un code plus intelligent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub OuvrirSiLeFichierExiste()
    Call OuvrirUnClasseur("D:\xls\", "LeFichier.xls")
End Sub

Sub OuvrirUnClasseur(Chemin, NomFich)
Dim fso As New FileSystemObject
Dim Rep As Folder
    Set Rep = fso.GetFolder(Chemin)
        Wk = Chemin & NomFich
        If fso.FileExists(Wk) Then
           Workbooks.Open Filename:=Wk
           DoEvents 'Laisse le temps au système d'ouvrir le fichier avant de passer au suivant
        End If
    Set Rep = Nothing
End Sub