Problème Chemin D'accès de ma Macro

Bonjour à tous,

J'aurai besoin de votre aide.

J'ai créé une macro qui permet d'extraire certaines lignes d'un onglet, pour les coller dans un autre onglet afin de créer une liste personnalisée. Cela fonctionne très bien sur mon PC, ainsi que sur le PC de certains de mes collègues. Or, pour certains d'entre-eux, la macro renvoie à un code d'erreur : "Erreur dans le chemin d'accès :\\VBE7AF.tmp".

Je ne comprends pas d'où vient le problème car ma macro ne va pas chercher d'info dans un autre fichier, et ne travaille qu'avec le fichier ouvert et le second qu'elle doit créer.

Voici mon code :

Sub CutData()
    Dim dict As Object
    Dim MotCle
    Dim i As Byte
    Dim C As Range, premierC As String
    Dim F As String
    Dim Ligne As Long
    Dim plagerecherche As Range
    Set dict = CreateObject("scripting.dictionary")

    With Sheets("liste").UsedRange
        .Value = .Value
    End With

    With Sheets("complet").UsedRange
        .Value = .Value
    End With

    'On définit les mots clés
    MotCle = Array("X")

    With Worksheets("complet")
        Set plagerecherche = .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
    End With
    'On définit le nom de la feuille où sera effectuée la copie
    F = "offre"
    With Worksheets(F)
        Ligne = .Range("F" & Rows.Count).End(xlUp).Row
        For i = 0 To UBound(MotCle)
            Set C = plagerecherche.Find(MotCle(i), LookIn:=xlValues, lookat:=xlPart)
            'Si le mot clé est trouvé
            If Not C Is Nothing Then
                premierC = C.Address
                Do
                    If Not dict.exists(C.Row) Then 'déjà traité ?
                        'non
                         Ligne = Ligne + 1
                        'On effectue le copier / coller
                        C.EntireRow.Copy .Range("A" & Ligne)
                        dict.Add C.Row, "traité"
                    End If
                    ' on cherche la prochaine occurrence du mot clé
                    Set C = plagerecherche.FindNext(C)
                Loop While C.Address <> premierC
            End If
        Next i
    End With
    ActiveWorkbook.Sheets("offre").Copy
End Sub

Avez-vous une idée d'où cela peut venir ?

Merci d'avance pour votre aide, qui me sera très précieuse.

Bonjour,

Vérifies sur le PC si il n'y a pas de complément (.xlam) ou de macro personnelle qui génère cette erreur.

Quand tu débogues où se situe le PB ?

Essaies une exécution Pas à pas

Bonjour Patrice,

Merci beaucoup pour ta réponse.
J'ai ouvert un ticket plus détaillé :

https://forum.excel-pratique.com/excel/macro-vba-erreur-dans-le-chemin-d-acces-165837

Si tu as une idée de solution, je suis preneuse !

Bonne journée,