selectionner des fichiers

Le
lauxeti
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #6869581
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"
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
MichDenis
Le #6871561
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"
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
lauxeti
Le #6878191
On 10 juin, 16:40, "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, 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"
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 .

Publicité
Poster une réponse
Anonyme