Bonjour à tous,

Je viens requérir votre aide, je pensais avoir une macro fonctionnelle mais même après avoir cherché et recherché, démonter ma macro point par point, je ne trouve toujours pas le problème.

La macro a pour objectif de vider plusieurs onglets sauf les cellules citées tout en bas du message, avant d'y insérer une base de données.

Le voici:

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
Sub test()
'
' test Macro
'
' Touche de raccourci du clavier: Ctrl+x
'
 
    ' Affiche un message en bas à gauche indiquant le statut de l'opération
    Application.StatusBar = "We are processing file... Please wait"
 
    'Active l'onglet intitulé WAIT dans le fichier Excel où se situe la macro et le rend ainsi actif, donc visible à l'écran
    Sheets("WAIT").Activate
 
    'Désactive le calcul automatique des formules sous Excel
    Application.Calculation = xlCalculationManual
 
    'Désactive l'affichage (L'onglet WAIT sera donc la seule chose visible...)
    Application.ScreenUpdating = False
 
    Workbooks.Open Filename:= _
    "Lien", UpdateLinks:=0
 
    Workbooks("test2.xlsm").Activate
    Sheets("NEW DATABASE").Select
    Range("A2:DB25000").Select
    ''''''''''''''Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test2").Activate
    Sheets("NEW DATABASE").Select
    Range("DC3:DF25000").Select
    '''''''''''''''Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test2.xlsm").Activate
    Sheets("DB REWORK").Select
    Range("A3:DB3").Select
    Range(Selection, Selection.SpecialCells(xlLastCellInColumn)).Select
    Selection.ClearContents
 
    Workbooks("test2.xlsm").Activate
    Sheets("View").Select
    Range("A3:DB3").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.ClearContents
 
    Workbooks("test1.xlsm").Activate
    Sheets("EXTRACTION").Activate
    Range("A1:AR1").Select
    Range(Selection, Selection.SpecialCells(xlLastCell)).Select
    Selection.Copy
 
    Workbooks("test2.xlsm").Activate
    Sheets("NEW DATABASE").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End Sub
Le problème que j'ai est que les formules situées dans le fichier test2 et l'onglet NEW DATABASE, en DC2 et DF2 sont effacées alors que la suite de ma macro suppose de les étendre (Il ne se situe pas sur la fonction pour les étendre mais simplement sur le fait de ne pas effacer ces cellules en DC2 et DF2).

Je me retrouve face à un mur, je ne sais pas quelle fonction efface les cases DC2 à DF2 donc si quelqu'un d'expérience pouvait jeter un oeil et m'apporter ses lumières, je vous en serais extrêmement reconnaissant.

Merci et bonne journée à tous.