Aide sur VBA

[pheonix00fr]

Bonjours à tous,
Je ne suis pas très calé en VBA, mais j'ai quand même trouvé sur la toile quelque chose qui peut me convenir, après une petite adaptation. Je vous explique.
J'ai un dossier qui contient plusieurs fichiers (DDE0001.XLS, DDE0002.XLS......) je voudrais récupérer le nom du fichier et certaine cellules pour les copier dans un fichier "Liste.xls" pour cela j'ai trouvé se code

Sub ramene()
Dim f As String, myf As Worksheet
ChDir "c:\Liste"
Application.ScreenUpdating = False
Set myf = Sheets.Add(before:=Sheets(1))
f = Dir("DDE*.xls")
Do While Len(f) > 0
Workbooks.Open (f)
ActiveWorkbook.Sheets(1).[c22].Copy _
Destination:=myf.[b65536].End(xlUp)(2)
myf.[a65536].End(xlUp)(2) = f
Workbooks(f).Close False
f = Dir
Loop
Application.ScreenUpdating = True
End Sub


Pour l'adapter, je voudrais copier d'autre cellules et les mettre en suivant sur la même ligne (A1:nom du fichier; A2:cellule C22;A3:cellule U36) ensuite à chaque fois que je lance la macro, elle crée une nouvelle feuille, je voudrais juste mettre à jour la feuil1.
Merci

 

[Gorfael]

Re : Aide sur VBA

Salut pheonix00fr et le forum
Set myf = Sheets.Add(before:=Sheets(1))
myf = nouvelle feuille avant la première

Pense à utiliser les balises, elle aident à la lecture des postes

Sub ramene()
Dim f As String, myf As Worksheet, A As Workbook
Set A = ActiveWorkbook
ChDir "c:\Liste"
Application.ScreenUpdating = False
Set myf = A.Sheets(1)
f = Dir("DDE*.xls")
Do While Len(f) > 0
    Workbooks.Open (f)
    A.[A65536].End(xlUp)(2) = f
    ActiveWorkbook.Sheets(1).[C22].Copy _
        myf.Range("B" & [A65536].End(xlUp).row)
    ActiveWorkbook.Sheets(1).[U36].Copy _
        myf.Range("C" & [A65536].End(xlUp).row)
    Workbooks(f).Close False
    f = Dir
Loop
Application.ScreenUpdating = True
End Sub

ATTENTION : je n'ai pas testé, mais ce ne devrait pas poser de problème.
A+

 

[pheonix00fr]

Re : Aide sur VBA

Merci pour ta reponce Gorfeal,
J'ai un erreur "erreur d'execution '438' propriété ou méthode non géré pour cet objet".

 

[Gael]

Re : Aide sur VBA

Bonjour Phenix00fr, bonjour Gorfael, bonjour à tous,

Essaye en mettant:

[COLOR=red]myf[/COLOR].[A65536].End(xlUp)(2) = f

@+

Gael

 

[pheonix00fr]

Re : Aide sur VBA

Ok, j'ai trouvé c'était une erreur sur cette ligne "A.[A65536].End(xlUp)(2) = f"
Je l'ai corrigé c'est parfait.
Merci encore Gorfael