XL 2016 Affichage résultat code VBA

[aqcic]

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

 

[Hasco]

Bonjour

Peut-être qu'en remplaçant la boucle For xFile....Next par les lignes ci-dessous.

 'Ne pas oublier de mettre le bon nom de feuille Sheets("????")'
 With Sheets("NomDeLaFeuilleSpécifique")
        For Each xFile In xFolder.Files
            I = I + 1
            'où I représente le numéro de ligne de la feuille
            ' et 1 le numéro de colonne (A vous d'adapter)
            .Hyperlinks.Add .Cells(I, 1), xFile.Path, , , xFile.Name
        Next
End With

Bon après-midi

 

[aqcic]

Merci pour la réponse, mais ça ne marche pas quand le résultat se déploie sur plusieurs lignes ( I ne peut pas être différent de 1 ) .

 

[Hasco]

Re,

( I ne peut pas être différent de 1 ) .

Désolé, mais s'il y a plusieurs fichiers dans xFolders.Files la variable i est forcément incrémentée.
Alors, il serait préférable que vous joingniez un fichier exemple avec la macro et la description précise de ce que vous voulez.

 

[aqcic]

Merci pour votre retour,

Ci-joint le fichier avec une explication du besoin.

 

[Hasco]

Re,

Dans le code du bouton de la feuille 1:

With Sheets("Feuil2")
        For Each xFile In xFolder.Files
            I = I + 1
            .Hyperlinks.Add .Cells(11 + I, 4), xFile.Path, , , xFile.Name
        Next
 
 End With

A bientôt

 

[aqcic]

Excellent, ça marche.

Merci beaucoup.