Discussion :

[Benouman]

Bonjour,
Je suis débutant en VBA, j'ai réussi à me débrouiller pour développer un script qui, à partir d'un formulaire, va chercher les informations d'un onglet afin de remplir le formulaire pour modifier le champs nom.
Mais ce que j'aimerai faire, c'est que le formulaire soit dans un fichier 1 et les données dans un autre fichier dans un autre emplacement.
J'ai essayé ce script sans succès, il y a quelque chose que je fais mal.

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
 
Private Sub btnModifier_Click()
 
btnEfface.Visible = False
btnSource.Visible = False
 
Dim Chemin As String, Fichier As String
 
'Chemin où se trouve le fichier à ouvrir
 Chemin = "http://espace.int.ca/workspaces/Coaching Logs/Base de données/"
 'Nom du fichier à ouvrir
 Fichier = "test.xlsx"
 
 'Empêche le raffraichissement de l'écran
 'Application.ScreenUpdating = False
 
 'Ouverture du fichier
Workbooks.Open Chemin & Fichier
 
 
 
With Workbooks(Fichier).Worksheets("base")
 
 If cboConseiller.Value = "" Then
  MsgBox "Vous avez oublié de saisir le NOM !"
 
  ' ici j'ai remarqué que si je cherche "a" même s'il n'existe pas il me donne le nom qui commence par "a"
 'en plus je cherche le code qui me permet de chercher s'il n'y a pas le nom cherche il me parait un message qui dit il n'y a pas ce nom
 
 'Exit Sub
End If
 
 
    Dim c As Range
    Dim drligne As Long
    drligne = .Range("c65000").End(xlUp).Row
    For Each c In .Range("c3:c" & drligne)
        If c.Text Like cboConseiller.Text Then
             Lig = c.Row
             cboConseiller = .Cells(Lig, "C")
             cboDir = .Cells(Lig, "D")
             cboCoach = .Cells(Lig, "E")
             cboÉquipes = .Cells(Lig, "F")
             cboSujet = .Cells(Lig, "G")
             cboÉlémentDeCoaching = .Cells(Lig, "H")
             txtCommentaire = .Cells(Lig, "I")
             txtDateDeSuivi = .Cells(Lig, "J")
 
       End If
Next
End With
End Sub

merci pour votre aide :0

[Transitoire]

Bonjour, " aide toi le ciel t'aidera" Proverbe bien connu!

Mais ce que j'aimerai faire, c'est que le formulaire soit dans un fichier 1 et les données dans un autre fichier dans un autre emplacement.
J'ai essayé ce script sans succès, il y a quelque chose que je fais mal.

Si vous voulez qu'on vous aide, il faudrait peut-être commencer par énoncer clairement les choses. "J'ai essayé ce script sans succès". Ca ne veut rien dire, ça n'explique rien? Qu'y a-t-il qui se passe mal. Des erreurs, des alertes, lesquelles? Sans parler du formulaire dans un fichier, les données dans un autre fichier dans un autre emplacement???
Quand nous en sauront plus sur vos souhaits, peut-être???
Avez vous lu les règles du forum, il serait bon que vous les lisiez. https://www.developpez.net/forums/f2...-aux-nouveaux/
Cordialement

[Benouman]

Je ne peux pas faire mieux, si tu n'as pas compris, c'est sure que tu ne peux pas m'aider... donc, évite de répondre à un message que tu ne comprends pas.
le scipt est claire et fonctionne, lorsque le formulaire et les données sont dans le même fichier, pas dans deux fichiers différents....

Cordialement...

[BENNASR]

bonsoir
permettez moi de répondre à cette discussion mais cette phrase je la trouve n'est pas à sa place

Je ne peux pas faire mieux, si tu n'as pas compris, c'est sure que tu ne peux pas m'aider... donc, évite de répondre à un message que tu ne comprends pas.

Transitoire est l'un des bénévoles qui aident les autres sans attendre ni un prix de NOBEL ni un virement bancaire à la fin du moins et sa réponse à ta demande n'a pour but que de t'aider à arriver à une solution
Merci de supprimer cette phrase, et à mon tour je vais supprimer cette intervention
Ce n'est que mon point de vue qui n'engage aucune personne
amicalement