Remplir un userform depuis une feuille excel distante

[poups]

Bonjour,

Des personne me remplise une feuille de renseignements
J'aimerais me servir de cette feuille pour remplir un autre fichier via une userform
est -ce possible ?

J'ai testé ce code qui ne marche pas évidement

Sub TEST()

User = Application.UserName
Chemin = "C:\Users\" & User & "\Desktop\"

Set C_Source = Workbooks("essai.xlsm")

Workbooks.Open "C:\Users\" & User & "\Desktop\Projet SFF 2014-V1.2.xlsm"

C_Destination = ActiveWorkbook

'C_Destination = "C:\Users\" & User & "\Desktop\Projet SFF 2014-V1.2.xlsm"

'Transfert PAGE DE GARDE

C_Destination.Ouverture_DI.TBQM.Caption = C_Source.Worksheets("feuil1").Range("A3").Value


End Sub

Ouverture_DI => Userform dans le fichier destination
TBQM => Text Box dans l'userform destination

merci d'avance de votre aide
Poups

 

[poups]

Avec deux fihier exemples c'est mieux !

 

[Paf]

Re : Remplir un userform depuis une feuille excel distante

bonjour,

pas tout compris: le but est d'envoyer le contenu d'une cellule d'un classeur X dans une textbox sur userform de classeur Y?

si c'est le cas une discussion semblable:
https://www.excel-downloads.com/thr...rm-dun-autre-fichier-depuis-une-macro.166321/

mais ce serait plus simple de faire l'inverse: récupérer, depuis un userform d'un classeur Y, la valeur d'une cellule d'un classeur X.

A+

 

[poups]

Re : Remplir un userform depuis une feuille excel distante

C'est exactement cela !
L'inverse nme pose pas de PB, je sais faire ...
J'aimerais dans ce sens la ...
Je regarderais la discution ce soir
merci Paf !

 

[bbb38]

Re : Remplir un userform depuis une feuille excel distante

Bonjour poups, Paf, le forum,
Au hasard, car je ne suis pas certain d’avoir compris ta demande.
Les deux fichiers doivent être dans le même répertoire.
Cordialement,
Bernard

 

[poups]

Re : Remplir un userform depuis une feuille excel distante

Bonjour bbb38,
C'est exactement cela que je voulais !!

Explication :
Mon fichier "destination" ouvre un Userform a l'ouverture du fichier (il est d'ailleur ouvert en permanance pour l'organisation du travail quotidien du service)
Le fichier "source" est en réalité une demande mission extérieur pour le service, se qui m'évite de resaisir manuellement toute les infos dans le fichier destination dans l'userform.

Question :
L'exécution de mon userform, m'enpeche d'ouvrir le fichier source
Est ce possible d'arrêter l'exécution de VB sur le classeur source et/ou de laisser actif excel en arrière plan ?

Merci beaucoup de votre aide
Poups

 

[poups]

Re : Remplir un userform depuis une feuille excel distante

En faite j'ai testé et ce n'ai pas vraimant ce que je voulais ....
tu envoies une cellule de la feuille dans un userform de la même feuille qui va envoyé l'info sur une un autre fichier

Moi j'aimerais :
Mon Userform est dans le fichier destination
La source est la feuille excel (fichier source + bouton avec un bouton je dois envoyer et remplir l'userform d'un classeur destination

une idée ?

merci poups

 

[Dranreb]

Re : Remplir un userform depuis une feuille excel distante

Bonsoir.
À mon avis c'est l'Userform du classeur destination qui doit se charger de récupérer l'information, et le classeur source se borne à l'écrire dans un petit fichier texte au moyen d'un instruction Open DossierDeCommunication & "\" & Format(Now, "yymmddhhmmss") & ".txt" For Output Access Write As #1, puis quelques Print #1, DonnéeÉlémentaire et termine tout ça par Close #1

 

[poups]

Re : Remplir un userform depuis une feuille excel distante

Bonjour Dranreb,
Aurrais tu par assard un exemple dans tes archives ?
Merci d'avance
Poups

 

[Dranreb]

Re : Remplir un userform depuis une feuille excel distante

Bonjour.
Non, je n'ai pas.
Mais commencer par faire des essais de lecture et d'écriture de petits fichiers texte sur un dossier de communication. Pour l'Open d'un fichier en lecture c'est pareil sauf qu'il faut For Input Access Read As #1 à la fin.