Debogage
Résolu
Druddy
Messages postés
34
Date d'inscription
Statut
Membre
Dernière intervention
-
Utilisateur anonyme -
Utilisateur anonyme -
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
A voir également:
- Echec du lancement de l'adaptateur de débogage
- Mode sans echec ps4 - Guide
- Qu'est ce qui se lance au démarrage de l'ordinateur - Guide
- Échec du chargement du module twitch - Forum jeux en ligne
- Echec du upnp ✓ - Forum Freebox
- Échec de l'analyse antivirus. ✓ - Forum Antivirus
4 réponses
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 commentaire
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 commentaire
J'ai appliqué un code d'un tutoce serait bien de donner le lien du tuto en question
Ha tu voies, c'est mieux.
Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur
Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur
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