playskool | Bonjour,
j'ai un classeur excel avec une 16 feuilles et 9 modules. J'ai procédé à des modifications du code dans 13 feuilles et 6 modules et ajouté 3 feuilles.
Ayant plusieurs classeurs à mettre à jour avec la nouvelle version du code, j'ai décidé décrire un nouveau module upgrade qui via une fonction upgrade_v100_Vers_v110 qui va normalement faire tout ca!!!
Code :
- Public Sub upgrade_v100_Vers_v110()
- ' Pour charger la référence manquante
- Call ReferencesProjet
- ' Pour supprimer les feuilles en plus
- Call supprimerfeuilles
- ' Ajouter les nouvelles feuilles
- Call ajouterFeuilles
- ' importer les modules modifiés (la suppression de l'ancien est géré dans l'import)
- Call importerTousModules
- ' suppression du code associé à chaque feuille
- Call supprimerCodeToutesFeuilles
- ' import du code associé au feuille
- Call importCodeToutesFeuilles
- ' maj de plusieurs cellules dans les feuilles
- Call majFeuilles
- End Sub
|
voila le principe de base que j'utilise. maintenant le code se déroule bien jusqu'au Call importCodeToutesFeuilles ou la j'ai un plantage excel avec la fenetre qui me demande si je veux récupérer mon travail ou pas....
Code :
- Public Sub importCodeToutesFeuilles()
- Dim dossier_import As String
- dossier_import = ThisWorkbook.Path & "\Fichiers v1.1.0\Fichiers à importer\"
- Call importerCodeFeuille("Tâches", dossier_import & "Feuil1 - v1.1.0.txt" )
- Call importerCodeFeuille("Suivi conso", dossier_import & "Feuil2 - v1.1.0.txt" )
- Call importerCodeFeuille("Synthèse", dossier_import & "Feuil3 - v1.1.0.txt" )
- Call importerCodeFeuille("Ressources", dossier_import & "Feuil5 - v1.1.0.txt" )
- Call importerCodeFeuille("Suivi RAE", dossier_import & "Feuil6 - v1.1.0.txt" )
- Call importerCodeFeuille("Fiches de tâches", dossier_import & "Feuil7 - v1.1.0.txt" )
- Call importerCodeFeuille("Accueil", dossier_import & "Feuil10 - v1.1.0.txt" )
- Call importerCodeFeuille("GPS", dossier_import & "Feuil12 - v1.1.0.txt" )
- Call importerCodeFeuille("Conso - Prod par sem", dossier_import & "Feuil13 - v1.1.0.txt" )
- Call importerCodeFeuille("Conso - Prod", dossier_import & "Feuil15 - v1.1.0.txt" )
- Call importerCodeFeuille("Gantt", dossier_import & "Feuil16 - v1.1.0.txt" )
- Call importerCodeFeuille("Capacité Prod", dossier_import & "Feuil17 - v1.1.0.txt" )
- Call importerCodeFeuille("Conso-RAE-Prod Par SSP", dossier_import & "Feuil18 - v1.1.0.txt" )
- End Sub
|
Code :
- Private Sub importerCodeFeuille(Nom_Feuille As String, Nom_Fichier As String)
- With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(Nom_Feuille).CodeName).CodeModule
- .AddFromFile Nom_Fichier
- End With
- End Sub
|
---------------
See More | Hear More | Feel More | Play More ...
|
