insertion donnees ds TEXTBOX

[gds35]

Salut a tout le forum ,

J'ai un tout petit soucis ....... voila je finalise une application qui tourne deja pas mal grace à vos conseils ..... il se trouve que je desire fermer un fichier excel avec l'affichage d'un chiffre d'affaire se trouvant ds le WorkS ouvert et le comparer avec un autre chiffre se trouvant ds un aitre WS ferme et introduire les resulats ds un UF qui contient 3 TextBox impossible d'y réussir. Je joint 2 fichiers le premier classeur1 est fichier maitre il contient les codes.

Encore Merci a tous. GDS35

 

[bqtr]

Re : insertion donnees ds TEXTBOX

Bonsoir gds35,

Un exemple.
La cellule à extraire du fichier 2 doit être connue à l'avance.
Tu parles de fermeture alors que tu as placé le code dans le Workbook.Open ?
Adapte le chemin du fichier 2, le nom du fichier 2, le nom de la feuille et la cellule à récupérer.

Private Sub UserForm_Initialize()

Dim Chemin As String, F As String, S As String, A As String

Sheets("01").Select
With Sheets("03")
    CABC.Text = Format(CDec(.Range("D12")), "# ###.00")
End With

'La fonction Extract est dans le module1
Chemin = ThisWorkbook.Path & "\" 'répertoire du fichier
F = "Classeur2.xls" 'Nom du fichier
S = "Feuil1" 'Nom de la feuille
A = "E8" 'Cellule à récupérer
TextBox2 = Format(CDec(Extract(Chemin, F, S, A)), "# ###.00")
TextBox3 = Format(CDec(CABC - TextBox2), "# ###.00")

End Sub

Function Extract(Chemin, File, Sheet, Ref)

Dim Cell As String
Cell = "'" & Chemin & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1").Address(, , xlR1C1)
Extract = ExecuteExcel4Macro(Cell)

End Function

Bonne soirée

 

[gds35]

Re : insertion donnees ds TEXTBOX

Merci mon Ami BqTr ,

J'ai placé ce code dans la WB Classeur , car mon désir est de faire la même chose à l'inverse ..... Encore un GRD MERCI je teste et te tient au courant , je n'ai pas encore tout compris mais mais essayer de me mettre à la page de la compréhension !!!!!! Bonne Soirée A+
GDS35

 

[gds35]

Re : insertion donnees ds TEXTBOX

Function Extract(Chemin, File, Sheet, Ref)

Dim Cell As String
Cell = "'" & Chemin & "[" & File & "]" & Sheet & "'!" & Range(Ref).Range("A1").Address(, , xlR1C1)
Salut j'ai pas tout compris étant novice je ne cesse d'apprendre mais suis mul ne comprends pas a quoi corresponde les ' [ ! entre "". Désolé de mon ignorance; merci de ton aide et A+ ainsi qu'au forum des gens si sympa. GDS35

 

[bqtr]

Re : insertion donnees ds TEXTBOX

Bonjour,

La macro correspond en fait à ceci : (comme si tu inscrivais cette formule dans ta feuille, cela crée un lien entre les deux classeurs.)

='C:\Ton Répertoire\[Ton_Fichier.xls]Feuil1'!A1

Pour rajouter les ',!,[ et ], et qu'ils soient reconnus en VBA il faut ajouter une guillemet " de chaque côté. ("[")
Pour reconstruire la formule il faut utiliser & entre chaque élément.

Les [] pour le nom du fichier
Les ' et ! pour le nom de la feuille au cas où il y aurait un espace dans le nom de celle ci.

http://jacxl.free.fr/cours_xl/cours_xl_jac.html#corresp_api Regarde ce lien : Les macros Excel 4

A+

 

[gds35]

Re : insertion donnees ds TEXTBOX

Merci BQTR , je vais plancher et trouver à quoi corresponds .Address(, , xlR1C1)
Je suppose que c'est l'ADR de la feuille courante en A1 ?????
Bon WE et merci . A+ GDS35

 

[bqtr]

Re : insertion donnees ds TEXTBOX

Re,

Les macros excel4 utilisent l'adressage des cellules sous la forme R1C1.
Range("A1").Address(, , xlR1C1) te permet d'utiliser une cellule sous la forme A1 (plus simple, enfin pour moi).

Extrait de l'aide :

[URL="https://www.excel-downloads.com/forums/"][IMG]http://www.excel-downloads.com/forum/mk:@msitstore:msohlp11.chm::/html/bluedrop.gif[/IMG][/URL]
[URL="https://www.excel-downloads.com/forums/"][IMG]http://www.excel-downloads.com/forum/mk:@msitstore:msohlp11.chm::/html/bluedrop.gif[/IMG]Propriété Address telle qu'elle s'applique à l'objet [B]Range[/B].[/URL]
  Cette propriété renvoie la référence de la plage dans le langage de la macro.  Propriété de type [B]String[/B] en lecture seule.
 [I]expression[/I].[B]Address[/B]([B][I]RowAbsolute[/I][/B], [B][I]ColumnAbsolute[/I][/B], [B][I]ReferenceStyle[/I][/B], [B][I]External[/I][/B], [B][I]RelativeTo[/I][/B])

[B][I]ReferenceStyle[/I][/B]     Argument[URL="https://www.excel-downloads.com/forums/"][B]XlReferenceStyle[/B][/URL] facultatif.

   XlReferenceStyle peut être l'une de ces constantes  XlReferenceStyle.
  [B]xlA1[/B] [I]par défaut[/I]. Utilisez [B]xlA1[/B] pour renvoyer une référence de style A1.
  [B]xlR1C1[/B]. Utilisez [B]xlR1C1[/B] pour renvoyer  une référence de style R1C1.

Les deux premiers arguments RowAbsolute et ColumnAbsolute
ne sont pas utilisés d'où les deux virgules dans Range("A1").Address(, , xlR1C1).

A+

 

[gds35]

Re : insertion donnees ds TEXTBOX

Salut BQTR ,

J'ai mis en place tes précieux conseil et tout fonctionne à merveille encore un immense merci de m'avoir transféré ton savoir . Bon WE.
GDS35