Macro alourdissant le fichier

[eduraiss]

Bonjour le forum,

Voila j'ai la macro ci dessous qui alourdi le fichier de 1500 Ko a chaque fois

Voici la macro
Si vous pouvez m'aider, car la je ne comprends pas du tout
Merci
Sub essai()

Application.ScreenUpdating = False
x = ActiveWorkbook.Name
y = ActiveSheet.Name
Range("F1:H1").Select
Selection.Copy


ChDir "Y:\GAL 2006.2007\GESTION EQUIPES\BASE EQUIPES"
Workbooks.Open Filename:="Y:\GAL 2006.2007\GESTION EQUIPES\BASE EQUIPES\CONGES.xls"
Sheets("CONGES A PRENDRE").Select


Range("AA1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Application.Run "'CONGES.xls'!dateImpression"

Application.ScreenUpdating = False

Sheets("BASE PERSONNEL").Select
Range("P3😛531").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows(x).Activate
Sheets("Groupes semaines").Select
Range("I2").Select
ActiveSheet.Paste
Sheets(y).Activate
Windows("CONGES.xls").Activate

ActiveWorkbook.Save
ActiveWindow.Close

End Sub

 

[vbacrumble]

Re : Macro alourdissant le fichier

Bonjour, (edition: bonjour skoobi)


Peux-tester cette version allégée et modifiée de ta macro, stp ?
(car je n'ai pas de lecteur Y ni les mêmes répertoires/classeurs que toi )

Sub essai()
Dim Chemin$
Dim tWBK As Workbook, dWBK As Workbook
Dim tPLG As Range, dPLG As Range
Chemin = "Y:\GAL 2006.2007\GESTION EQUIPES\BASE EQUIPES"
Application.ScreenUpdating = False
Set tWBK = ThisWorkbook: Set tPLG = tWBK.ActiveSheet.Range("F1:H1")
ChDir Chemin
Set dWBK = Workbooks.Open(Chemin & "\" & "CONGES.xls")
tPLG.Copy dWBK.Sheets("CONGES A PRENDRE").Range("AA1")
dateImpression
dWBK.Sheets("BASE PERSONNEL").Range("P3:P531").Copy tWBK.Sheets("Groupes semaines").Range("I2")
dWBK.Save
dWBK.Close True
Application.ScreenUpdating = True
End Sub

Si Excel bronche, merci de m'indiquer quel est le message d'erreur.

 

[skoobi]

Re : Macro alourdissant le fichier

Bonjour eduraiss,

Que fait la macro "dateImpression" du fichier "CONGES.xls"?
Car le code que tu nous montres, si je ne me trompes pas, ne fait que remplacer des données dans le fichier que tu sauvegardes.
La prochaine fois, explique de quoi il en retourne, ça on a pas toujours le temps de "décortiquer" une macro...
Bonne soirée.

Edit: bonsoir vbacrumble 🙂