Discussion :

[skystef]

Bonjour,

J'ai une macro qui ouvre une feuille Excel, copie cette feuille et la colle dans un autre fichier Excel. Cette opération fonctionne mais lors de la fermeture des fichiers concerné l'utilisateur à ces messages à l'écran :



et



Comment faire pour ne pas les afficher ou au pire, automatiser la réponse (non dans mon cas). Je vous donne le code de ma fonction qui copie/colle au cas où :

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
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
Public Sub CopierFeuilleExcel(ByVal sMonBookDeCopie As String, ByVal sMonBookDeDestination As String, ByVal sNomFeuilleACopier As String, ByVal sNomFeuilleCopier As String)
If Dir(sMonBookDeCopie) <> "" And Dir(sMonBookDeDestination) <> "" Then
    Dim xlApp As Excel.Application
    Dim xlBookDeCopie As Workbook
    Dim xlBookDeDestination As Workbook
    Dim i As Integer
    Dim j As Integer
    Dim wsExcel As Excel.Worksheet
  If sMonBookDeCopie <> sMonBookDeDestination Then
    Set xlApp = CreateObject("Excel.Application")
    Set xlBookDeCopie = xlApp.Workbooks.Open(sMonBookDeCopie)
    Set xlBookDeDestination = xlApp.Workbooks.Open(sMonBookDeDestination)
 
    For i = 1 To xlBookDeCopie.Sheets.Count
 
        If xlBookDeCopie.Sheets(i).Name = sNomFeuilleACopier Then
 
           xlBookDeCopie.Activate
           xlBookDeCopie.Sheets(sNomFeuilleACopier).Select
           xlBookDeCopie.Sheets(sNomFeuilleACopier).Copy After:=xlBookDeDestination. _
           Sheets(xlBookDeDestination.Sheets.Count)
 
           For j = 1 To xlBookDeDestination.Sheets.Count
 
              If xlBookDeDestination.Sheets(j).Name = sNomFeuilleCopier Then
 
                 MsgBox "La feuille copiée n'a pas pu  être renommée, ce nom existe déjà!", vbCritical
 
           Exit For
 
              ElseIf j = xlBookDeDestination.Sheets.Count Then
 
                 xlBookDeDestination.Sheets(j).Name = sNomFeuilleCopier
                 xlBookDeDestination.Activate
 
                Set wsTemplate = xlBookDeDestination.Worksheets(sNomFeuilleCopier)
               'c'est ici que l'on renseigne la plage de cellule à séléctionné, copier, puis coller dans le nouveau document
                wsTemplate.Range("G1:AW45").Select
                wsTemplate.Range("G1:AW45").Copy
                wsTemplate.Range("G1:AW45").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                 :=False, Transpose:=False
               ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                 ':=False, Transpose:=False
                ' Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                 ':=False, Transpose:=False
 
              End If
 
           Next j
 
        Exit For
 
        ElseIf i = xlBookDeCopie.Sheets.Count Then
 
        MsgBox "La feuille à copier n'existe  pas!", vbCritical
 
        End If
 
    Next i
    Application.ScreenUpdating = False
    xlBookDeCopie.Close savechanges:=False
    'xlBookDeCopie.Close True
   ' Application.ScreenUpdating = False
 
    xlBookDeDestination.Close True
    xlApp.Quit
 
    Set xlBookDeCopie = Nothing
    Set xlBookDeDestination = Nothing
    Set xlApp = Nothing
 
  ElseIf sMonBookDeCopie = sMonBookDeDestination Then
    Set xlApp = CreateObject("Excel.Application")
    Set xlBookDeCopie = xlApp.Workbooks.Open(sMonBookDeCopie)
    For i = 1 To xlBookDeCopie.Sheets.Count
 
        If xlBookDeCopie.Sheets(i).Name = sNomFeuilleACopier Then
 
           xlBookDeCopie.Activate
           xlBookDeCopie.Sheets(sNomFeuilleACopier).Select
           xlBookDeCopie.Sheets(sNomFeuilleACopier).Copy After:=xlBookDeCopie. _
           Sheets(xlBookDeCopie.Sheets.Count)
           For j = 1 To xlBookDeCopie.Sheets.Count
 
              If xlBookDeCopie.Sheets(j).Name = sNomFeuilleCopier Then
 
                 MsgBox "La feuille copiée n'a pas pu  être renommée, ce nom existe déjà!", vbCritical
 
           Exit For
 
              ElseIf j = xlBookDeCopie.Sheets.Count Then
 
                 xlBookDeCopie.Sheets(j).Name = sNomFeuilleCopier
 
              End If
 
           Next j
 
        Exit For
 
        ElseIf i = xlBookDeCopie.Sheets.Count Then
 
        MsgBox "La feuille à copier n'existe  pas!", vbCritical
 
        End If
 
    Next i
 
    xlBookDeCopie.Close True
    xlApp.Quit
 
    Set xlBookDeCopie = Nothing
    Set xlApp = Nothing
  End If
 
Else
    MsgBox "Le fichier n'existe pas, vérifier le chemin !", vbCritical
 
End If
End Sub

Note : cette fonction provient d'Internet (vbsources.com)

Merci d'avance.

[marsupilami34]

Bonjour,

j'ajouterai quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.DisplaysAlerts=False

juste avant de fermer ton classeur.
Et remettre à True juste après

[skystef]

Bonjour,

j'ajouterai quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Application.DisplaysAlerts=False

juste avant de fermer ton classeur.
Et remettre à True juste après

ça ne fonctionne pas . J'ai même essayé de le mettre en début de programme et de le laisser à false. rien à faire...

On ne peut pas faire en sorte de paramétrer certaines réponses?

[illight]

Pour le premier message d'erreur que tu as, tu n'a pas d'autres moyens que le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.displayAlerts = False

et de le remettre a True à la fin de ta macro

Pour les liaisons, c'est quand tu fais le Open de ton classeur, tu as une option :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UpdateLinks:=0

Il faut la mettre à 0 pour ne plus avoir le message

Regarde dans l'aide en ligne de Excel, c'est marqué

[skystef]

Pour le premier message d'erreur que tu as, tu n'a pas d'autres moyens que le

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.displayAlerts = False

et de le remettre a True à la fin de ta macro

Pour les liaisons, c'est quand tu fais le Open de ton classeur, tu as une option :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UpdateLinks:=0

Il faut la mettre à 0 pour ne plus avoir le message

Regarde dans l'aide en ligne de Excel, c'est marqué

Merci pour la deuxième astuce, elle fonctionne.

Mais pour mon vidage du presse papier rien à faire. DisplayAlerts ne fonctionne pas.

J'ai essayé de vider le presse papier en utilisant cette fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub vide_PP()
On Error Resume Next
Application.CommandBars("Clipboard").Controls(4).Execute
End Sub

et aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Application.CutCopyMode=False

Mais rien à faire. Pourtant j'ai mis le code avant chaque fermeture de fichiers .

[illight]

Bah la je suis a court d'idée, car chez moi le displayAlerts marche très bien

[SfJ5Rpw8]

peu être

Comment vider le presse-papier en VBA ?