Debogage

Résolu

Druddy Messages postés 34 Date d'inscription Statut Membre Dernière intervention -
Utilisateur anonyme - 12 juin 2021 à 16:40

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

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
Mode sans echec - Guide
Echec du upnp ✓ - Forum Freebox
Échec du chargement du module twitch - Forum jeux en ligne

4 réponses

Réponse 1 / 4

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

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

Réponse 2 / 4

Utilisateur anonyme

Ha tu voies, c'est mieux.

Je ne suis pas un spécialiste de VBA, peux tu indiquer les messages d'erreur

Réponse 3 / 4

Druddy Messages postés 34 Date d'inscription Statut Membre Dernière intervention

Merci mais à ne rien y comprendre, le problème a disparu

Réponse 4 / 4

Utilisateur anonyme

Et bien tant mieux :)

Discussions similaires

Connexion impossible Échec Cloudflare

Erreur Upnp xbox series x

" Échec de l'analyse antivirus " la solution.

Xbox One NAT modéré et échec du UPnP // freebox revolution

Google Chrome " Échec de l'analyse antivirus "

Votre réponse

Discussions similaires