Discussion :

[$p00ky]

Bonjour,

Lors de mon code VBA sous Word, j'ouvre un fichier excel, copie une grande plage de données, la colle sous Word puis ferme le fichier excel.

Alors il me demande si je veux libérer la mémoire :



Cependant, je voudrais que lorsque je le ferme, il libère la mémoire automatiquement (click sur non).

Mon script est le suivant :

Code :

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

1
2
3
4
5
6
7
8
Sub rapport_esd()
Excel.Workbooks.Open FileName:="C:\DATA\TDA\ESD_IHM_2005.xls", ReadOnly:=True
Excel.Worksheets("rapport").Select
Excel.Range("A2:L52").Select
Excel.Selection.Copy
Selection.PasteSpecial DataType:=wdPasteBitmap
Excel.Workbooks("ESD_IHM_2005.xls").Close SaveChanges:=False
End Sub

Merci d'avance pr l'astuce !

[ThierryAIM]

VBA ne connait pas l'objet Clipboard
Il faut déclarer une fonction de l'API

Code :

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

Private Declare Function EmptyClipboard Lib "user32" () As Long

et dans ton code :

Code :

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

1
2
3
Selection.PasteSpecial DataType:=wdPasteBitmap
EmptyClipboard 
Excel.Workbooks("ESD_IHM_2005.xls").Close SaveChanges:=False

[$p00ky]

Merci pour ta réponse, mais ça me demande toujours si je veux libérer la mémoire...

Voilà mon code :

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
Private Declare Function EmptyClipboard Lib "user32" () As Long
 
Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
sem = Semaine.Text
an = Annee.Text
an_court = Right(an, 2)
dossier = Gun.Text
fichier = "ESD_Week_" & sem & "_" & an_court & ".xls"
On Error GoTo bug
Excel.Workbooks.Open FileName:="O:\Atse\T3___com\T3\Measures\Tests-Reports\Tests\Verification_Hebdo\ESD\" & dossier & "\" & an & "\" & fichier, ReadOnly:=True
'Excel.Worksheets("rapport").Select
Excel.Range("A2:L52").Select
Excel.Selection.Copy
Selection.PasteSpecial DataType:=wdPasteBitmap, Placement:=wdInLine
EmptyClipboard
Excel.Workbooks(fichier).Close SaveChanges:=False
GoTo fin
bug:
MsgBox ("Erreur d'ouverture du fichier")
fin:
Application.ScreenUpdating = True
End Sub
 
Private Sub UserForm_Initialize()
 MaDate = Date
 Semaine.Text = Format(MaDate, "ww", vbFriday) - 0
 Annee.Text = Format(MaDate, "yyyy")
End Sub

[jmfmarques]

Ne connais pas VBA, mais (mémoire uniquement de ce que j'(ai vu et lu sur ce forum) quelquechose comme Application.DisplayAlert = False...

[$p00ky]

Merci bien !!

EN fait c'est Application.DisplayAlerts = wdNone
et wdAll pour ré-activer

merzi !

[ouskel'n'or]

Application.DisplayAlerts = wdNone
ou
Application.DisplayAlerts = False
C'est pareil

[jmfmarques]

je vais essayer de mettre ce s en mémoire (faut que je trouve une case libre)

[ouskel'n'or]

C'est bien, jemefe, tu progresses. Grâce à tes efforts tu pourras bientôt aider les autres...
..............................................