Bonjour,
J'essaye de concaténer des feuilles excel dans un répertoire donné en une seul, les feuilles contiennent les même colonnes, j'ai fait une macro pour cela dont le code est le suivant
1 ) J'ai le bon résultat dans le fichier cible, le problème est que j'ai des cellules en couleurs qui apparaissent en fin du fichier créé et je ne vois pas trop d'ou sa viens si quelqu'un à une idée.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68 Sub RegrouperFeuille() Dim rep As String Dim wk As Workbook Dim XlApp As New Excel.Application Dim XlBook As Workbook Dim XlSheet As Worksheet Dim ExisteFichier As Boolean Dim nomFic As String 'Variable pour permettre de gerer les entetes Dim i As Integer i = 1 'On Error GoTo Erreur_Fichier: Set XlBook = XlApp.Workbooks.Add Set XlSheet = XlBook.Worksheets(1) ' test de l'existence du fichier prestataire nomFic = ThisWorkbook.path & "\FichierPrestataire.xls" ExisteFichier = (Dir(nomFic) <> "") If ExisteFichier = True Then Kill nomFic End If XlBook.SaveAs ThisWorkbook.path & "\FichierPrestataire" Dim l As Long 'Initialisations l = 5 rep = ThisWorkbook.path & "\Prestataires\" s = Dir(rep) Do Set wk = CreateObject(rep & s) wk.Activate If i = 1 Then Range("A3").Select Else Range("A7").Select End If Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select Selection.Copy XlBook.Activate If i = 1 Then l = XlSheet.Range("A65356").End(xlUp).Row Else l = XlSheet.Range("A65356").End(xlUp).Row + 1 End If XlSheet.Range("A" & l).Select XlSheet.Paste wk.Activate Application.CutCopyMode = False wk.Close savechanges:=False s = Dir i = i + 1 Loop While s <> "" XlBook.Save XlApp.Quit 'Erreur_Fichier: 'MsgBox "Le Dossier Prestataire ne contient aucun fichier" End Sub
2) Que dois-je faire pour que la largeur des cellules soit modifié automatiquement selon la taille du plus grand chiffre de la colonne dans le nouveau fichier créé?
Partager