Incompréhension de l'erreur type mismatch du code VBA

wilfried_42 à dit:

bonjour

pas sur d'avoir compris

ton code :

Code:

Sub toto()

    Dim PathFichierModeles As Workbook

' fichier modele etant un objet, tu ne peux l'affecter qu'avec un Set
' De plus , l'odre d'ouverture d'un fichier excel, implique que c'est un objet
    Set PathFichierModeles = Application.GetOpenFilename("Fichier Excel, *.xls")
    Workbooks.OpenText Filename:=PathFichierModeles
    PathFichierModeles1 = PathFichierModeles.FullName
    PathFinals = ExtractPathName(PathFichierModeles1)

End Sub

Cliquez pour agrandir...

• les modules de code de type Private comme les modules de code des feuilles ainsi que ThisWorkbook, sont normalement réservés aux procédures évènementielles. Tu devrais normalement créer tes macros et fonctions personnalisées dans un module de code Standard (ex : Module1).
• si tu souhaitais déclarer tes 3 variables en type String, il convenait d'écrire :
  Code:

  [COLOR=NAVY]Dim[/COLOR] PathFinals [COLOR=NAVY]As String[/COLOR], PathFichierModeles [COLOR=NAVY]As String[/COLOR], PathFichierModeles1 [COLOR=NAVY]As String[/COLOR]

  Cela dit, comme je l'explique ci-dessus, PathFichierModeles doit être déclarée variant car elle peut recevoir une valeur boolean ou une valeur chaine de caractères (string).
• je n'ai pas compris si l'ouverture du classeur XLS par OpenText est volontaire ou non.
• Ta function ExtractPathName() semble inutile ici puisque tu obtiendras le chemin du classeur en utilisant simplement sa propriété Path.

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Sub[/COLOR] toto()
[COLOR=NAVY]Dim[/COLOR] PathFinals [COLOR=NAVY]As String[/COLOR], PathFichierModeles [COLOR=NAVY]As Variant[/COLOR]

    PathFichierModeles = Application.GetOpenFilename("Fichier Excel, *.xls")
    [COLOR=NAVY]If[/COLOR] PathFichierModeles <> [COLOR=NAVY]False Then[/COLOR]
        Workbooks.OpenText Filename:=PathFichierModeles
        PathFinals = ActiveWorkbook.Path & Application.PathSeparator
    [COLOR=NAVY]End If
End Sub[/COLOR]