Discussion :

[ThSPB]

Bonjour,
Je démarre sur un nouveau projet. Je sais a peu près ce que je veux mais sans trop de précision.
Ma demande :
Quel code pour aller chercher un fichier xls, n'importe où sur le poste de travail (Disque C, D, Perso ou externe). je pense envoyer la recherche sur le poste de travail, puis après la recherche se fait manuellement.
Ensuite je souhaite aller sur la feuille Wsite du fichier trouvé et ouvert pour récupérer les données de la feuille Wsite plage D11 à D90 et importer ces données dans le fichier en cours (Synthèse V10) puis dans la feuille "Data_Base_EC_Wsite" sur la cellule "B8".
J'essaye avec le code suivant ;

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
Sub OuvreEC()
'
' OuvreEC Macro
'
 
CheminComplet = ""
NomFichier = ""
 
With Application.FileDialog(msoFileDialogOpen)
 
    .InitialFileName = CurDir()
    .AllowMultiSelect = False
    .Filters.Add "Fichiers Excel", "*.xls", 1
    .Show
   End With
 
    End Sub

, mais sans grand succès car j'arrive à "Mes documents"
Il me reste à récupérer le nom du chemin, mais ceci est une autre histoire ou un autre code qui passera certainement du coté de "SelectedIdems". Dans l'immédiat pouvez vous me donner la bonne adresse pour aller sur le poste de travail

[rvtoulon]

Bonjour,
pour ouvrir le poste de travil par macro :

Code :

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

1
2
3
Sub ouvrir_poste_travail()
Shell "explorer.exe ,/root,", vbNormalFocus
End Sub

[ThSPB]

OK, c'est nettement plus simple
Je teste
Merci