Résultats de la recherche

Bonsoir, Je souhaiterai ne plus voir le message Excel me demandant d'activer manuellement les macros du fichier xlsm. Dès lors, quel programme pourrait-on inclure dans le code VBA : Sub Workbook_Open() Merci d'avance

Bonsoir à Tous, Je tiens à vous informer que j’ai pu régler mon problème d’ouverture du fichier xls qui prenait entre 3 à 6 mn pour afficher l’ensemble des onglets du classeur. Pour info, l’origine de la lenteur à l’ouverture du classeur se situait au niveau des onglets, un total de 129, qui...

Bonsoir à Tous, Je tiens à vous informer que j’ai pu régler mon problème d’ouverture du fichier xls qui prenait entre 3 à 6 mn pour afficher l’ensemble des onglets du classeur. Pour info, l’origine de la lenteur à l’ouverture du classeur se situait au niveau des onglets, un total de 129, qui...

Bonsoir @job75 : Désolé du retard de réponse. Vous avez tout à fait raison. Ca marche ! En effet, suis plus occupé à trouver une solution afin d'accélérer l'ouverture de mon fichier qui prend anormalement 5 mn. Bonne soirée et merci beaucoup

@job75 problème résolu j'ai modifier la dernière ligne du code comme suit : .SaveAs fn & Format(Now, "_dd_mm_yyyy_hh-mm") & ".xlsx", FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'fichier .xlsx

@job75 vous avez raison le code marche bien sur le classeur de TEST. Mais malheureusement pas sur le fichier de PROD.

@job75 J'avais juste modifié le code d'annulation des formules ET pourtant tout marcher bien avec la version Excel 2016, jusqu'à ce que je migre vers 2019.

Bonjour @job75, Pour info, j'ai migré vers la version 2019 d'EXCEL car en effet mon fichier prenait trop de temps à l'ouverture alors que l'enregistre s'avère rapide. Par ailleurs et suivant le code VBA proposé auparavant par vos soins : la dernière ligne du code ne marche plus. Au fait, les...

Merci @kiki29, mais j'ai du mal à insérer le code ci-dessus.

Bonsoir à Tous, Voici les 2 codes qui m'ont permis de gagner 2 mn dans les 5. Private Sub Workbook_Open() Application.DisplayAlerts = False 'messages excel Application.ScreenUpdating = False 'rafraichissement ecran (pour ne pas voir défiler les macros) Application.Calculation =...

Merci @Simply

Bonjour à Tous, J'ai un classeur comportant plusieurs formules et mises en forme (une bonne partie supprimée via XLSTYLES Tools). Cependant, à l'ouverture il prend au max 5 mn pour afficher tous les onglets du classeur. J'ai cherché sans succès pendant une semaine afin d'essayer d'accélérer...

Bonsoir @job75 Perfect. Tout marche à merveille. Merci pour tout Trés cordialement

@job75 - Il me reste un dernier code vba écrire. Je m'explique : Aprés avoir copié le fichier source. je souhaiterai modifié le nom des onglets en jaune en supprimer le préfixe : "F-" et puis remettre la couleur de ces onglets à "aucun" au lieu de "jaune". J'ai écris ce code test pour un...

@job75 je réintègre alors votre ligne de code correspondante, puis effectue un test et vous et vous tiens informé.

Bonjour @job75, J'ai pu adapter le code VBA proposé par vos soins et il marche parfaitement avec mon fichier full. Merci pour tout Belle journée et bien des choses Trés cordialement Sub Nouveau_fichier() Dim s As Object, fn$ Application.ScreenUpdating = False With...

@job75 Au fait on sélectionne toutes les cellules de la copie et on ne maintient que des valeurs. Mais le classeur source ne devrait pas être modifié

@job75 le code VBA ne devrait pas en principe supprimer les formules du classeur source.

@job75 Quelle est l'interprétation de cette ligne de code : Application.Goto .Sheets(.Sheets.Count).Cells(1)

@job75 L'erreur se situe là : Application.Goto .Sheets(.Sheets.Count).Cells(1), True 'cadrage Et du coup les points suivants ne sont pas exécutés : Application.DisplayAlerts = False .Sheets(1).Delete .Sheets(1).Activate fn = ThisWorkbook.Name fn = Left(fn, InStrRev(fn, ".")...