Aide vba

1ere solution là où tu veux coller mettre :
='Ax1'!B15

mais ce n'est pas du VBA

Yo, dsl de la "non-claretée" de ma formulation. Je recommence
J'ai fais une macro qui me permet de recupérer le listing complet des fichier d'un dossier(titre, date,...). Je voudrais dire à excel qu'il me le mette (par exemple) dans la ma feuille appellé "Axe1" à partir de la cellulle B15.
Est-ce plus claire?
Clément.

2eme solution :

Sub coller()
Worksheets("toto").Range("A1").Value = Worksheets("Ax1").Range("B15").Value


End Sub

Ca c'est du VBA ;)

Bonjour,

Oui, exact c'est du VBA ... qui ne répond pas au problème.

J'ai du mal à repondre à ton prebleme car je ne connais pas le code qui t'as permis de recuperer la liste des fichiers d'un repertoire.

Les donnée sont de tt types et sont stockées sur un disque dur.
voici la macro:

Option Explicit

Sub ListFilesInFolder(strFolderName As String, bIncludeSubfolders As Boolean)


Static FSO As FileSystemObject
Dim oSourceFolder As Scripting.Folder
Dim oSubFolder As Scripting.Folder
Dim oFile As Scripting.File
Static wksDest As Worksheet
Static iRow As Long
Static bNotFirstTime As Boolean

If Not bNotFirstTime Then
Set wksDest = ActiveSheet
Set FSO = CreateObject("Scripting.FileSystemObject")
wksDest.Cells(1, 1) = "Parent folder"
wksDest.Cells(1, 2) = "Full path"
wksDest.Cells(1, 3) = "File name"
wksDest.Cells(1, 4) = "Size"
wksDest.Cells(1, 5) = "Type"
wksDest.Cells(1, 6) = "Date created"
wksDest.Cells(1, 7) = "Date last modified"
wksDest.Cells(1, 8) = "Date last accessed"
wksDest.Cells(1, 9) = "Attributes"
wksDest.Cells(1, 10) = "Short path"
wksDest.Cells(1, 11) = "Short name"

iRow = 2
bNotFirstTime = True
End If
Set oSourceFolder = FSO.GetFolder(strFolderName)
For Each oFile In oSourceFolder.Files
wksDest.Cells(iRow, 2) = oFile.Path
wksDest.Cells(iRow, 3) = oFile.Name
wksDest.Cells(iRow, 5) = oFile.Type
wksDest.Cells(iRow, 6) = oFile.DateCreated
wksDest.Cells(iRow, 9) = oFile.Attributes
wksDest.Cells(iRow, 10) = oFile.ShortPath
wksDest.Cells(iRow, 11) = oFile.ShortName

iRow = iRow + 1
Next oFile

For Each oSubFolder In oSourceFolder.SubFolders
Next oSubFolder

If bIncludeSubfolders Then
For Each oSubFolder In oSourceFolder.SubFolders
ListFilesInFolder oSubFolder.Path, True
Next oSubFolder
End If

End Sub


Sub teste()
ListFilesInFolder ":G:\Clément", True
End Sub

Voila

tu modifies ça : Set wksDest = ActiveSheet en Set wksDest = Worksheets("Ax1")

Ensuite iRow = 2 en iRow = 15

ça devrait le faire

;o)

Merci bien mec, bonne soiré,
Tcho Clément.