Debogage

Résolu
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention   -  
 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

4 réponses

Utilisateur anonyme
 
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

0
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
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
0
Utilisateur anonyme
 
Ha tu voies, c'est mieux.

Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur
0
Druddy Messages postés 34 Date d'inscription   Statut Membre Dernière intervention  
 
Merci mais à ne rien y comprendre, le problème a disparu
0
Utilisateur anonyme
 
Et bien tant mieux :)
0