Bonjour,
Je souhaite exécuter le code ci-dessous et afficher son résultat dans une feuille (onglet) spécifique et cellule spécifique et afficher la date d’exécution de ce même code dans une autre feuille spécifique et une cellule spécifique.
Comme il est écrit, le résultat s'affiche sur la feuille active et cellule A1 ce qui ne me convient pas.
J'espère que j'ai été clair et merci d'avance pour votre aide.
Sub Example1()
'Update 20150831
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub
Je souhaite exécuter le code ci-dessous et afficher son résultat dans une feuille (onglet) spécifique et cellule spécifique et afficher la date d’exécution de ce même code dans une autre feuille spécifique et une cellule spécifique.
Comme il est écrit, le résultat s'affiche sur la feuille active et cellule A1 ce qui ne me convient pas.
J'espère que j'ai été clair et merci d'avance pour votre aide.
Sub Example1()
'Update 20150831
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim I As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
I = I + 1
ActiveSheet.Hyperlinks.Add Cells(I, 1), xFile.Path, , , xFile.Name
Next
End Sub