Pb avec un filtre

[Pascale]

Bonjour à toutes et à tous,

j'ai fais le code suivant

fileToOpen = Application _
.GetOpenFilename(filefilter:='Classeur Microsoft Excel(*.xls),*.xls','Document Microsoft Word(*.doc),*.doc, Title:='Choix de fichier(s)', MultiSelect:=True)
'If fileToOpen <> False Then
' MsgBox 'Open ' & fileToOpen
'End If

mais mon filefilter fait defaut depuis que j'ai ajouter la définition des documents Word 'erreur de syntaxe'. Cette erreur doit être toute bête, mais je ne sais pas trop comment définir ce type de document.

Merci pour la correction.

Pascale

 

[lapix]

Il semblerait que ce soit juste un probleme de syntaxe.
Essaie ceci tu me quoi

fileToOpen = Application.GetOpenFilename _
(filefilter:='Classeur Microsoft Excel(*.xls),*.xls,Document Microsoft Word(*.doc),*.doc', _
Title:='Choix de fichier(s)', MultiSelect:=True)

 

[Pascale]

Bonjour Lapix, Re le forum,

Je n'es plus d'erreur, mais je n'est pas la possibiliter de sélectionner mes documents Word.

D'autre part, saurais tu comment s'appelle la variable dans laquelle es mis le nom de la sélection de cette boite de dialog:

Application.Dialogs(xlDialogSaveAs).Show

Merci Lapix, A+

Pascale

 

[lapix]

pour selectionner les documents word, tu dois changer la selection de l'extension dans le bas de la fenetre ouvrir.
si tu veux tous les fichiers je pense qu'il faut regarder avec les mso... mais je ne suis pas tres fort la dessus

 

[lapix]

Reponse a ta deuxieme question

essaie Application.GetSaveAsFilename qui je pense te donneras les memes resultats

avec les memes info que getopenfilename

 

[Pascale]

Re Lapix,

ok. J'avais trouver ce code quelque part

ouvrirfichiers = Application.GetOpenFilename _
(filefilter:='Classeur Microsoft Excel(*.xls),*.xls, PageWeb(*.htm:*.html),*.htm:*.html', _
Title:='Choix de fichier(s)', MultiSelect:=True)

et je voulais remplacer les pages web par des documents Word.

A+ Lapix

Pascale

 

[Pascale]

Re Lapix,

Désolé pour la colision

A+

Pascale