Bonjour,
J'ai récupéré et adapté un code VBA
J'ai ajouté un code Inputbox pour obtenir le nombre de fichier à copier.
Le code ci-dessous me fait collage avec les formules.
je souhaiterais n'avoir qu'un collage en valeur.
J'ai essayé d'ajouter
.Select
Selection.PasteSpecial après Offset(1, 0) sans succès
idem avec .PasteSpecial (xlPasteValues)
Je vous remercie par avance pour votre aide précieuse.
A très bientôt
Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
myNum = Application.InputBox("Enter le nombre de contrôle")
For i = 1 To myNum
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets("Liste générale de contrôle").Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy ThisWorkbook.Sheets("Total").Cells(Rows.Count, 1).End(3).Offset(1, 0)
ActiveWorkbook.Close False
Next
End Sub
J'ai récupéré et adapté un code VBA
J'ai ajouté un code Inputbox pour obtenir le nombre de fichier à copier.
Le code ci-dessous me fait collage avec les formules.
je souhaiterais n'avoir qu'un collage en valeur.
J'ai essayé d'ajouter
.Select
Selection.PasteSpecial après Offset(1, 0) sans succès
idem avec .PasteSpecial (xlPasteValues)
Je vous remercie par avance pour votre aide précieuse.
A très bientôt
Sub copier()
Dim chemin$, i%
chemin = ThisWorkbook.Path & "\"
myNum = Application.InputBox("Enter le nombre de contrôle")
For i = 1 To myNum
Workbooks.Open chemin & "fichier " & i & ".xlsx"
ActiveWorkbook.Sheets("Liste générale de contrôle").Range(Cells(2, 1), Cells.SpecialCells(xlCellTypeLastCell).Address).Copy ThisWorkbook.Sheets("Total").Cells(Rows.Count, 1).End(3).Offset(1, 0)
ActiveWorkbook.Close False
Next
End Sub
Pièces jointes
Dernière édition: