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 VS Windows 7 [Toutes versions]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    322
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2009
    Messages : 322
    Par défaut Sauvegarde VS Windows 7
    Bonjour à tous.

    J'ai plusieurs postes de travail chez mon employeur. Certain ont XP avec la version 2003 ou 2007 d'excel.
    Plusieurs autres ordinateurs ont Windows 7 avec excel 2007 ou 2010...

    Sous Xp, aucun problème d'impression avec les deux versions d'excel.

    Sous Windows 7, ça ne fonctionne pas...

    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
    39
    40
    41
    42
    43
    44
    45
    46
    Sub vecteurTAXPREP()
    '
    '     Dim NewCC As Integer
        Dim CeFichier As String
        Dim SauverSous As String
        Dim Vecteur As String
        Dim Lignes As Integer
     
        Vecteur = [NomduFichierVecteur]
        SauverSous = [SaveAsVecteur]
        CeFichier = ThisWorkbook.Name
        NewCC = [NewClient] 'détermine si c'est un nouveau client si = 1
        LeNomDuFichier = [OuvreVecteur]
        RepSaveTec = [RepPourSave]
        Lignes = [NombreLigneVecteur]
     
        If NewCC = 1 Then
        Workbooks.Open Filename:=Vecteur
        Windows(CeFichier).Activate
     
        Sheets("Vecteur").Visible = -1
        Sheets("Vecteur").Select
     
        Range("A1:G" & Lignes).Select
        Selection.Copy
     
        Windows(LeNomDuFichier).Activate
     
        Range("A1").Select
     
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
     
        ChDir (RepSaveTec)
        ActiveWorkbook.SaveAs Filename:=SauverSous, FileFormat _
            :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
            False, CreateBackup:=False
        ActiveWorkbook.Close
     
     
        Windows(CeFichier).Activate
        Sheets("Vecteur").Visible = 2
        [NewClient] = 0
     
        End If
    End Sub
    Quelqu'un peut m'aider car pour l'instant l'instruction # 34 ne semble pas être pris en compte. L'enregistrement se fait à un autre endroit que celui indiqué.

    Dlight

  2. #2
    Expert éminent


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Par défaut
    Bonsoir ....

    Modifie l'appel a ta fonction saveas ... et son pametre filename

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    ... filename:=RepSavetec &  sauversous,......

  3. #3
    Membre éclairé
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    322
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations forums :
    Inscription : Novembre 2009
    Messages : 322
    Par défaut Re
    Grrrrr.

    J'aurais due y penser moi-même !!!


    Merci à vous bbil !!!

    Dlight

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

Discussions similaires

  1. problème de sauvegarde sur windows 2003 server
    Par hicham106 dans le forum Windows Serveur
    Réponses: 11
    Dernier message: 05/10/2007, 11h12
  2. Info sauvegardé par windows..
    Par petitcoucou31 dans le forum Windows XP
    Réponses: 5
    Dernier message: 15/09/2007, 12h31
  3. sauvegarder maj windows xp pour reinstallation
    Par bigdule dans le forum Windows XP
    Réponses: 5
    Dernier message: 25/04/2007, 20h42
  4. utilitaire de sauvegarde de windows
    Par pepper18 dans le forum Windows XP
    Réponses: 4
    Dernier message: 07/06/2006, 15h12
  5. sauvegarde système windows serveur 2003
    Par dirty_boy dans le forum Windows Serveur
    Réponses: 5
    Dernier message: 02/02/2006, 14h02

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