S
Sabine
Guest
Bonjour,
Voila, je désire rechercher un fichier dans un dossier. Ma variable s'appelle robert et lorsque le code sera bon, on pourra la saisir par une USF.
Qq1 aurait-il une idée pourquoi mon code ne fonctionne pas ?
Apparamment ca bloque sur ma déclaration de variable 'RORO = Robert.Value'. En etant débutante, j'avoue bloquer un petit peu ..
Merci d'essayer. Bonne journée.
Sub rech_CC()
Dim Robert As Variant
Dim RORO As Variant
Robert = 16683
RORO = Robert.Value
Set fs = Application.FileSearch
With fs
.LookIn = 'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc'
.Filename = '2072005_RORO.xls'
If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
Workbooks.Open Filename:= _
'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc\\2072005_RORO.xls'
Windows('reecherche fichier.xls').Activate
Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If
End With
End Sub
Voila, je désire rechercher un fichier dans un dossier. Ma variable s'appelle robert et lorsque le code sera bon, on pourra la saisir par une USF.
Qq1 aurait-il une idée pourquoi mon code ne fonctionne pas ?
Apparamment ca bloque sur ma déclaration de variable 'RORO = Robert.Value'. En etant débutante, j'avoue bloquer un petit peu ..
Merci d'essayer. Bonne journée.
Sub rech_CC()
Dim Robert As Variant
Dim RORO As Variant
Robert = 16683
RORO = Robert.Value
Set fs = Application.FileSearch
With fs
.LookIn = 'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc'
.Filename = '2072005_RORO.xls'
If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
Workbooks.Open Filename:= _
'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc\\2072005_RORO.xls'
Windows('reecherche fichier.xls').Activate
Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If
End With
End Sub