Variable qui fonctionne pas ???

[Sabine]

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

 

[PascalXLD]

Bonjour

tu as une ligne de trop dans ton code et quelques erreurs

Sub rech_CC()

Dim RORO As string


RORO = 16683 'Cela ne sert à rien de passer par l'intermediaire robert même quand tu auras l'USF

Set fs = Application.FileSearch
With fs
.LookIn = 'ZRODUCTIONPROSTOCKCertificatsarchivage cc'
.Filename = '2072005_' & RORO & '.xls' '<<<ICI

If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
Workbooks.Open Filename:= _
'ZRODUCTIONPROSTOCKCertificatsarchivage cc2072005_' & RORO & '.xls' '<<<ICI
Windows('reecherche fichier.xls').Activate

Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If

End With




End Sub

 

[Sabine]

Merci Pascal et Jmps, ca marche !!!!!

Juste petite question en plus : si je connais pas la première chaine de caractères comme dans l'ex. : 2072005, comment puis-je m'en passer ?

Ex : j'aurais mis
.Filename = '*_' & RORO & '.xls',
mais ca marche pas ! :unsure:

Avez vous une idée ?

 

[PascalXLD]

Re

Pas testé et même pas sûr que ça marche dans ce cas là

.Filename Like '*_' & RORO & '.xls',

 

[Sabine]

Re-pascal,

J'ai trouvé dans l'aide VBA un semblant de ce que tu m'avais dit.
par contre le soucis, il me trouve le classeur souhaité mais je n'arrive pas à l'ouvrir. Aurais tu une idée ?

Private Sub rechr_Click()

Dim RORO As String
Dim MyCheck
MyCheck = '*' Like '[0-10]'

'RORO représente le N° de l'Appel
RORO = CC.Value

'Fonction recherche
Set fs = Application.FileSearch
With fs
.LookIn = 'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc'
' .Filename = '2072005_' & RORO & '.xls'
.Filename = '*_' & RORO & '.xls'


If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
Workbooks.Open Filename:= _
'Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc\\*_' & RORO & '.xls'
''Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc\\2072005_' & RORO & '.xls'
End
Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If
End With

End Sub


C'est ici que ca bug : :angry: ????
Z:\\PRODUCTION\\PROSTOCK\\Certificats\\archivage cc\\*_' & RORO & '.xls'

 

[PascalXLD]

re

essaies comme ceci
Private Sub rechr_Click()

Dim RORO As String, monfichier as string
Dim MyCheck
MyCheck = '*' Like '[0-10]'

'RORO représente le N° de l'Appel
RORO = CC.Value

'Fonction recherche
Set fs = Application.FileSearch
With fs
.LookIn = 'ZRODUCTIONPROSTOCKCertificatsarchivage cc'
' .Filename = '2072005_' & RORO & '.xls'
.Filename = '*_' & RORO & '.xls'
If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
monfichier = fs.FoundFiles(1) '<<<ICI
Workbooks.Open Filename:= _
monfichier '<<<ICI
Windows('reecherche fichier.xls').Activate

Else
MsgBox ('Fichier non trouvé ! Veuillez vérifier la syntaxe !')
End If

End With




End Sub

 

[Sabine]

Supeeeeer !!! :woohoo: :woohoo: :woohoo:

Merci bcp pascal !!!