GetSaveAsFilename et GetOpenFilename moi pas compr

[Nann]

Bonsoir,

encore moi, débutant depuis peut sous vba, heureusement certains arrive a m'aider ( Hellboy et Hervé ) [au fait merci encore à tous les deux vos vba fonctionne parfaitement j'ai du mal à comprendre le fonctionnement de certaine parti mais bon faut si collé]

Je ne comprend pas trop GetSaveAsFilename et GetOpenFilename, je voudrais pouvoir ouvrir certain type de fichier (restriction des extension ) chose que j'arrive à peut près mais je n'arrive pas à l'enregistrer sous un nom X avec une extension xls ou autres [restriction encore ]

quelqu'un peut m'aider car du coup, je fonctionne (enfin la macro avec Dialogs(xlDialogSaveAs).Show qui me chagrine..

Merci encore d'avance..
en pj ma macro sous le fichier xls [file name=Classeur2_20051013201226.zip size=6582]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur2_20051013201226.zip[/file]

 

[Hellboy]

Bonjour Nann


Ton GetopenFileName semble impec.

Parcontre je ne sais exactement ce que tu veux faire pour le Getsave asFileName

Je me demande pourquoi ceci ne marche pas pour toi:

        Range('A1').Select
        ActiveWorkbook.SaveAs Filename:=fichier_ouvert_origine, FileFormat:=xlNormal, _
                Password:='', WriteResPassword:='', ReadOnlyRecommended:=False, CreateBackup:=True

a+

 

[Nann]

Bonjour Hellboy,

En fait, je voudrais pouvoir modifier le nom de l'enregistrement
comme avec Dialogs(xlDialogSaveAs). mais en plus ne faire selectionner que quelques extension non pas toutes.

Merci.