[VB script Excel] Variable stockée ds cellule

Fermé
Lalence Messages postés 8 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 26 août 2007 - 12 mars 2007 à 17:09
Eric34370 Messages postés 24 Date d'inscription dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007 - 29 mars 2007 à 07:44
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 dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007
14 mars 2007 à 19:32
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 mercredi 7 mars 2007 Statut Membre Dernière intervention 26 août 2007
15 mars 2007 à 20:58
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 dimanche 25 février 2007 Statut Membre Dernière intervention 30 mars 2007 > Lalence Messages postés 8 Date d'inscription mercredi 7 mars 2007 Statut Membre Dernière intervention 26 août 2007
29 mars 2007 à 07:44
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