Bonjour,
auriez vous idée réutilisé en réutilisant le même code la possibilité d'avoir une feuille (onglet) nommé par exemple Data et que cela face un copier valeur ?
_______________________________________________________________________
Sub Compilation()
Application.ScreenUpdating = False
Set Compil = ThisWorkbook
Compil.Sheets(1).Range("A3:AA50000").Clear
chemin = Compil.Path & "\"
monFichier = Dir(chemin & "*.xlsx")
Do While monFichier <> ""
If monFichier <> Compil.Name Then
Set f = Workbooks.Open(chemin & monFichier)
derligne = f.Sheets(1).Range("A65000").End(xlUp).Row
'******************************************************************
'Compil.Sheets(1).Range("A65000").End(xlUp).Offset(1, 0).Resize(derligne - 2, 1).Value = monFichier 'Récupération du nom du fichier
'******************************************************************
f.Sheets(1).Range("A3:AA" & derligne).Copy _
Compil.Sheets(1).Range("B65000").End(xlUp).Offset(1, 0).Resize(derligne - 2, 27)
f.Close
End If
monFichier = Dir
Loop
Application.ScreenUpdating = True
End Sub
_______________________________________________________________________
Je n'arrive pas a y inclure le code ci dessous pour avoir un onglet "Data" :
Worksheets("Data").Activate
de même pour la copie en valeur
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Merci