Debogage
Résolu
Bonjour,
J'ai appliqué un code d'un tuto et lorsque je lance la macro il affiche débogage pour les 2 lignes en gras et pourtant quand je continue, la macro s'exécute bien.
J'aimerais savoir ce qui ne va pas. Merci
'********************************************************
'Récupérations des données
'********************************************************
Sub RecupereDataFichier()
'Déclaration des variables
Dim ListeFichier As Variant
Dim MonClasseur As Workbook
'On désactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = False
Application.ScreenUpdating = False
'On efface les anciennes données
ActiveSheet.Range("A1").CurrentRegion.Clear
'On récupère le fichier de données à copier
ListeFichier = Application.GetOpenFilename(Title:="sélectionnez votre fichier", filefilter:="fichiers excel(*.xls*),*xls*", buttontext:="Cliquez")
'Prévoir le cas du bouton Annuler
If ListeFichier <> False Then
'On affecte le fichier sélectionné
Set MonClasseur = Application.Workbooks.Open(ListeFichier)
'On copie les données de la feuille 1 du classeur sélectionné
MonClasseur.Sheets(1).Range("A3").CurrentRegion.Copy
'On colle les données dans la feuille active
ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
'On désactive les messages d'alerte de Microsoft
Application.DisplayAlerts = False
'On ferme le classeur source
MonClasseur.Close
End If
'On réactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub
J'ai appliqué un code d'un tuto et lorsque je lance la macro il affiche débogage pour les 2 lignes en gras et pourtant quand je continue, la macro s'exécute bien.
J'aimerais savoir ce qui ne va pas. Merci
'********************************************************
'Récupérations des données
'********************************************************
Sub RecupereDataFichier()
'Déclaration des variables
Dim ListeFichier As Variant
Dim MonClasseur As Workbook
'On désactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = False
Application.ScreenUpdating = False
'On efface les anciennes données
ActiveSheet.Range("A1").CurrentRegion.Clear
'On récupère le fichier de données à copier
ListeFichier = Application.GetOpenFilename(Title:="sélectionnez votre fichier", filefilter:="fichiers excel(*.xls*),*xls*", buttontext:="Cliquez")
'Prévoir le cas du bouton Annuler
If ListeFichier <> False Then
'On affecte le fichier sélectionné
Set MonClasseur = Application.Workbooks.Open(ListeFichier)
'On copie les données de la feuille 1 du classeur sélectionné
MonClasseur.Sheets(1).Range("A3").CurrentRegion.Copy
'On colle les données dans la feuille active
ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats
'On désactive les messages d'alerte de Microsoft
Application.DisplayAlerts = False
'On ferme le classeur source
MonClasseur.Close
End If
'On réactive le presse papier et le raffraichissement de l'écran
Application.CutCopyMode = True
Application.ScreenUpdating = True
End Sub
4 réponses
-
Et bien tant mieux :)
-
Merci mais à ne rien y comprendre, le problème a disparu
-
Ha tu voies, c'est mieux.
Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur
-
Bonjour
Pour poster un code merci d’utiliser les balises de code, voir ici https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code comment les utiliser.
Pour signaler les lignes qui bugguent, il suffit de mettre un commentaireJ'ai appliqué un code d'un tuto
ce serait bien de donner le lien du tuto en question
-
Bonjour Whismeril,
Voici le lien : https://www.youtube.com/watch?v=UJUGIx9sKRo&ucbcb=1
Et le code :
Sub RecupereDataFichier() 'Déclaration des variables Dim ListeFichier As Variant Dim MonClasseur As Workbook 'On désactive le presse papier et le raffraichissement de l'écran Application.CutCopyMode = False Application.ScreenUpdating = False 'On efface les anciennes données ActiveSheet.Range("A1").CurrentRegion.Clear 'On récupère le fichier de données à copier ListeFichier = Application.GetOpenFilename(Title:="sélectionnez votre fichier", filefilter:="fichiers excel(*.xls*),*xls*", buttontext:="Cliquez") 'Prévoir le cas du bouton Annuler If ListeFichier <> False Then '***Débogage sur cette ligne*** 'On affecte le fichier sélectionné Set MonClasseur = Application.Workbooks.Open(ListeFichier) 'On copie les données de la feuille 1 du classeur sélectionné MonClasseur.Sheets(1).Range("A3").CurrentRegion.Copy '***Débogage sur cette ligne*** 'On colle les données dans la feuille active ThisWorkbook.ActiveSheet.Range("A1").PasteSpecial xlPasteFormulasAndNumberFormats 'On désactive les messages d'alerte de Microsoft Application.DisplayAlerts = False 'On ferme le classeur source MonClasseur.Close End If 'On réactive le presse papier et le raffraichissement de l'écran Application.CutCopyMode = True Application.ScreenUpdating = True End Sub
-
