Erreur d'exécution '424' sur un userform

[aure_8]

Bonjour le forum,

J'ai un soucis au niveau de mon Userform, je ne comprend pas l'erreur '424' que me donne le débogage à a ligne 7.

Private Sub CmdOk_Click()
Dim L
    Message.Caption = "Création de la FI"
    Numéro_copier = "A_copier"
    Range("A1").Select
    Selection.End(xlDown).Select
    Numéro = Numéro_KL.Text
    Répertoire = "C:\Users\Christine\Desktop\Stage\Forfait PI\FI Répondues"
    
    ChDir Répertoire
    
Set fs = Application.FileSearch
With fs
    .LookIn = Répertoire
    .FileName = Numéro + "_FI.xls"
    If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
        Message.Caption = "FICHIER EXISTANT"
    Else
    Workbooks.Open FileName:= _
        Répertoire + "\A_copier_FI.xls", UpdateLinks:=0
    Range("C1").Select
    Selection.Value = Numéro
    ActiveWorkbook.SaveAs FileName:= _
        Répertoire + "\" + Numéro + "_FI.xls", FileFormat _
        :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
        False, CreateBackup:=False
    ActiveWorkbook.Close
    End If
End With
       
    
    Message.Caption = "TRAITEMENT EN COURS"
    
    L = Selection.Row
    Range("A" & L).Select
    Numéro_copier = Selection.Value
    Selection.AutoFill Destination:=Range("A" & L & ":A" & L + 1), Type:=xlFillDefault
    Range("A" & L & ":A" & L + 1).Select
    
    Rows(L & ":" & L).Select
    
    Selection.Copy
    L = L + 1
    Rows(L & ":" & L).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.Replace What:=Numéro_copier, Replacement:=Numéro, LookAt:= _
        xlPart, SearchOrder:=xlByRows, MatchCase:=False
 
    Range("a" & L).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Répertoire + "\" + Numéro + "_FI.xls"
    Message.Caption = "ACTION TERMINEE"
    
End Sub

Private Sub CmdSortir_Click()
    Unload Me
End Sub

Avez-vous une petite idée ?

Merci et bonne journée !
Cdlt
aure_8

 

[gilbert_RGI]

Re : Erreur d'exécution '424' sur un userform

bonjour

Numéro_TA.Text c'est ce que l'on trouve sur le code du fichier
Numéro_KL.Text c'est ce qu'il y a sur le code proposé

et sur l'userform il y a Numéro_GTE

il faut savoir qui est quoi !!!!!

 

[aure_8]

Re : Erreur d'exécution '424' sur un userform

Bonjour

Merci pour votre aide!
Oui Numéro_GTE était pour un ancien fichier que je suis en train de réactualiser. Mais je comprends pas pourquoi je ne suis pas arrivé à renommer en Numéro_TA.

Encore merci
Cdlt
aure_8

 

[aure_8]

Re : Erreur d'exécution '424' sur un userform

C'est ok j'ai vu ou on fait la modification.
J'ai une autre question si ça vous gène pas:
Connaissez-vous la signification de erreur 445: Cet objet ne gère pas cette action ?

Merci à vous !

 

[gilbert_RGI]

Re : Erreur d'exécution '424' sur un userform

Cet objet ne gère pas cette action

voilà la signification

il n'y a pas d'objet donc erreur

 

[aure_8]

Re : Erreur d'exécution '424' sur un userform

Ok, merci !

Cdlt
aure_8