Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro alourdissant le fichier

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion eduraiss
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

eduraiss

XLDnaute Accro
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
 
Trier par date Trier par votes
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 )
Code: 
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.
 
Dernière édition:
Vote positif 0 Vote négatif
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 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
684
job75
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
828
nat54
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
538
cdric78
C
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
343
job75
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
R
  • Question Question
Microsoft 365 Import .txt au format date
Réponses
14
Affichages
586
dysorthographie
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
432
MOLY_
M
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
633
spike29
S
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
530
KTM
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
Z
  • Question Question
XL 2016 Macro pour copier plusieurs cellules vers un fichier :(
Réponses
3
Affichages
533
zendb
Z
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
746
patricktoulon
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…