Erreur de compilation subfunction non définie

Fermé
Seamus - Modifié par Seamus le 1/03/2011 à 13:20
Bonjour,
Je suis débutant en VBA, et n'arrive pas à comprendre pourquoi j'ai une erreur, malgré mes recherches.
Voici mon code

Sub B_geol()  

Application.DisplayAlerts = False  

'ouverture fichier contenant les données extraites d'Access  
Workbooks.Open Filename:="préparation_géolocalisation.xls"  

'tri selon les différents critères  
Sheets(1).Select  
Cells.Select  
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("B2") _  
        , Order2:=xlDescending, Key3:=Range("C2"), Order3:=xlAscending, Header _  
        :=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _  
        , DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _  
        xlSortNormal  
          
'Choix du répertoire de sauvegarde  
GetDirectory ("Choisissez le répertoire où enregistrer le fichier KML")  
Open Dossier & "\fichier_google_earth2.kml" For Output As #1 



Est surligné en jaune : Sub B_geol()
Est surligné en gris : GetDirectory

Merci d'avance