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

[momo27]

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é.

 

[fanfan38]

Bonjour

A+ François

 

[momo27]

Bonjour

A+ François

Bonjour ,
Tu as assuré, un immense merci, je suis vraiment reconnaissant !

 

[momo27]

Bonjour ,
Tu as assuré, un immense merci, je suis vraiment reconnaissant !

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.

 

[fanfan38]

Ci joint ma solution

A+ François

 

[momo27]

GÉNIAL !!!

 

[momo27]

GÉNIAL !!!

Salut,
J’ai constaté qu’une erreur s’affiche lorsque j’ouvre une facture enregistrée au format Excel.

 

[fanfan38]

Bonjour
Modification de l'extension effectuée

A+ François

 

[momo27]

Bonjour
Modification de l'extension effectuée

A+ François

Merci pour la modification.
Dans l'onglet FACTURE, après la restauration, je voudrais que les deux cellules bleues restent intactes, mais que la cellule verte du client soit vidée.

 

[TooFatBoy]

Ne faudrait-il pas, dans la macro "store", remplacer If fichier <> "" Then par If fichier Then ?

 

[momo27]

Bonjour
Modification de l'extension effectuée

A+ François

Merci pour la modification.
Dans l'onglet FACTURE, après la restauration, je voudrais que les deux cellules bleues restent intactes, mais que la cellule verte du client soit vidée.

 

[fanfan38]

ToofatBoy ta modif génère une erreur...

A+ François

 

[TooFatBoy]

ToofatBoy ta modif génère une erreur...

Arf, zut, je ne l'ai pas décelée. Ça doit dépendre de la version d'Excel utilisée. 😕

Chez moi, sans ladite modif, ça crée un fichier nommé faux.xls (ou .xlsx, je ne sais plus).

 

[momo27]

ToofatBoy ta modif génère une erreur...

A+ François

Merci, François

 

[momo27]

Merci, François

Bonjour, François.
Dans l’onglet "FACTURE", je souhaite mettre en place une automatisation permettant d’ajouter de nouveaux articles.
Une macro VBA insérera automatiquement, sous le dernier article, une ligne déjà formatée avec les formules prêtes à l’emploi

 

[TooFatBoy]

oofatBoy ta modif génère une erreur...

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) :

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

---

Dans l’onglet "FACTURE", je souhaite mettre en place une automatisation permettant d’ajouter de nouveaux articles.
Une macro VBA insérera automatiquement, sous le dernier article, une ligne déjà formatée avec les formules prêtes à l’emploi

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