Variable objet ou variable bloc With non définie

Bonjour,

Je suis débutant en VBA et je fais face à un petit problème au niveau de mes variables nom de fichier.

L'idée du programme est que l'utilisateur appuie sur un bouton qui lui ouvre l'explorateur de fichier et le fichier devient une variable qui dans un second temps est utilisée dans un sub après.

Voici le tout début de mon code:

Private GF As Workbook

Sub globalfileimput()
    Filename = Application.GetOpenFilename("xlsx files (*.xlsx), *.xlsx")
    Workbooks.Open Filename
    Workbooks("PERSONAL.XLSB").Activate
        ActiveSheet.Shapes.Range(Array("Rectangle 6")).Select
    selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Filename
    GlobalFile = Right(Filename, Len(Filename) - InStrRev(Filename, "\")) 'Retrieves the name of the file from the path
Dim GF As Workbook
    Set GF = Workbooks(GlobalFile)
End Sub

Public Sub testingsomestuff() 'Ce sub a juste pour fonction de vérifier si le code précédent fonctionne pour exécuter la suite du programme
GF.Activate
Range("A22").Select
End Sub

Le problème c'est que dès que j'arrive à GF.Activate du Sub testingsomestuff() je me retrouve avec l'erreur "Variable objet ou variable bloc With non définie" (erreur d'exécution 91). Pourtant j'ai bien défini et set mes variables. J'imagine que cela doit être lié à l'utilisation d'une variable d'un vers un autre.

Pourriez vous m'aider ?

Merci beaucoup !

bonjour,

supprime cette instruction Dim, car elle annule ton instruction Private en tête de module

Dim GF As Workbook
    Set GF = Workbooks(GlobalFile)

Super ça fonctionne.

Merci beaucoup pour le coup de main.