zesuila
XLDnaute Occasionnel
Bonjour le forum
AUjourd'hui, le fiston est malade (gastro) donc pas au boulot. Mais cela ne m'empêche pas de travailler sur ce projet tout de même (de toutes façons, j'aaaaadoooorrrrreeee excel et vba)
Voici mon soucis :
j'ai crée ds une feuille une liste de fichier qui sont dans un répertoire précis (on va dire : polo) Cette liste est sous forme de lien.
Tout marche à merveille, mais le soucis c'est que je voudrais quà l'ouverture d'un de ces fichiers dans un nouveau classeur, un userform apparait. Et là je n' y arrive pas.
Je vous mets le code qui me permets de lister les fichiers sous forme de lien, dès fois que cela soit dans ce code qu'il faut ajouter qq chose
Merci et bonne journée
Private Sub CommandButton12_Click()
Dim TheFileSearcher As FileSearch
Dim i%, ThePath$, Z$
Sheets('old').Select
'ici met ton chemin sans à la fin
ThePath = 'C:\\Documents and Settings\\indyana\\Mes documents\\\\travail\\old\\'
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = '*.xls*'
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Z = Dir(.Item(i))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & '' & Z, _
TextToDisplay:=Z
Next i
End With
Else
MsgBox 'Pas de Fichier trouvéé dans ' & ThePath
End If
End With
Set TheFileSearcher = Nothing
End With
End Sub
Message édité par: zesuila, à: 04/10/2005 18:58
AUjourd'hui, le fiston est malade (gastro) donc pas au boulot. Mais cela ne m'empêche pas de travailler sur ce projet tout de même (de toutes façons, j'aaaaadoooorrrrreeee excel et vba)
Voici mon soucis :
j'ai crée ds une feuille une liste de fichier qui sont dans un répertoire précis (on va dire : polo) Cette liste est sous forme de lien.
Tout marche à merveille, mais le soucis c'est que je voudrais quà l'ouverture d'un de ces fichiers dans un nouveau classeur, un userform apparait. Et là je n' y arrive pas.
Je vous mets le code qui me permets de lister les fichiers sous forme de lien, dès fois que cela soit dans ce code qu'il faut ajouter qq chose
Merci et bonne journée
Private Sub CommandButton12_Click()
Dim TheFileSearcher As FileSearch
Dim i%, ThePath$, Z$
Sheets('old').Select
'ici met ton chemin sans à la fin
ThePath = 'C:\\Documents and Settings\\indyana\\Mes documents\\\\travail\\old\\'
On Error Resume Next
Set TheFileSearcher = Application.FileSearch
With TheFileSearcher
.NewSearch
.Filename = '*.xls*'
.LookIn = ThePath
.SearchSubFolders = False
.Execute msoSortByFileName, msoSortOrderAscending
If .Execute > 0 Then
With .FoundFiles
For i = 1 To .Count
Z = Dir(.Item(i))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 1), Address:=ThePath & '' & Z, _
TextToDisplay:=Z
Next i
End With
Else
MsgBox 'Pas de Fichier trouvéé dans ' & ThePath
End If
End With
Set TheFileSearcher = Nothing
End With
End Sub
Message édité par: zesuila, à: 04/10/2005 18:58