Variables entre 2 Prg vba

gds35 · 16 Octobre 2008

Bonjour , à tous , mes AMIS du forum,
Voila j'ai un Prg VBA (PrgA) ou je crée un chemin de fichier via une inputBox , je demande le lecteur (variable LECT Ex C) puis le repertoire (variable Rep) , puis je fais chemin = LECT & ":\" & Rep \ FD et je crée le répertoire ss pb cela fait je ferme le pgrA . J'ouvre un autre prg (prgB) via l'explorer je saisie des données et suite à la saisie demande la sauvegarde avec le chemin crée dans le prgA , impossible comment passer au prgB le viariable chemin crée ds le prgA ???
Merci de votre aide , bonne soirée corialement . GDS35

Pierrot93 · 16 Octobre 2008

Re : Variables entre 2 Prg vba

Bonjour gds

regarde le code ci dessous si cela peut t'aider, à adapter à ton projet :

Code:

Option Explicit
Sub prog1()
Dim l As String, r As String
l = "c"
r = "Donnees"
prog2 l & ":\" & r
End Sub

Sub prog2(chemin As String)
MsgBox chemin
End Sub

bonne soirée
@+

jp14 · 16 Octobre 2008

Re : Variables entre 2 Prg vba

Bonsoir le forum
Bonsoir Pierrot93

Une autre piste.
Si les programmes sont indépendants ( fichier différents ), la solution plus simple est de passer l'information par la base de registre.
Le premier programme inscrit la valeur dans la base.
Le deuxième récupère l'information et supprime la clef.

Un exemple pour utiliser la base de registre en VBA
https://www.excel-downloads.com/thr...-maxi-de-trois-essai-en-vba-sous-excel.94726/

JP

JNP · 16 Octobre 2008

Re : Variables entre 2 Prg vba

Bonjour le forum 🙂,
"Tout simplement" par la base registre... Certainement efficace mais j'aurais un peu peur... Plus simplement, pourquoi ne pas utiliser le presse-papier?
Bonne soirée 😎

jp14 · 17 Octobre 2008

Re : Variables entre 2 Prg vba

Bonjour

Sans utiliser la base de registre on peut inscrire la valeur dans un fichier temporaire.

exemple ( voir aide vba)
Ecriture
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Set fs1 = CreateObject("Scripting.FileSystemObject")

fs1.CreateTextFile "cb1.tmp"
Set f1 = fs1.GetFile("cb1.tmp")
Set ts1 = f1.OpenAsTextStream(ForWriting, TristateUseDefault)

ts1.Write chemin
ts1.Close

Lecture
fileToOpen = Application.GetOpenFilename("Text Files (*.tmp)")
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Dim fs, f, ts, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(fileToOpen)
Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault)
s = ts.ReadAll
ts.Close

s contient le chemin

A tester

JP

Variables entre 2 Prg vba

gds35

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Discussions similaires

Variables entre 2 Prg vba

gds35

XLDnaute Impliqué

Pierrot93

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

jp14

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency