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 :

enregistrer sous automatiquement


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Décembre 2005
    Messages
    134
    Détails du profil
    Informations forums :
    Inscription : Décembre 2005
    Messages : 134
    Par défaut enregistrer sous automatiquement
    Bonjour,

    Je souhaiterai faire une macro qui me permette d'enregistrer un document automatiquement. En fait, je voudrai cliquer sur un bouton et que ça m'ouvre une fenêtre parcourir pour l'enregistrer et que ça me mette par défaut un nom de fichier préalablement récupérer dans une cellule.

    J'ai commencé à coder ceci mais après je bloque :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Sub enreg_sous()
        nom_fichier = .Range("G47")
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Documents and Settings\...\Bureau\'" & nom_fichier & "'", FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
    End Sub
    je ne sais pas si c'est possible à faire. Quelqu'un peut-il m'aider svp ???
    Merci d'avance.

  2. #2
    Expert confirmé
    Avatar de fring
    Homme Profil pro
    Engineering
    Inscrit en
    Février 2008
    Messages
    3 900
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Belgique

    Informations professionnelles :
    Activité : Engineering

    Informations forums :
    Inscription : Février 2008
    Messages : 3 900
    Par défaut
    Bonjour,

    Teste ceci :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub test_saveas()
    Dim cheminpardefaut As String, nompardefaut As String
     
    cheminpardefaut = "C:\Documents and Settings\...\Bureau\"
    nompardefaut = Range("G47") & ".xls"
     
    NomFichier = Application.GetSaveAsFilename(cheminpardefaut & nompardefaut, "Fichiers Excel,*.xls", , "Enregistrement du fichier")
    If NomFichier = False Then Exit Sub
     
    ActiveWorkbook.SaveAs Filename:=NomFichier, FileFormat:=xlWorkbookNormal
    End Sub

  3. #3
    Expert confirmé Avatar de casefayere
    Homme Profil pro
    RETRAITE
    Inscrit en
    Décembre 2006
    Messages
    5 138
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Ardennes (Champagne Ardenne)

    Informations professionnelles :
    Activité : RETRAITE
    Secteur : Agroalimentaire - Agriculture

    Informations forums :
    Inscription : Décembre 2006
    Messages : 5 138
    Par défaut
    Bonjour
    'xls => a toi de voir
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    Sub enreg_sous()
    Dim nom_fichier As String
    With Sheets("feuil1")
        nom_fichier = .Range("G47")
        ActiveWorkbook.SaveAs Filename:= _
            "C:\Documents and Settings\...\Bureau\" & nom_fichier & ".xls", FileFormat:= _
            xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
            , CreateBackup:=False
    End With
    End Sub
    Cordialement,
    Dom
    _____________________________________________
    Vous êtes nouveau ? pour baliser votre code, cliquer sur cet exemple : Anomaly
    pensez à cliquer sur :resolu: si votre problème l'est
    Par contre, il est désagréable de voir une discussion résolue sans message final du demandeur (satisfaction, désarroi, remerciement, conclusion...)

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

Discussions similaires

  1. Enregistrer sous Automatique Fichier Excel depuis macro Autocad
    Par Arno_ap dans le forum Général VBA
    Réponses: 27
    Dernier message: 28/06/2011, 17h13
  2. enregistrer sous avec nom automatique
    Par liop49 dans le forum VBA Word
    Réponses: 4
    Dernier message: 26/01/2011, 18h03
  3. Peut-on donner automatiquement un nom à un enregistrement sous PDF ?
    Par nat44 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/07/2008, 14h51
  4. Réponses: 3
    Dernier message: 23/04/2008, 12h07
  5. macro pour un "enregistrer sous" automatique
    Par Cilou38 dans le forum VBA Word
    Réponses: 1
    Dernier message: 19/07/2007, 13h22

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