Re : Est il possible de fusionner plusieurs documents excel en un seul ?
Salut les Exceliens !
Je viens de tester vos bout de codes dans un seul et même fichier avec un userform.
Ils sont absolument formidable. Comme cela ne vient pas de moi, j'ai ajouter vos pseudo en commentaire dans le code ("Ben voui hein, c'est la moindre des choses.").
Sinon question toute bête :
est-il possible de faire apparaître la boite de dialogue "Enregistrer sous" ?
J'en aurais grand besoin.
Salut PFG60, j'ai le même problème que tu as eu, j'ai donc mis cette macro dans un fichier vierge de mon répertoire dans lequel se trouve mes autres fichiers excels que je souhaite fusionner. Le problème est que j'ai juste une nouvelle feuille qui se créee sans rien dedans. Peux-tu me dire si ton code correspond au mien ou si j'ai fait une erreur quelque part.
Je te remercie d'avance !!
voici le code que j'utilise:
Sub consolide()
ChDir ThisWorkbook.Path
Set classeurMaitre = ThisWorkbook
sup
'Ajoute une feuille à ce classeur
Set feuille = classeurMaitre.Sheets.Add(after:=classeurMaitre.Sheets(classeurMaitre.Sheets.Count))
feuille.Name = "Import"
compteur = 0
'parcourir les classeurs de ce répertoire
nf = Dir("*.xls")
Do While nf <> ""
If nf <> classeurMaitre.Name Then
compteur = compteur + 1
Workbooks.Open Filename:=nf
With ActiveWorkbook.Sheets(1).UsedRange
If compteur = 1 Then
'si compteur = 1 copie avec la ligne d'entête de la plage
.Copy Destination:=feuille.Cells(Rows.Count, 1).End(xlUp)
Else
'sinon copie sans l'entête
With .Offset(1).Resize(.Rows.Count - 1)
.Copy Destination:=feuille.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End With
End If
End With
Workbooks(nf).Close False
End If
nf = Dir
Loop
End Sub
Sub sup()
Application.DisplayAlerts = False
If Sheets.Count > 1 Then
Sheets("Accueil").Move before:=Sheets(1)
Sheets(2).Select
For i = 2 To Sheets.Count
ActiveSheet.Delete
Next i
End If
End Sub