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 :

Transfert entre classeurs vba


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Étudiant
    Inscrit en
    Novembre 2010
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 34
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2010
    Messages : 12
    Par défaut Transfert entre classeurs vba
    Bonjour tout le monde,

    J’ai un problème que je n’arrive pas à résoudre

    J’ai 2 fichiers Excel :
    - Le premier est un classeur ouvert avec comme indication les numéros de semaine

    - Le deuxième est un classeur dont j’aimerais récupérer les résultats toujours avec des numéros de semaine ( le classeur est ouvert avec le code vba )

    Ma problématique est la suivante :

    J’aimerais avoir 2 input Box qui me demande quelle semaine j’aimerais mettre à jour

    Après la macro irait chercher la ou les semaines correspondante et irait copier la plage de cellule

    Exemple :

    J'ouvre le classeur 1 ensuite j'éxécute la macro il me demande d'ouvrir le fichier concerné (classeur 2) ensuite j'ai une premiére input box qui s'affiche qui me demande "Sélectionnez la première Semaine Sxx " (EX:1) puis une deuxiéme inputbox "Sélectionnez la dernière Semaine Sxx"(EX:2) , il va donc récupérer les résultats de la plage ("D5 : D10") et ("E5 : D10") des semaines 1 et 2 du classeur 2 Feuil 1 pour ensuite les coller dans le classeur 1 Feuil 1

    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
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    Sub Test()
     
        Dim wbm As Workbook  'pour tt le fichier
     
     
        Dim wb1 As Workbook
        Dim wb2 As Workbook
        Dim wsm1 As Worksheet
     
     
        Dim ws1 As Worksheet
        Dim ws2 As Worksheet
        Dim ws3 As Worksheet
        Dim val1, val2 As Double
     
     
        année = 2013
     
        Set wbm = ThisWorkbook
        Set wsm1 = wbm.Worksheets("Feuil1")
     
     
     
        Application.ScreenUpdating = False ' permet de vider la memoire
     
     
        fichier = Application.GetOpenFilename("Fichiers (*.xlsx),*.xlsx", , "Sélectionnez tous les fichiers", , True) ' ouvrir un fichier excel
     
     
        If IsArray(fichier) Then
     
            For cpt = LBound(fichier) To UBound(fichier)
     
                Set nomfich = Application.Workbooks.Open(fichier(cpt))
     
                nom = nomfich.Name
     
                Select Case True
     
                Case nom = "Classeur2.xlsx"
     
                Set wb1 = Workbooks("Classeur2.xlsx")
     
     
     
                End Select
     
            Next cpt
     
        End If
     
        x = InputBox("Sélectionnez la première Semaine Sxx", "Choix de la Semaine")
     
        xf = InputBox("Sélectionnez la dernière Semaine Sxx", "Choix de la Semaine")
     
        s = Right(x, 2)  ' recupere le resultat a gauche et prend les 2 caracteres ex S34 34
     
        sf = Right(xf, 2)
     
        s = s + 0
     
        sf = sf + 0
     
        For compteur = s To sf  ' For <compteur>= départ
     
         semaine = "S" & s
     
            'MAJ  Ressources
     
            wbm.Activate
     
            wsm1.Activate
     
            Range("C4").Select
     
            a = Range("C4").Address
     
            b = Range(a).End(xlToRight).Address
     
            Set MaPlage = wsm1.Range(a, b)
     
            MaPlage.Select
     
            Set c = MaPlage.Find(semaine, LookIn:=xlValues, LookAt:=xlWhole)  ' find fonction recherche
    Voici un début de code mais aprés je ne sais pas comment m'y prendre

    Merci d'avance

    Thomas
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. [XL-2007] navigation aller-retour entre application VBA et classeur Excel
    Par pithèque dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/01/2012, 06h01
  2. Transfert de données entre classeurs
    Par RéviAT dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 11/06/2008, 09h49
  3. Réponses: 2
    Dernier message: 02/05/2007, 13h28
  4. [VBA-E]copie entre classeurs (encore)
    Par Elstak dans le forum Macros et VBA Excel
    Réponses: 7
    Dernier message: 30/03/2006, 11h25
  5. [VBA-E] Comparer les valeurs entre classeur
    Par Mut dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 26/03/2006, 12h32

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