Discussion :

[capi81]

Salut le forum

J'ai deux fichiers.
Le premier intitulé DEPART et le second ARRIVE.
Le premier fichier contient un usf et je souhaite que la valeur du textbox1 soit la valeur de la cellule A2 du second fichier (sachant que ce fichier se trouve dans un dossier "ZOMB" du disque local C).
J'allais pouvoir m'en sortir si la valeur du textbox1 était dans une feuille du même fichier mais fichier différents je ne sais pas.
NB : la solution devra prendre en compte la possibilité que le fichier ARRIVE soit fermé ou ouvert.

Merci pour vos contributions

[pastis.vi]

Bonjour capi,

tu places ce code dans ton userform et le tour est joué :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub UserForm_Initialize()
 
Workbooks.Open ("C:\Users\toto\Desktop\ZOMB\ARRIVEE.xlsx")
TextBox1 = Workbooks("ARRIVEE.xlsx").Sheets("Feuil1").Range("A2").Value
 
End Sub

Il est possible d'utiliser des variables pour les chemins et noms mais ça te donne le résonnement.

[capi81]

Salut pastis.vi

Merci pour votre solution et je m'excuse du temps mis pour répondre.
Je viens de tester mais ta solution comporte des limite.
Si le fichier est déjà ouvert, il y'a un débogage.
Il faut noter que le fichier se trouve dans un espace commun (OPENSPACE) ce qui signifie que si quelqu'un l'ouvre déjà, il ne fonctionne pas. C'est une base de donnée.
Je souhaite une solution inter-agissant avec une base de donnée.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub userform_initialize()
 
OpenConnexion Fichier
 
Cnx.Close
Set Cnx = Nothing
End Sub

A partir du bout de code ci-dessus quelqu'un pourrait-il m'aider pour qu'à l'ouverture de mon usf, le textbox1 prenne la valeur de la feuille FORMULE!A2?
Le nom de l'entête (en A1) de la feuille FORMULE est "NUM_OPPORTUNITE"
Merci pour vos éventuelles contributions

[Invité]

Bonjour,
je ne comprends pas ce que tu veux faire.
ajouter et/ou modifier des ligne dans un fichier partagé?

en utilisant ADO pour éviter d'ouvrir et refermer le fichier si il est ouvert par un autre utilisateur?

[capi81]

Bonsoir rdurupt et le forum

Merci pour votre intervention. Il faut dire que j'ai un usf de facturation qui se trouve dans le fichier "Depar". Je souhaite faire apparaitre le numéro de la facture qui se trouve dans le fichier "arrivé" et plus précisément dans la cellule a2 de la feuille "formule". Le nom de l'entête en a1 sintitule Num_opport.
Comment faire pour qu'à l'ouverture de mon usf, le numéro de la facture s'affiche dans le textbox1?
Merci

[Invité]

Bonjour,
je suis parti du principe que le N° Facture était toujours en A2!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub UserForm_Initialize()
Me.TextBox1 = numeroFacture("C:\MyTest\Classeur2.xlsx", "Feuil1", "A2")
End Sub
Function numeroFacture(Classeur As String, Feuille As String, Celulle As String) As String
Dim Cn As Object
Dim Sql As String
Dim RS As Object
If Right(Feuille, 1) <> "$" Then Feuille = Feuille & "$"
 Set Cn = CreateObject("ADODB.Connection")
  With Cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
            & Classeur & ";Extended Properties=""Excel 12.0;HDR=NO;"""
        .Open
    End With
 ' Cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ=" & Classeur
  Sql = "select  * From [" & Feuille & Celulle & ":" & Celulle & "] "
  Set RS = CreateObject("ADODB.RecordSet")
  RS.Open Sql, Cn
  If RS.EOF = False Then numeroFacture = RS(0).Value
  RS.Close
  Cn.Close
  Set RS = Nothing
  Set Cn = Nothing
End Function

[capi81]

Bonjour rdurupt

Merci pour le code.
Je viens de le tester mais je rencontre un message d'erreur du genre:

Le moteur de base de données Microsoft Access n’a pas pu trouver l’objet Feuil4$A2 :A2. Vérifiez qu’il existe et que vous avez correctement entré son nom et son chemin d’accès. Si Feuil4$A2 :A2 n’est pas un objet local, vérifiez la connexion réseau, ou contactez l’administrateur du serveur

Y a-t-il des adaptations à faire?
Comme vous le savez déjà, le chemin d'accès de mon fichier est le suivant:

"C:\ZOUM\BASE_DE_DONNEES.xlsx"

Je reste à votre disposition pour tout complément d'informations
Cordialement

[Invité]

Bonjour,
la feuille ou ce trouve le N° Facture s'appelle Feuil4? ou Facture? ou data? ou que s'ais-je?

quel est le nom de l'onglet?

Me.TextBox1 = numeroFacture("C:\ZOUM\BASE_DE_DONNEES.xlsx", "Facture", "A2")

[capi81]

Bonjour rdurupt

Le nom de l'onglet est "FORMULE".
J'ai corrigé et ca fonctionne comme je le souhaitais.
Quelles sont toujours merveilleuses vos solutions.
Que DIEU vous bénisses