Ouvrir un repertoire définie dans une cellule

[tchangy71]

Bonjour,

Je recherche une macro qui me permet d'ouvrir un répertoire (sur le dd de mon pc) a partir d'un classeur excel.

Dans ce classeur le chemine du répertoire à ouvrir est dans une feuille "donnees" et en B2 !

Merci d'avance pour votre aide !!

Cordialement,

Phlippe

 

[Pierrot93]

Re : Ouvrir un repertoire définie dans une cellule

Bonjour,

peut être ainsi, si j'ai bien compris :

With Application.FileDialog(msoFileDialogFilePicker)
    .InitialFileName = ActiveWorkbook.Sheets("donnees").Range("B2").Value & "\"
    .Show
End With

bonne soirée
@+

 

[tchangy71]

Re : Ouvrir un repertoire définie dans une cellule

Merci beaucoup,

Pour compléter cette dernière est il possible que lorsque je sélectionne un classeur (à partir de la fenêtre issue du code précèdent) celui ci se copie automatiquement (avec un nom provisoire, une autre macro me permettra de le renommer a partir d'une cellule à l'intérieur du classeur ouvert) et ainsi de me l'ouvrir ???

 

[Pierrot93]

Re : Ouvrir un repertoire définie dans une cellule

Bonjour,

regarde ceci, à adapter à ton projet :

Option Explicit
Sub test()
Dim fichier As String, temp As String, wb As Workbook
With Application.FileDialog(msoFileDialogFilePicker)
    '.InitialFileName = ActiveWorkbook.Sheets("donnees").Range("B2").Value & "\"
    .InitialFileName = ActiveWorkbook.Path & "\"
    .Show
    If .SelectedItems.Count = 1 Then fichier = .SelectedItems(1) Else Exit Sub
End With
temp = ActiveWorkbook.Path & "\temp.xls"
FileCopy fichier, temp
Set wb = Workbooks.Open(temp)
'tes actions
wb.Close False
'suppression du fichier temporaire
Kill temp
End Sub

bonne journée
@+