Variable qui fonctionne pas ???

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
 

PascalXLD

XLDnaute Barbatruc
Modérateur
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 = 'Z:pRODUCTIONPROSTOCKCertificatsarchivage cc'
.Filename = '2072005_' & RORO & '.xls' '<<<ICI

If .Execute() > 0 Then
MsgBox ('Fichier trouvé')
Workbooks.Open Filename:= _
'Z:pRODUCTIONPROSTOCKCertificatsarchivage 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
 
S

Sabine

Guest
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 ?
 
S

Sabine

Guest
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

XLDnaute Barbatruc
Modérateur
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 = 'Z:pRODUCTIONPROSTOCKCertificatsarchivage 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
 

Membres actuellement en ligne

Statistiques des forums

Discussions
312 913
Messages
2 093 535
Membres
105 752
dernier inscrit
fred13340