IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[VBA-E] Application Get Save As Filename


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut [VBA-E] Application Get Save As Filename
    Bonjour,

    A la fin d'une macro, j'utilise ce code pour ouvrir une boite "enregistré sous" :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    Dim FName As Variant
    Dim Sep As String
    FName = Application.GetSaveAsFilename("C:\Documents and Settings\All Users\Bureau\Prospective_JJMMAAAA", fileFilter:="Text Files (*.txt), *.txt")
    If FName = False Then
        MsgBox "Export annulé"
        Exit Sub
    End If
    ExportToTextFile CStr(FName), Sep, vbYesNo = vbNo
    End Sub
    Idéalement, je souhaite faire un enregistré "tout court" avec, à la place de JJMMAAAA, les éléments d'une cellule de mon tableau Excel... Comment faire ?

    D'avance merci pour vos aides,
    Slt,
    Matthieu

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    si le chemin est toujour le même, utilise plutot saveas
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    chemin = ThisWorkbook.Path & "\"
    ActiveWorkbook.SaveAs Filename:=chemin & nomclasseur, FileFormat:=xlText

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut
    Merci,
    Et comment récupérer le contenu d'une cellule (d'un autre onglet) dans le nom du fichier ?

  4. #4
    Membre Expert
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    1 567
    Détails du profil
    Informations personnelles :
    Âge : 62
    Localisation : France

    Informations forums :
    Inscription : Novembre 2006
    Messages : 1 567
    Par défaut
    ça c'est facile pourtant, fais un effort
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    nomclasseur = worksheets("autrefeuile").cells(2,1).value
    chemin = ThisWorkbook.Path & "\"
    ActiveWorkbook.SaveAs Filename:=chemin & nomclasseur, FileFormat:=xlText

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2007
    Messages
    21
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Janvier 2007
    Messages : 21
    Par défaut
    Parfait, merci !
    Je n'y connais pas grand chose, désolé si les questions paraissent d'une simplicité évidente !
    Merci encore,
    Matthieu

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 11
    Dernier message: 27/06/2006, 17h04
  2. [VBA-A] Applications ouvertes
    Par TiT0f dans le forum VBA Access
    Réponses: 18
    Dernier message: 09/06/2006, 09h06
  3. [VBA-EXCEL] Application.FileSearch
    Par sygale dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 18/05/2006, 15h57
  4. [VBA-E] Application Excel ou Access
    Par Observatoire dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 20/03/2006, 12h00
  5. VBA et application Excel
    Par BonyR dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 22/09/2005, 09h31

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo