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
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 )
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
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" <ybrunet@wanadoo.fr> a écrit dans le message de news:
a19df7e4-e2f6-463b-9fa2-effcb5b3f66c@2g2000hsn.googlegroups.com...
Bonsoir,
Dans un prog, ...
MsgBox ("Ouvrir P:..OUTILSRESULTATSdate . Choisir les fichiers
*LIB*. zip et *PROD*.zip )
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 )
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 )
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" <ybrunet@wanadoo.fr> a écrit dans le message de news:
a19df7e4-e2f6-463b-9fa2-effcb5b3f66c@2g2000hsn.googlegroups.com...
Bonsoir,
Dans un prog, ...
MsgBox ("Ouvrir P:..OUTILSRESULTATSdate . Choisir les fichiers
*LIB*. zip et *PROD*.zip )
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 )
'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 )
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 .
On 10 juin, 16:40, "MichDenis" <michde...@hotmail.com> 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
'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" <ybru...@wanadoo.fr> a écrit dans le message de news:
a19df7e4-e2f6-463b-9fa2-effcb5b3f...@2g2000hsn.googlegroups.com...
Bonsoir,
Dans un prog, ...
MsgBox ("Ouvrir P:..OUTILSRESULTATSdate . Choisir les fichiers
*LIB*. zip et *PROD*.zip )
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 .
'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 )
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 .