J'ai lu cette discussion.
Citation Envoyé par ESVBA Voir le message
Copie dans un nouveau classeur la feuille pour garder la présentation et fait dessus une copie des valeurs pour effacer les formules. De plus, il n'y a plus de macro...

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
Sub Macro1()
    Dim wb    As String
 
    Application.SheetsInNewWorkbook = 1
 
    'Mémorise le classeur avec les macro
    wb = ThisWorkbook.Name
 
    'Création nouveau classeur
    Workbooks.Add
    ActiveWorkbook.SaveAs ("AZERTY.xls") 'sauve pour qu'il existe réellement
 
    'Copie de la feuille dans le classeur "AZERTY.XLS"
    Workbooks(wb).Activate
    ActiveSheet.Copy Before:=Workbooks("AZERTY.xls").Sheets(1)
 
    ' Copie pour effacer les formules
    Windows("AZERTY.xls").Activate
    Cells.Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
    '
    Application.DisplayAlerts = False
 
        'Supprime la feuille de base
        Sheets("Feuil1").Delete
 
        'Ferme le classeur
        ActiveWorkbook.Close SaveChanges:=True
 
    '
    Application.DisplayAlerts = True
End Sub
ESVBA
J'ai un problème lors de l'exécution de la macro:
Tout se passe bien jusqu'à création de la feuille pour la copie des valeurs et à partir de là ça coince. Mais je n'arrive pas à trouver pourquoi...