[VBA] Plantage Excel lors de plusieurs addfromfile

Plantage Excel lors de plusieurs addfromfile [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 29-01-2007 à 10:35:35    

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 :
  1. Public Sub upgrade_v100_Vers_v110()
  2.     ' Pour charger la référence manquante
  3.     Call ReferencesProjet
  4.     ' Pour supprimer les feuilles en plus
  5.     Call supprimerfeuilles
  6.     ' Ajouter les nouvelles feuilles
  7.     Call ajouterFeuilles
  8.     ' importer les modules modifiés (la suppression de l'ancien est géré dans l'import)
  9.     Call importerTousModules
  10.     ' suppression du code associé à chaque feuille
  11.     Call supprimerCodeToutesFeuilles
  12.     ' import du code associé au feuille
  13.     Call importCodeToutesFeuilles   
  14.     ' maj de plusieurs cellules dans les feuilles
  15.     Call majFeuilles     
  16. 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 :
  1. Public Sub importCodeToutesFeuilles()
  2.     Dim dossier_import As String
  4.     dossier_import = ThisWorkbook.Path & "\Fichiers v1.1.0\Fichiers à importer\"
  5.     Call importerCodeFeuille("Tâches", dossier_import & "Feuil1 - v1.1.0.txt" )
  6.     Call importerCodeFeuille("Suivi conso", dossier_import & "Feuil2 - v1.1.0.txt" )
  7.     Call importerCodeFeuille("Synthèse", dossier_import & "Feuil3 - v1.1.0.txt" )
  8.     Call importerCodeFeuille("Ressources", dossier_import & "Feuil5 - v1.1.0.txt" )
  9.     Call importerCodeFeuille("Suivi RAE", dossier_import & "Feuil6 - v1.1.0.txt" )
  10.     Call importerCodeFeuille("Fiches de tâches", dossier_import & "Feuil7 - v1.1.0.txt" )
  11.     Call importerCodeFeuille("Accueil", dossier_import & "Feuil10 - v1.1.0.txt" )
  12.     Call importerCodeFeuille("GPS", dossier_import & "Feuil12 - v1.1.0.txt" )
  13.     Call importerCodeFeuille("Conso - Prod par sem", dossier_import & "Feuil13 - v1.1.0.txt" )
  14.     Call importerCodeFeuille("Conso - Prod", dossier_import & "Feuil15 - v1.1.0.txt" )
  15.     Call importerCodeFeuille("Gantt", dossier_import & "Feuil16 - v1.1.0.txt" )
  16.     Call importerCodeFeuille("Capacité Prod", dossier_import & "Feuil17 - v1.1.0.txt" )
  17.     Call importerCodeFeuille("Conso-RAE-Prod Par SSP", dossier_import & "Feuil18 - v1.1.0.txt" )
  18. End Sub


 

Code :
  1. Private Sub importerCodeFeuille(Nom_Feuille As String, Nom_Fichier As String)
  2.     With ThisWorkbook.VBProject.VBComponents(ThisWorkbook.Sheets(Nom_Feuille).CodeName).CodeModule
  3.         .AddFromFile Nom_Fichier
  4.     End With
  5. End Sub



---------------
See More | Hear More | Feel More | Play More ...
Reply

Marsh Posté le 29-01-2007 à 10:35:35   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed