Ouverture boite dialogue pour choisir fichier excel

[vidou]

Bonjour,

J'ai le code suivant qui m'ouvre le fichier excel S22.xls mais je souhaiterais modifier cela pour que la fenetre reste ouverte sur

"\\llecq02\Bureautique\Fichiers_Bureautique\ADMINISTRATIF\INTERIM\heures_reelles_SEMAINE"

afin que je puisse selectionner le fichier à ouvrir

'
    ChDir _
        "\\llecq02\Bureautique\Fichiers_Bureautique\ADMINISTRATIF\INTERIM\heures_reelles_SEMAINE"
    Workbooks.Open Filename:= _
        "\\llecq02\Bureautique\Fichiers_Bureautique\ADMINISTRATIF\INTERIM\heures_reelles_SEMAINE\S22.XLS"

En vous remerciant

 

[Pierrot93]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

regarde peut être ceci :

With Application.FileDialog(msoFileDialogFilePicker)
    '.InitialFileName = ActiveWorkbook.Path & "\"
    .Show
    If .SelectedItems.Count > 0 Then Workbooks.Open .SelectedItems(1)
End With

bon après midi
@+

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

Merci bcp ca fonctionne tres bien

bonne journée

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

Est il possible d'avoir la meme chose pour avoir la fenetre enregistrer sous avec le meme chemin ?

Vous remerciant par avance

Vidou

 

[kiki29]

Salut, voir dans les options de FileDialog via l'aide en ligne msoFileDialogSaveAs

Extrait de l'aide

fileDialogType Argument de type MsoFileDialogType obligatoire. Type de la boîte de dialogue de fichiers.

MsoFileDialogType peut être l'une de ces constantes MsoFileDialogType.
msoFileDialogFilePicker Permet à l'utilisateur de sélectionner un fichier.
msoFileDialogFolderPicker Permet à l'utilisateur de sélectionner un dossier.
msoFileDialogOpen Permet à l'utilisateur d'ouvrir un fichier.
msoFileDialogSaveAs Permet à l'utilisateur d'enregistrer un fichier.

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

J'ai bien trouvé cela mais je dois ajouter le chemin de destination car pour le moment il ouvre la boite ou se trouve le fichier utilisé !

With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 4
.Show
End With

 

[kiki29]

Re,

.....
Dim sChemin As String
    sChemin = le chemin ou sauver ton fichier .....
    ChDir sChemin
.....

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

Il y a quelque chose que je n'arrive pas a comprendre car en mettant le code, avant apres, entre deux , rien ne va

Sheets("NOTICE").Range("A1").Select



Dim sChemin As String
sChemin = "\\llecq02\Bureautique\Fichiers_Bureautique"
ChDir sChemin
With Application.FileDialog(msoFileDialogSaveAs)
.FilterIndex = 4
.Show
End With

 

[Pierrot93]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

regarde ceci :

With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .FilterIndex = 4
    .Show
End With

bo n après midi
@+

 

[kiki29]

re,pour les chemins UNC , qqch comme

Option Explicit

Private Declare Function SetCurrentDirectory Lib "kernel32" Alias "SetCurrentDirectoryA" ( _
                                             ByVal lpPathName As String) As Long


Dim strCurDir As String

    strCurDir = CurDir
    SetCurrentDirectory "\\llecq02\Bureautique\Fichiers_Bureautique"

    ......
    
    ChDir strCurDir

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

Desole d'insister mais ou je m'ai le chemin de destination ?

Bonjour,

regarde ceci :

With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = ActiveWorkbook.Path & "\"
    .FilterIndex = 4
    .Show
End With

bo n après midi
@+

 

[kiki29]

Re,voir également sur https://www.excel-downloads.com/threads/chdir-et-chemin-reseau.77372/

 

[Pierrot93]

Re : Ouverture boite dialogue pour choisir fichier excel

Re,

fonctionne également comme ceci chez moi..;

With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "\\nomserveur\rep1\rep2\"
    .FilterIndex = 4
    .Show
End With

 

[vidou]

Re : Ouverture boite dialogue pour choisir fichier excel

BOnjour,

La boite s'ouvre bien au chemin indiqué mais l'enregistrement n'est pas pris en compte

Re,

fonctionne également comme ceci chez moi..;

With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "\\nomserveur\rep1\rep2\"
    .FilterIndex = 4
    .Show
End With

 

[Pierrot93]

Re : Ouverture boite dialogue pour choisir fichier excel

Re,

With Application.FileDialog(msoFileDialogSaveAs)
    .InitialFileName = "\\nomserveur\rep1\rep2\"
    .FilterIndex = 4
    .Show
    If .SelectedItems.Count > 0 Then ActiveWorkbook.SaveAs .SelectedItems(1)
End With