Bonjour tout le monde,
J'ai besoin de récupérer des infos de différents fichiers stockés dans le même répertoire. Le problème est que je n'arrive pas à faire ce que je veux avec les fichiers ouverts, j'arrive à copier une cellule et la coller dans un autre classeur mais je n'arrive pas par exemple à inscrire quelque chose dans ce classeur.
Voici le code utilisé (le code pour l'ouverture des classeurs est de L. Longre) :
Dim F
Dim bilan as Workbook
Dim feuille as Worksheet
Set bilan = Workbooks('bilan')
Set feuille = bilan.Worksheets('Feuil1')
With Application.FileSearch
.NewSearch
.LookIn = 'K:\\Repertoire_source\\test'
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
F.Cells(1, 1).Select
Selection.Copy
bilan.Activate
feuille.Activate
feuille.Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next F
End With
Je dois avoir un problème de déclaration de variable.
Merci par avance pour votre aide et bonne journée à tous,
J'ai besoin de récupérer des infos de différents fichiers stockés dans le même répertoire. Le problème est que je n'arrive pas à faire ce que je veux avec les fichiers ouverts, j'arrive à copier une cellule et la coller dans un autre classeur mais je n'arrive pas par exemple à inscrire quelque chose dans ce classeur.
Voici le code utilisé (le code pour l'ouverture des classeurs est de L. Longre) :
Dim F
Dim bilan as Workbook
Dim feuille as Worksheet
Set bilan = Workbooks('bilan')
Set feuille = bilan.Worksheets('Feuil1')
With Application.FileSearch
.NewSearch
.LookIn = 'K:\\Repertoire_source\\test'
.Execute
On Error Resume Next
For Each F In .FoundFiles
Workbooks.Open F
F.Cells(1, 1).Select
Selection.Copy
bilan.Activate
feuille.Activate
feuille.Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next F
End With
Je dois avoir un problème de déclaration de variable.
Merci par avance pour votre aide et bonne journée à tous,