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

XL 2021 Alléger, simplifier et optimiser un fichier excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion momo27
  • 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
M

momo27

XLDnaute Junior
Bonjour tout le monde,
voici un classeur excel contenant des macros, je vous demande de l'alléger et l'optimiser pour une meilleure efficacité.
 

Pièces jointes

Trier par date Trier par votes
momo27 à dit:
Bonjour ,
Tu as assuré, un immense merci, je suis vraiment reconnaissant !
Cliquez pour agrandir...
Encore merci pour tout ton travail de ces dernières semaines. Il ne reste qu'une dernière étape pour finaliser : compléter le second tableau (à droite) avec les informations suivantes :
1. P. Achat,
2. Date,
3. Fournisseur.
 

Pièces jointes

Vote positif 0 Vote négatif
fanfan38 à dit:
oofatBoy ta modif génère une erreur...
Cliquez pour agrandir...
J'ai cherché et j'ai trouvé l'erreur : la personne qui a créé la macro avait déclaré en String la variable nommée fichier.

Correction (qui devrait fonctionner chez toi aussi, j'espère) :
VB: 
Sub store()
'
Dim fichier, n As Long

    fichier = Application.GetSaveAsFilename(fileFilter:="Fichier excel (*.xlsx), *.xlsx")

    If fichier <> False Then
        If [T_fichier].Item(1, 1) <> "" Then n = [T_fichier].Rows.Count + 1 Else n = 1
        [T_fichier].Item(n, 1) = Range("C3")
        [T_fichier].Item(n, 2) = fichier
        Sheets("Facture").Copy
        ActiveWorkbook.SaveAs Filename:=fichier, FileFormat:=xlOpenXMLWorkbook
        ActiveWorkbook.Close
    End If

End Sub


N'est-ce pas déjà mis en place ?
 

Pièces jointes

Dernière édition:
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

C
  • Question Question
Microsoft 365 optimisation de code
Réponses
6
Affichages
174
Dranreb
D
  • Question Question
Microsoft 365 Aide au publipostage et envoi en nombre de fichiers et/ou mails
Réponses
4
Affichages
320
DARRIEUX
D
N
  • Question Question
XL 2019 Aide pour optimiser mon tableau Excel de suivi d'activité
Réponses
6
Affichages
536
Nicolaasss
N
M
  • Résolu(e)
XL 2019 Situation Budgétaire
Réponses
13
Affichages
338
MORAD AIT
M
M
  • Résolu(e)
Microsoft 365 [RESOLU]UserForm qui revient à la fermeture d'un classeur, du fait le classeur se bloque et il faut fermer manuellement l'UserForm
2
Réponses
17
Affichages
441
Marboi
M
D
  • Résolu(e)
Microsoft 365 Excel 365 et Macros
Réponses
3
Affichages
339
dacunha
D
F
  • Question Question
Microsoft 365 Excel - Report des valeurs et détection de doublons
Réponses
7
Affichages
191
djidji59430
  • Résolu(e)
Microsoft 365 Trier sur colonnes disjointe sur 12 feuilles
Réponses
6
Affichages
213
jcf6464
A
  • Résolu(e)
XL 2019 Optimisation code VBA (Icônes flottantes)
Réponses
14
Affichages
373
Amilo
A
F
  • Question Question
XL 2019 Demande aide formule excel
Réponses
7
Affichages
148
Fidmo
F
P
  • Question Question
Microsoft 365 Sommeprod avec Liste de variables
2
Réponses
15
Affichages
243
patricko-13
P
F
  • Question Question
XL 2019 Demande aide fonction excel
Réponses
5
Affichages
111
vgendron
F
  • Question Question
XL 2019 Demande aide formule recherche
Réponses
10
Affichages
152
TooFatBoy
M
  • Question Question
Microsoft 365 Création d'un tableau de saisie
Réponses
4
Affichages
274
mondancyclo
M
P
  • Résolu(e)
Microsoft 365 Besoin d'aide présentation fichier suivi tâches réalisés / formule
Réponses
8
Affichages
222
prodigy755
P
P
  • Question Question
XL 2019 Créer des formules dans un tableau croisé dynamique
Réponses
10
Affichages
390
merinos-BernardEtang
W
  • Résolu(e)
XL 2016 Changer la taille, la couleur, la graisse d'une partie du contenu de cellule
Réponses
5
Affichages
194
job75
F
  • Question Question
XL 2019 Fonction Excel
Réponses
4
Affichages
116
Fidmo
F
  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
235
ChTi160
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…