Portée variable vba excel Résolu

Question

Bonjour,

J'ai un classeur avec plusieurs feuilles.

Je souhaite récupérer à l'ouverture du fichier le nom du fichier (sans extension) et le mettre dans une variable.
Je pense que ça fonctionne (test msgbox)

Public Sub Workbook_Open()

'On met dans une variable le nom sans l'extension

nom_fichier = Split(ThisWorkbook.Name, ".")(0)

Maintenant, je souhaite récupérer ce nom_fichier (la variable) dans le code d'un userform

Et là elle ne retourne rien

J'ai testé de la déclarer dans Declarations() de general

Public nom_fichier As String

Dans mon user_form, pas bien le choix de l'appeler,,

j'ai mis le code en public mais c'est pareil

Public Sub btn_creer_fichier_Click()

MsgBox nom_fichier

Là je sèche

Merci

cousinhub29 · Answer

Bonsoir,

Est-ce que la variable "nom_fichier" est bien déclarée en "Public" dans un module standard?

RV71 · Answer

j'ai déclaré du coup dans le module du userform, d'ailleur je ne sais pas pourquoi j'ai voulu déclarer en glogal, question d'habitude.

Mais là j'ai soit de la peau de soce soit faut que j'arrête, mais j'ai un problème dans le code de mon userForm

-> le code user form sur un bouton, avec 2 listes

Public Sub btn_creer_fichier_Click()

'On met dans une variable le nom sans l'extension

nom_fichier = Split(ThisWorkbook.Name, ".")(0)

'on vérifie que les 2 listes ont été choisies

If IsNull(list_mois) Or IsNull(list_annee) Or Val(list_annee) = 0 Then
's'il manque un choix on avertit et on sort
    MsgBox "choisir un mois ET une année"
    Exit Sub
    
End If

' si on est là on peut procèder à la création du nouveau fichier

'On récupère le dossier courrant

repertoire = CurDir

'on cacatene le tout

Dim fichier As String
fichier = repertoire & "\" & nom_fichier & list_annee & list_mois & ".xlsm"

MsgBox ("le nom du fichier à comparer est : " & fichier)
'là je vois bien le chemin complet et le fichier avec extension xlsm

If Dir(fichier) <> "" Then

MsgBox "Le fichier '" & fichier & "' existe"

Else

MsgBox "Le fichier n'a pas été trouvé"

End If

A chaque fois j'ai le msgbox "le fichier n'a pas été trouvé"

pourtant je peux certifier que le fichier "Sxxxxxxx20241.xlsm" (avec le répertoire dans le msgbox) existe dans le répertoire courant.

Je pense que je passe à coté d'un détail mais je sèche...

Merci

RV71 · Answer

voici le code entier qui est dans un bouton d'un user form

Le fichier que je selectionne via les 2 listes et bien retourné par la msgbox (chemin et extension) et existe dans le répertoire.

Ca m'échappe...

Public Sub btn_creer_fichier_Click()

'On met dans une variable le nom sans l'extension

nom_fichier = Split(ThisWorkbook.Name, ".")(0)

'on vérifie que les 2 listes ont été choisies
If IsNull(list_mois) Or IsNull(list_annee) Or Val(list_annee) = 0 Then
's'il manque un choix on avertit et on sort
    MsgBox "choisir un mois ET une année"
    Exit Sub
    
End If

' si on est là on peut procèder à la création du nouveau fichier

'On récupère le dossier courrant

repertoire = CurDir

'on cacatene le tout

Dim fichier As String
fichier = repertoire & "\" & nom_fichier & list_annee & list_mois & ".xlsm"

MsgBox ("le nom du fichier à comparer est : " & fichier)

' là j'ai la msgb qui me semble OK, voir plus bas

If Dir(fichier) <> "" Then

MsgBox "Le fichier '" & fichier & "' existe"

Else

MsgBox "Le fichier n'a pas été trouvé"

End If

End Sub

Voici le msgbox de la ligne

MsgBox ("le nom du fichier à comparer est : " & fichier)

Sincèrement je ne vois pas

Merci

RV71 · Answer

Voici une capture du fichier qui n'est pas détecté dans l'explorateur, meme dossier que le fichier excel

cousinhub29 · Answer

Re-,

Je pense avoir répondu à la question initiale...

(et n'ai aucune envie de prolonger sur ta pelote de fils, sur ton sujet parent)

Bon courage

RV71 · Answer

Mon dernier msgbox

MsgBox ("le nom du fichier à comparer est : " & fichier)

If Dir(fichier) <> "" Then

MsgBox "Le fichier '" & fichier & "' existe"

Else

MsgBox "Le fichier n'a pas été trouvé"

End If

m'affiche bien le chemin et le fichier donc j'imagine que cela fonctionne à ce niveau

yg_be · Answer

bonjour,

au lieu de curdir, utilise:

ThisWorkbook.Path

RV71 · Answer

Bien vu !!!

J'avais la tête dedans et n'avait pas fait attention.

En fait le curdir me renvoie je ne sais pas pourquoi un autre dossier.

Avec le

ThisWorkbook.Path

ca fonctionne !

Merci pour le coup de main et d'oeil :)

Portée variable vba excel

8 réponses

Votre réponse