Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel selectionner des fichiers

selectionner des fichiers

3 réponses
Avatar
lauxeti
Bonsoir,

Dans un prog, ...

MsgBox ("Ouvrir P:\..\OUTILS\RESULTATS\date . Choisir les fichiers
*LIB*. zip et *PROD*.zip )

Je cherche =E0 selectionner avec ...

fname =3D Application.GetOpenFilename(filefilter:=3D"Zip Files (*.zip),
*.zip", _
MultiSelect:=3DTrue)

Comment integrer ce choix dans la ligne fname =3D
Application.GetOpenFilename(filefilter:=3D"Zip Files (*.zip), *.zip",
MultiSelect:=3DTrue) ?

Avez vous une id=E9e ?

Merci

Le Lauxeti
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.C
Bonjour.
Si j'ai bien compris ce que tu veux, ce n'est directement possible. Si tu
lis l'anglais, il y a un contournement :
http://www.xcelfiles.com/comdlg.html
Cordialement.
Daniel
"lauxeti" a écrit dans le message de news:

Bonsoir,

Dans un prog, ...

MsgBox ("Ouvrir P:..OUTILSRESULTATSdate . Choisir les fichiers
*LIB*. zip et *PROD*.zip )

Je cherche à selectionner avec ...

fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip),
*.zip", _
MultiSelect:=True)

Comment integrer ce choix dans la ligne fname Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip",
MultiSelect:=True) ?

Avez vous une idée ?

Merci

Le Lauxeti
Avatar
MichDenis
Je n'ai pas vraiment saisi le sens de ta question mais ceci
ne répond pas à ta question ?


Sub OpenMultipleFiles()

Dim S(), LesFiltres As String
Dim Title As String
Dim x As Integer, FilterIndex As Integer
Dim Filename ' As Variant

LesFiltres = "Excel Files (*.xls),*.xls," & _
"Zip Files (*.zip), *.zip," & _
"Text Files (*.txt),*.txt," & _
"All Files (*.*),*.*"
'OU
'LesFiltres = "Zip Files (*.zip), *.zip" & _
"Excel Files (*.xls),*.xls,"

'Filtre par défaut *.* -> All Files
FilterIndex = 2

'Titre de la boîte de dialogue
Title = "Sélectionner les fichiers à ouvrir..."

'Pour sélectionner le lecteur
CurDir "c:"
'Pour sélectionner le répertoire à l'ouverture
ChDir "c:"

Filename = Application.GetOpenFileName(FileFilter:=LesFiltres, _
FilterIndex:=FilterIndex, Title:=Title, MultiSelect:=True)

If TypeName(Filename) = "Boolean" Then
Exit Sub
Else
For x = LBound(Filename) To UBound(Filename)
If LCase(Right(Filename(x), 4)) = ".zip" Then
'J'ai supposé que tu utilisais Winzip... le chemin
'de l'exécutable peut être différent sur ton ordi...
'Si tu as plusieurs fichiers zip, seules les fichiers
'du dernier zip sélectionné vont apparaître dans la fenêtre de winzip.
Shell "C:Program FilesWinZipWINZIP32.EXE " & Filename(x), vbNormalFocus
Else
MsgBox Filename(x)
'OU
'Workbooks.Open Filename
End If
Next
End If
End Sub





"lauxeti" a écrit dans le message de news:

Bonsoir,

Dans un prog, ...

MsgBox ("Ouvrir P:..OUTILSRESULTATSdate . Choisir les fichiers
*LIB*. zip et *PROD*.zip )

Je cherche à selectionner avec ...

fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip),
*.zip", _
MultiSelect:=True)

Comment integrer ce choix dans la ligne fname Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip",
MultiSelect:=True) ?

Avez vous une idée ?

Merci

Le Lauxeti
Avatar
lauxeti
On 10 juin, 16:40, "MichDenis" wrote:
Je n'ai pas vraiment saisi le sens de ta question mais ceci
ne répond pas à ta question ?

Sub OpenMultipleFiles()

Dim S(), LesFiltres As String
Dim Title As String
Dim x As Integer, FilterIndex As Integer
Dim Filename ' As Variant

LesFiltres = "Excel Files (*.xls),*.xls," & _
        "Zip Files (*.zip), *.zip," & _
        "Text Files (*.txt),*.txt," & _
        "All Files (*.*),*.*"
'OU
'LesFiltres = "Zip Files (*.zip), *.zip" & _
    "Excel Files (*.xls),*.xls,"

'Filtre par défaut *.* -> All Files
FilterIndex = 2

'Titre de la boîte de dialogue
Title = "Sélectionner les fichiers à ouvrir..."

'Pour sélectionner le lecteur
CurDir "c:"
'Pour sélectionner le répertoire à l'ouverture
ChDir "c:"

Filename = Application.GetOpenFileName(FileFilter:=LesFiltres, _
            FilterIndex:=FilterIndex, Title:=Title, MultiS elect:=True)

If TypeName(Filename) = "Boolean" Then
    Exit Sub
Else
    For x = LBound(Filename) To UBound(Filename)
        If LCase(Right(Filename(x), 4)) = ".zip" Then
            'J'ai supposé que tu utilisais Winzip... le chem in
            'de l'exécutable peut être différent sur ton ordi...
            'Si tu as plusieurs fichiers zip, seules les fichi ers
            'du dernier zip sélectionné vont apparaître dans la fenêtre de winzip.
            Shell "C:Program FilesWinZipWINZIP32.EXE " & Fi lename(x), vbNormalFocus
        Else
            MsgBox Filename(x)
            'OU
            'Workbooks.Open Filename
        End If
    Next
End If
End Sub

"lauxeti" a écrit dans le message de news:

Bonsoir,

Dans un prog, ...

MsgBox ("Ouvrir P:..OUTILSRESULTATSdate .  Choisir les fichiers
*LIB*. zip et *PROD*.zip )

Je cherche à selectionner avec   ...

  fname = Application.GetOpenFilename(filefilter:="Zip Files (*.zip) ,
*.zip", _
                                        MultiSelect:=True)

Comment integrer ce choix dans la ligne fname =
Application.GetOpenFilename(filefilter:="Zip Files (*.zip), *.zip",
MultiSelect:=True) ?

Avez vous une idée ?

Merci

Le Lauxeti


Bonsoir,
J'ai trouvé la meme chose , mais je souhaitais faire une preselection
de certains fichiers zip
la selection multiple fonctionne tres bien mais la liste des fichiers
zip est trop longue .