Est-il possible de recuperer une variable d'un projet dans un autre projet vba

[bichon]

Bonjour ou Bonsoir a tous les fideles de ce forum
Je vous explique mon gros soucis
Alors voila j'ai créer un dossier dont on rentre le nom dans un textbox
en voici le code

Private Sub CommandButton1_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Set filesys = CreateObject("Scripting.FileSystemObject")
Application.DisplayAlerts = False
Rep = "C:\MonRep\"
NomFic = TextBox1.Value
Nom = Rep & NomFic
If Not filesys.FolderExists(Nom) Then
Set newfolder = filesys.CreateFolder(Nom)
MsgBox ("Le Dossier " & Nom & " a été créé")
Else
MsgBox "Le Dossier existe déjà"
End If

End Sub


voila puis en cliquant sur ok j'arrive dans une nouvelle userform ou je peux selectionné
des classeurs pour pouvoir les ouvrir
et ces classeurs j'aimerai pouvoir les enregister dans C:\MonRep\ & le nom du dossier que je viens
de créer
j'ai essayé de mettre le nomde la userform du textbox.textbox1.value
mais il ne reconnait pas ma variable
comment faire?
c'est tres important je vous serais tres reconnaissant si vous pouviez trouver la solution
merci

ps: dans les classeur que j'ouvre il y a des macros et j'ai justement un bouton quitter puis enregistrer
et c'est ici que le code me manque
voici le debut de code de ce bouton de controle

' Bouton Enregistrer et quitter

Private Sub CommandButton21_Click()
Dim NomFic As String
Dim Rep As String
Dim Nom As String
Application.DisplayAlerts = False

NomFic = saisienom.textbox1.Value
strPath = "C:\Monrep"

Nom = strPath & "\" & NomFic
ActiveWorkbook.SaveAs FileName:=Nom
Application.DisplayAlerts = True
End Sub

voila encore merci a ceux qui me sauveront la vie lol
merci

bichon

 

[@Christophe@]

Bonsoir,

Bon, ben si j'ai bien compris tu veux enregistré dans un répertoire précis, ben c'est pas plus dire que cela:

ActiveWorkbook.SaveAs FileName:="C:\MonRep\ " & Nom


Bonne soirée

@Christophe@

 

[bichon]

oui christophe c'est pareil
mais la variable nom est sur un autre projet vba
comment je fai pour la recuperer
si je met cela il me di variable inconnu
merci

 

[@Christophe@]

Re

Ok, ben si c'est que cela, le problème se situe dans la déclaration des variable, en déclarent tes variable comme suite, elle sont uniquement pour cette procédure:

Private Sub CommandButton1_Click()
Dim Nom As String
.....
End Sub

déclare ta variable Public comme cela(la déclaré en dehors de la procédure):

Public Nom as string

Private Sub CommandButton1_Click()
......
End Sub

Essaye tu veras

@Christophe@

 

[bichon]

ok
christophe merci
meme si c'est dans 2 excel different il va la reconnaitre ?