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 :

Sauvegarde d'un fichier excel


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Candidat au Club
    Profil pro
    Inscrit en
    Avril 2008
    Messages
    2
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2008
    Messages : 2
    Par défaut Sauvegarde d'un fichier excel
    Bonjour,

    j'ai crée une macro qui sauvegarde un fichier Excel sous une bibliotheque Sharepoint. Ce que je ne comprends pas, c'est que de temps en temps il sauvegarde le fichier sur mon bureau. Ce qui fait qu'au bout d'un certain temps d'utilisation et de manipulation de fichier Excel mon bureau est rempli.

    Voici mon code:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    Private Sub BtnEnregistrer_Click()
     
        Dim continuer As Boolean
        continuer = ThisWorkbook.VerificationForm()
     
        If continuer Then
     
            Application.DisplayAlerts = False
            ActiveWorkbook.Save
     
            'on s'assure que le nom n'a pas deja .xls
            Dim title As String
            title = ThisWorkbook.Name
     
            If Mid(title, Len(title) - 3, 4) = ".xls" Then
                title = Mid(title, 1, Len(title) - 4)
            End If
     
            'si c'est la première fois qu'on sauvegarde on ajoute un numero aléatoire
            If Application.Range("CEL_ETAT") + " " = " " Then
              Dim nb_aleatoire As Long
              nb_aleatoire = ((999999999 - 0 + 1) * Rnd + 0)
              title = title & "_" & nb_aleatoire
            End If
     
            ActiveWorkbook.SaveAs filename:= _
               "L'adresse de mon bibiliotheque Sharepoint" + title + ".xls" _
               , FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
               ReadOnlyRecommended:=False, CreateBackup:=False
     
            'on passe l'etat de la fiche a fermeture
            ThisWorkbook.Sheets("Donnees").Range("D1") = "Fermeture"
     
            'On ferme la fiche
            ActiveWorkbook.Saved = True
            Application.Quit
     
        End If
    Merci d'avance

  2. #2
    Inactif  
    Avatar de ouskel'n'or
    Profil pro
    Inscrit en
    Février 2005
    Messages
    12 464
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2005
    Messages : 12 464
    Par défaut
    C'est sans doute que le serveur n'est pas disponible. As-tu essayé de mettre un Wait après la ligne de sauvegarde ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.Wait(Now + TimeValue("0:00:01"))
    ou as-tu testé que le serveur était disponible (je crois que j'ai vu passer le code sur le forum ou dans le forum VB6 (?)
    Bonne soirée

Discussions similaires

  1. Réponses: 7
    Dernier message: 23/01/2008, 13h02
  2. Sauvegarde d'un fichier Excel au format txt
    Par Lalanne dans le forum C++Builder
    Réponses: 8
    Dernier message: 22/02/2007, 19h00
  3. Recuperer chemin de sauvegarde d'un fichier excel
    Par Tierisa dans le forum Access
    Réponses: 2
    Dernier message: 16/10/2006, 12h57
  4. Réponses: 2
    Dernier message: 07/09/2006, 12h41
  5. sauvegarde d'un fichier excel csv sous le format xls
    Par blondelle dans le forum C++Builder
    Réponses: 5
    Dernier message: 01/08/2006, 11h30

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