Ouverture boite dialogue pour choisir fichier excel

vidou · 17 Juin 2011

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

Code:

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

afin que je puisse selectionner le fichier à ouvrir

Code:

'
    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 · 17 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

regarde peut être ceci :

Code:

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

bon après midi
@+

vidou · 17 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Merci bcp ca fonctionne tres bien

bonne journée

vidou · 20 Juin 2011

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 · 20 Juin 2011

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 · 20 Juin 2011

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 · 20 Juin 2011

Re,

Code:

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

vidou · 20 Juin 2011

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 · 20 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

regarde ceci :

Code:

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

bo n après midi
@+

kiki29 · 20 Juin 2011

re,pour les chemins UNC , qqch comme

Code:

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 · 20 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Bonjour,

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

Pierrot93 à dit:
Bonjour,

regarde ceci :

Code:

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

bo n après midi
@+

kiki29 · 20 Juin 2011

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

Pierrot93 · 20 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Re,

fonctionne également comme ceci chez moi..;

Code:

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

vidou · 20 Juin 2011

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

Pierrot93 à dit:
Re,

fonctionne également comme ceci chez moi..;

Code:

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

Pierrot93 · 20 Juin 2011

Re : Ouverture boite dialogue pour choisir fichier excel

Re,

Code:

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

Ouverture boite dialogue pour choisir fichier excel

vidou

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

vidou

XLDnaute Junior

vidou

XLDnaute Junior

kiki29

XLDnaute Barbatruc

vidou

XLDnaute Junior

kiki29

XLDnaute Barbatruc

vidou

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

kiki29

XLDnaute Barbatruc

vidou

XLDnaute Junior

kiki29

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

vidou

XLDnaute Junior

Pierrot93

XLDnaute Barbatruc

Discussions similaires