Bonjour,
J'ai tenté de rentrer un code VBA dans un fichier excel mais il m'affiche un message d'erreur.
Et ceci est le code de la photo:
Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next
xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"
xArr = Split(xStrName, ",")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Est-ce que quelqu'un sait d'où pourrait venir mon problème et me dire s'il y a a d'autre erreur?
Pour information, je voudrais pourvoir mettre dans un classeur hôte toutes les données de plusieurs classeurs sources. Or il peut y avoir une grosse grosse quantité de classeurs sources.
Par exemple, je veux pouvoir retrouver tous les noms et temps de chaque chantiers sur une même feuilles sur mon fichier hôte.
Et voila le fichier de base, je dois pouvoir récupérer et isoler le nom du chantier, le temps qu'il a pris et la quantité de bois utilisé dans le première feuille "info chantier".