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 :

Vba creer un fichier excel et l'implementer de donnees


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 3
    Par défaut Vba creer un fichier excel et l'implementer de donnees
    Bonjour je suis debutant en vba et j'ai essayé de compiler des bouts de codes a gauche a droite mais je 'narrive pas a effectuer ce que je veux

    J'aimerais en fait simplement a partir d'un fichier excel inplementé un ensemble de lignes provenant d'autres fichiers excels.

    Ca serait en clair

    Ouvrir un fichier excel X a partir d un dossier
    Allez chercher dans les deux onglets du fichier X les lignes apparaissant en rouge ou en bleu
    Et coller ces lignes dans mon mon fichier de suivi
    Fermer le fichier excel X
    Et faire la meme choses pour les 39 fichiers X du dossiers

    Si une ame charitable veut bien m'aider

    Merci par avance
    Cordialement

  2. #2
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut, voir post#2 ici. Les principes de bases y sont, à toi de l'adapter pour tes lignes et feuilles.

  3. #3
    Futur Membre du Club
    Homme Profil pro
    Étudiant
    Inscrit en
    Mai 2011
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mai 2011
    Messages : 3
    Par défaut
    J'ai avance mais j'ai une erreur du type propriete et erreur non gere, pouvez vous m'aider a comprendre d'ou cela vient?
    merci

    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
    Public Sub ouverture()
    Dim NomClass As String, Feuille As Worksheet, Liste As Worksheet, LigListe As Integer
    Dim VARO As Integer
     
    Dim WBSource As Workbook, WBDest As Workbook
    Dim i As Integer
    i = 10
     
                         NomClass = Dir(ThisWorkbook.Path & "\*.xls")
            Do Until NomClass = ""
                If NomClass <> ThisWorkbook.Name Then
                         Workbooks.Open ThisWorkbook.Path & "\" & NomClass
                         LigListe = LigListe + 1
                         lignefin = Worksheets(1).Cells(200, 1).End(xlUp).Row
                            For VARO = 10 To lignefin
                            If Cells(VARO, 1).Selection.Font.ColorIndex = 5 Then
     
                            Rows(VARO).EntireRow.Copy
     
                            Workbooks("Suivi des CAP-1").Activate
                            Range("a" & i).Select
                            Selection.Paste
                            i = i + 1
                            End If
                            Next
     
                         Workbooks(NomClass).Close False
                End If
                            NomClass = Dir()
            Loop
     
    End Sub

Discussions similaires

  1. [Excel] Créer un fichier excel
    Par Kraian dans le forum Bibliothèques et frameworks
    Réponses: 1
    Dernier message: 11/03/2006, 14h40
  2. [VBA-E]Création fichier EXCEL et détection cellule vide
    Par benoue dans le forum Macros et VBA Excel
    Réponses: 18
    Dernier message: 24/02/2006, 17h22
  3. [VBA]Envoyer un fichier excel avec OutLook
    Par Sunchaser dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 07/02/2006, 16h24
  4. [VBA]Lien entre fichiers excel : Update en VBA
    Par criocaps dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 20/01/2006, 09h07
  5. [C#] Comment créer un fichier Excel ?
    Par dcollart dans le forum ASP.NET
    Réponses: 7
    Dernier message: 02/01/2006, 13h46

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