[VB script Excel] Variable stockée ds cellule

Lalence Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Eric34370 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   -
Dans un petit programme VB, je souhaiterais créer une variable dont la valeur serait à aller chercher dans une cellule.
L'utilisateur irait ainsi saisir une valeur dans cette cellule, et cette valeur serait reprise par le programme VB.
D'avance merci pour votre aide !
A voir également:

1 réponse

Eric34370 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour,

tu veux prendre une valeur dans une cellule d'une feuille excelavec ton programme et le renvoyer à l'utilisateur
ou tu veux que le programma VB reprenne la valeur entré par l'utilisateur dans une cellule d'une feuille.
et que dois faire ton programme VB de cette valeur?
je ne comprend pas bien ce que tu veux faire, désolé de ne pouvoir t'aider plus pour l'instant
0
Lalence Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
ce que je veux :
que le programme VB reprenne la valeur entré par l'utilisateur dans une cellule d'une feuille

concrètement : l'utilisateur va entrer un chemin d'accès dans une cellule et VB ira prendre la valeur de ce chemin pour enregistrer une copie du fichier à cet endroit....
0
Eric34370 Messages postés 24 Date d'inscription   Statut Membre Dernière intervention   > Lalence Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

voici un code qui se lance à partir d'un user form et d'un cilc sur un bouton auquel tu affecte ce code:


Private Sub CommandButton1_Click()
MsgBox "le classeur va etere enregistrer", vbOK + vbInformation

Dim chemin As String

chemin= Range("Feuil1!Z1") 'Cellule ou l'utilsateur à rentrer le chemin'

ChDrive "P"'disque dur ou le fichier doit etre enregistrer'

ChDir "p:\xxxxxxx\xxxx\xxx\xxx\"'definir le chemin ou se trouve le dossier d'archivage'

ActiveWorkbook.SaveAs Filename:=(chemin) 

Enregistrement.Hide'ferme le formulaire
End Sub
0