Lbrochette
Messages postés9Date d'inscriptionmardi 23 avril 2019StatutMembreDernière intervention 3 mai 2019
-
2 mai 2019 à 04:56
f894009
Messages postés17185Date d'inscriptiondimanche 25 novembre 2007StatutMembreDernière intervention15 avril 2024
-
3 mai 2019 à 11:03
Bonjour a tous,
Gros soucis, j'avais une macro qui marchait tres bien (extract de donnees de plusieurs fichier dans un seul). Or, depuis quelques jours, Excel se faire a chaque fois que j'essaye d'executer ma macro ("Microsoft Excel has stopped working").
Je travaille sur Excel 2013 et ne trouve vraiment pas de solution a mon probleme.
Si vous en avez une n'hesitez pas a la partager !
Merci d'avance a mon/mes sauveurs.
Ci-dessous mon code (mais je ne pense pas que le probleme vienne de celui-ci)
Option Explicit
'Declaration des variables
Dim NomClasseur As String
Dim LigneTotal As Integer
Dim DerLigne As Integer
Dim Cell As Range
Dim Cellule As Range
Dim Ligne As Long
'Procedure permettant la consolidation de plusieurs classeurs
'Etape 2 : Parcourir tous les fichiers du dossier predefinis
ChDir "C:\Users\sgp.lmhbayle\Desktop\1st Submission"
'On cherche le premier classeur dans le dossier
NomClasseur = Dir("C:\Users\sgp.lmhbayle\Desktop\1st Submission\*xlsx")
'On boucle pour chercher tous les classeurs Excel
While Len(NomClasseur) > 0
Application.DisplayAlerts = False 'Desactive les boite de dialogue d'Excel
Workbooks.Open NomClasseur 'Ouverture du classeur
LigneTotal = ActiveSheet.UsedRange.Rows.Count 'On recupere le nombre de ligne de donnees
Range("B3:AF" & LigneTotal).Copy 'On copie toutes les donnees de la feuille active
Workbooks("2019 Q3 Consolidate").Activate 'On revient sur le classeur de synthese
DerLigne = ActiveSheet.UsedRange.Rows.Count + 1 'On recherche la derniere ligne vide de la feuille active
Range("E" & DerLigne).Select 'On se positionne sur la derniere ligne vide de la feuille
ActiveSheet.Paste 'Je colle les donnees
Range("D" & DerLigne & ":D" & ActiveSheet.UsedRange.Rows.Count) = NomClasseur 'On colle le nom du classeur sur la colonne D
Workbooks(NomClasseur).Close 'Fermeture du classeur ouvert
NomClasseur = Dir 'On passe au prochain classeur
Wend
'Etape 3 : Suppression des extensions des fichiers
Columns("D:D").Replace ".xlsx", "" 'On retire l'extension des fichiers
On Error Resume Next
Ligne = Columns("D").Find("*", , , , , xlPrevious).Row
Range("N2:N" & Ligne).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A2:DerLigne").Interior.Color = vbWhite 'Couleur de remplissage
Range("A2:DerLigne").Font.Color = vbBlack 'Couleur de police
Frenchie83
Messages postés2240Date d'inscriptionlundi 6 mai 2013StatutMembreDernière intervention11 août 2023337 Modifié le 2 mai 2019 à 07:34
Bonjour,
Pour trouver où se situe le problème, il faut faire du pas à pas.
Mettez vous dans la macro et faite F8 ou fn + F8 (pas à pas), vous verrez bien à partir de quelle ligne se produit l'erreur, il n'y aura plus qu'à corriger.
Cdlt
Lbrochette
Messages postés9Date d'inscriptionmardi 23 avril 2019StatutMembreDernière intervention 3 mai 2019 3 mai 2019 à 03:49
Bonjour, merci pour votre retour.
Le problme est lorsque j'execute la macro en F8, tout marche jusqu'au bout et j'ai mon beau tableau.
Excel se ferme uniquement lorsque j'assigne la macro a un bouton ou que je "run" ma macro en mode "normal".
Desolee pour le vocabulaire pas tres adequate.
Merci :)
f894009
Messages postés17185Date d'inscriptiondimanche 25 novembre 2007StatutMembreDernière intervention15 avril 20241 701 3 mai 2019 à 07:32
Bonjour,
Creez une macro bidon et affectez la a ce bouton pour voir si plantage
Lbrochette
Messages postés9Date d'inscriptionmardi 23 avril 2019StatutMembreDernière intervention 3 mai 2019 3 mai 2019 à 09:11
Bonjour,
Dorenavant, mon Excel se ferme la premiere fois que j'execute la macro (F5). Lorsque j'ouvre de nouveau mon fichier et que j'execute ma macro, tout fonctionne parfaitement (F5 aussi). Lorsque je la re-execute une seconde fois, Excel se ferme ... Une fois sur deux excel se ferme en gros. Tres bizarre et je n'ai pas de solution
Pareil si j'affecte une macro bidon au meme bouton
Merci a vous !
f894009
Messages postés17185Date d'inscriptiondimanche 25 novembre 2007StatutMembreDernière intervention15 avril 20241 701 3 mai 2019 à 11:03
3 mai 2019 à 03:50