Bonjour à tous,
La macro fonctionne très, serait-il possible de l'adapter pour une problématique proche.
Il faudrait que la macro allie chercher les données (même principe) dans un onglet dont le nom n'est jamais le même.
Par contre l'onglet contient toujours "arc" : exemple "12arc_18" ou "arc526".
Merci d'avance
il faudrait adapter le code suivant (en gras : au lieu d'un nom d'onglet "synth" il faudrait rechercher un nom d'onglet contenant arc ("12arc_18") :
Sub importDonnees()
Dim principal As ThisWorkbook
Dim repertoire As String, fichier As String
Application.ScreenUpdating = False
Set principal = ThisWorkbook
repertoire = "C:\donnees"
ChDir repertoire
fichier = Dir("*.xls")
Do While fichier <> ""
If fichier <> principal.Name Then
Workbooks.Open fichier
On Error GoTo suivant
With Sheets("synth")
On Error GoTo 0
On Error Resume Next
.[A:A].SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.[A:A].Insert Shift:=xlToRight
.Range("A1:A" & .[b65536].End(xlUp).Row) = Left(fichier, Len(fichier) - 4)
.UsedRange.EntireRow.Copy Destination:=principal.Sheets(1).[a65536].End(xlUp).Offset(1)
End With
ActiveWorkbook.Close False
End If
suivant:
If Err.Number = 9 Then MsgBox "Pas de feuille ""synth"" dans le fichier " & fichier, vbExclamation: ActiveWorkbook.Close False
fichier = Dir
Loop
End Sub