Debogage [Résolu]

Signaler
Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021
-
Messages postés
16120
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 juillet 2021
-
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

4 réponses

Messages postés
16120
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 juillet 2021
723
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


J'ai appliqué un code d'un tuto
ce serait bien de donner le lien du tuto en question

Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021

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
Messages postés
16120
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 juillet 2021
723
Ha tu voies, c'est mieux.

Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur
Messages postés
23
Date d'inscription
samedi 29 mai 2021
Statut
Membre
Dernière intervention
20 juin 2021

Merci mais à ne rien y comprendre, le problème a disparu
Messages postés
16120
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
28 juillet 2021
723
Et bien tant mieux :)