Discussion :

[familledacp]

Bonsoir à tous et toutes

J'ai cherché sur le site la réponse à la question ci dessus mais n'ai rien trouvé

J'ai un fichier comprenant une liste de locaux

J'ai par ailleurs un fichier comprenant des machines et je souhaite préciser le local dans lequel elles se trouvent. Il me semble que la liste de validation (ou de choix) est la solution, mais je ne trouve pas comment créer cette liste directement à partir du fichier "locaux"

Est ce possible ?

Merci d'avance pour votre aide

Daniel S

[mercatog]

Bonjour
Copie le feuille contenant la liste des locaux dans ton fichier (que tu peux cacher, la feuille).

[familledacp]

Bonjour

Merci Mercatog pour ta réponse

Et je suppose que tout cela peut s'automatiser par une macro, du style, quand j'ouvre le fichier "machines", cela met à jour automatiquement la liste des locaux

Je cherche dans cette direction

Daniel S

Bonjour

Voici le code que j'ai écrit
Ce matin, il fonctionnait bien
Ce soir, il ne fonctionne plus

Code :

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

1
2
3
4
5
6
7
Sub Bouton2_Clic()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Open(Filename:="Locaux.xls")
Wbk2.Worksheets("LOC").Range("A2:A200").Copy Wbk1.Worksheets("ListeLocaux").Range("A2:A200")
Wbk2.Close
End Sub

L'erreur vient de la 4e ligne : j'ai un message d'erreur disant que locaux.xls est introuvable
Il est pourtant dans le même répertoire que le fichier ouvert (Wbk1) et il est bien fermé

Avez vous une explication ?

Merci pour votre aide

Daniel S

[familledacp]

Re Bonjour

J'ai trouvé en furetant sur le net

Code :

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

1
2
3
4
5
6
7
8
Sub Bouton2_Clic()
Dim Wbk1 As Workbook, Wbk2 As Workbook
Path = ThisWorkbook.Path & "\"
Set Wbk1 = ThisWorkbook
Set Wbk2 = Workbooks.Open(Path & "Locaux.xls")
Wbk2.Worksheets("LOC").Range("A2:A200").Copy Wbk1.Worksheets("ListeLocaux").Range("A2:A200")
Wbk2.Close
End Sub

A bientot pour d'autres questions surement

Daniel S