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 :

Mise a jour d'un fichier par rapport a un fichier fermé [XL-2010]


Sujet :

Macros et VBA Excel

  1. #1
    Membre averti
    Homme Profil pro
    Sapeur pompier
    Inscrit en
    Février 2008
    Messages
    442
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sapeur pompier
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 442
    Points : 416
    Points
    416
    Par défaut Mise a jour d'un fichier par rapport a un fichier fermé
    Bonjour,

    J'ai un fichier qui doit se mettre à jour à l'ouverture, j'arrive a faire le code afin de le mettre a jour par rapport a des feuilles existantes dans mon classeur, mais je ne sais pas le faire si les feuilles sont dans un classeur fermé.
    celui-ci ne doit pas s'ouvrir lors de la mise à jour.
    Je vous joins 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
    Sub celvides()
     
    j = 3 'met un numéro de colonne pour lequel tu as toujours une valeur dans ton tableau
     i = 4 'premiere ligne pour laquelle il y a une valeur
     
    Cells(i, j).Select
    Do While Cells(i, 3) <> ""
    'Do While Selection <> ""
    Cells(i, 5).Select 'sélection de la colonne d
    On Error GoTo MsgErreurs
    Feuille = Cells(i, 3).Value 'recupere le n°de la réference de la ligne
    Selection = Sheets(Feuille).Range("C6").Value 'recupere la date
     
    Cells(i, 5).Select
    If Cells(i, 5) = "" Then '
    'If Selection = "" Then
    Selection = "feuille inconnue"
    End If
    i = i + 1
    Cells(i, j).Select
    Loop
    Exit Sub 'Arrête la procédure pour éviter le message
    MsgErreurs:
        'MsgBox ("la feuille " & Feuille & " n'a pas été importée, veuillez l'importer")
    End Sub
    J'ai vu des codes VBA mais je ne vois pas comment l'incorporer au mien
    Merci par avance
    seb

  2. #2
    Membre averti
    Homme Profil pro
    Sapeur pompier
    Inscrit en
    Février 2008
    Messages
    442
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Sapeur pompier
    Secteur : Service public

    Informations forums :
    Inscription : Février 2008
    Messages : 442
    Points : 416
    Points
    416
    Par défaut
    J'ai essayé avec la formule:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    'C:\dossiers\[fichier.xlsx]feuille'!$M$36
    ça fonctionne mais le nom de l'onglet est different par rapport à une valeur, donc je souhaite modifier "feuille" par la valeur se trouvant dans E3.

    Je n'y arrive pas pouvez vous m'aider.

    Merci par avance

    sebing

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 22/12/2008, 15h29
  2. mise à jour d'une liste par rapport à une autre
    Par Beltegeuse dans le forum Général JavaScript
    Réponses: 21
    Dernier message: 02/05/2008, 15h21
  3. Réponses: 4
    Dernier message: 12/03/2007, 16h14
  4. Réponses: 3
    Dernier message: 17/01/2007, 09h33
  5. Réponses: 1
    Dernier message: 01/08/2006, 14h43

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