Bonjour à toutes et à tous,
Dans le code suivant : Consolidation de CA et Marge Journaliers.
Sub CONSOLIDATION()
Application.ScreenUpdating = False
Sheets("Total Magasin").Select
Range("A1:R500").ClearContents
Dim Chemin As String
Dim Fichier As String
Chemin = "C:\Users\Adeli\OneDrive\Bureau\EXCEL Cyril\Test CONSOLIDATION\"
Fichier = Dir(Chemin & "*.xlsm*")
Do While Len(Fichier) > 0
Workbooks.Open Chemin & Fichier
Sheets("Feuil1").Activate
Range("A7:R37").Select
Selection.Copy
Windows("Consolidation L UNION CAHIER 2324.xls").Activate
Sheets("Total Magasin").Select
Dligne = Range("A500").End(xlUp).Row
DDligne = Dligne + 1
Range("A" & DDligne).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(Fichier).Close
Fichier = Dir
Loop
End Sub
Lorsque que je ferme le classeur, j'ai un message pour conserver ou vider les données du presse papier (OUI, NON, ANNULER).
Existe t-il une commande pour supprimer cette question ? Si oui, à quel niveau de la macro je dois l'insérer ?
Je monte progressivement en compétences sur VBA....
Bien Cordialement.