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

Discussion: accés fichier excel

  1. #1
    Candidat au Club
    Femme Profil pro
    technicien informatique industrielle
    Inscrit en
    juillet 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : technicien informatique industrielle
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2018
    Messages : 3
    Points : 2
    Points
    2

    Par défaut accés fichier excel

    salut

    Je cherche à faire une fonction avec VBscript, pour coupier quelque ligne d'un fichier excel à partir de la date de jour indiqué a un autre fichier
    (j'utilise cette partie dans un rappot )
    mon fichier excel contient l'archivage des alarme PLC
    merci d'avance
    Nom : Capture alarm.JPG
Affichages : 72
Taille : 282,8 Ko

  2. #2
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 090
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 090
    Points : 4 825
    Points
    4 825

    Par défaut

    Essaie avec ce
    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
    Option Explicit    
      '####################################################
        ' Les lignes recherchées seront consignées dans un nouveau fichier excel DestFile.xls par exemple
        ' S'il s'agit d'ajouter les données recherchées à un autre fichier,
        ' il suffit d'adapter le code pour WBook2
       '####################################################
        Const xlShared = 2
        Dim appExcel1, MyDate, wBook1, wBook2, Cnt, appExcel2, wSheet
        Dim iRow, Y, RowsCount, ColsCount
     
        Set appExcel1 = CreateObject("Excel.Application")
        appExcel1.Visible = True
     
        Set appExcel2 = CreateObject("Excel.Application")
        appExcel2.Visible = True
        appExcel2.DisplayAlerts = False
     
        Call WriteToOtherFile("C:\SrcFile.xls", "C:\DestFile.xls")
        Wscript.Sleep 2000 ' Attente de 2 secondes avant fermeture des fichiers
        appExcel1.Quit : appExcel2.Quit
        Set appExcel1 = Nothing : Set appExcel2 = Nothing
    '===========================
    Sub WriteToOtherFile(XLFile1, XLFile2)
        Cnt = 0
        iRow = 1
        MyDate = "07/02/2018 17:27"
     
        Set WBook1 = appExcel1.Workbooks.Open(XLFile1, , True) ' Ouvre le fichier Excel existant en lecture seule
        appExcel1.DisplayAlerts = False
        appExcel1.WorkBooks(1).Activate
        RowsCount = WBook1.ActiveSheet.UsedRange.Rows.Count      ' Nombre de lignes dans le fichier excel existant
        ColsCount = WBook1.ActiveSheet.UsedRange.Columns.Count   ' Nombre de colonnes dans le fichier excel existant
     
        Set wBook2 = appExcel2.Workbooks.Add()                   ' Ouvre un nouveau classeur
     
        Do Until iRow > RowsCount
     
            If WBook1.Sheets(1).Cells(iRow, 14).Value = MyDate Then
                Cnt = Cnt + 1 
                For Y = 1 To ColsCount
                    WBook2.Sheets(1).Cells(Cnt, Y) = WBook1.Sheets(1).Cells(iRow, Y).Value
                Next
            End If
            iRow = iRow + 1
        Loop
        WBook2.SaveAs XLFile2, , , , False ' Enregistre le nouveau classeur
    End Sub
    Il y a, certes, mieux mais celui-ci est bien fonctionnel
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  3. #3
    Candidat au Club
    Femme Profil pro
    technicien informatique industrielle
    Inscrit en
    juillet 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : technicien informatique industrielle
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2018
    Messages : 3
    Points : 2
    Points
    2

    Par défaut ce n'est pas encore ça...

    merci
    je n'ai pas pu avancer,ce n'est pas encore ça...
    Comment modifier ça ?
    Merci d'avance
    !Nom : gghiijl.JPG
Affichages : 56
Taille : 201,4 Ko
    remarque : j'utilise VBscript de wincc

  4. #4
    Modérateur
    Avatar de l_autodidacte
    Homme Profil pro
    Retraité : Directeur de lycée/Professeur de sciences physiques
    Inscrit en
    juillet 2009
    Messages
    2 090
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Retraité : Directeur de lycée/Professeur de sciences physiques
    Secteur : Enseignement

    Informations forums :
    Inscription : juillet 2009
    Messages : 2 090
    Points : 4 825
    Points
    4 825

    Par défaut

    Il me semble qu'il faudrait détailler un peu plus le problème.
    Où cela ne marche pas ?
    Qu'est-ce qui ne va pas ?
    Les lignes en question sont à copier où ?
    .......
    Ne pas oublier le tag si satisfait.
    Voter pour toute réponse satisfaisante avec pour encourager les intervenants.
    Balises CODE indispensables. Regardez ICI
    Toujours utiliser la clause Option Explicit(VBx, VBS ou VBA)
    Vous pouvez consulter mes contributions
    Consultez les différentes FAQs et les Cours/Tutoriels VB6/VBScript
    Ne pas oublier L'Aide VBScript et MSDN VB6 Fr ICI

  5. #5
    Candidat au Club
    Femme Profil pro
    technicien informatique industrielle
    Inscrit en
    juillet 2018
    Messages
    3
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : technicien informatique industrielle
    Secteur : Industrie

    Informations forums :
    Inscription : juillet 2018
    Messages : 3
    Points : 2
    Points
    2

    Par défaut

    si j'ai compilé un erreur afficher
    le fonction "WriteToOtherFile" ne fonctionne pas ici
    s'il est possible de remplacer par une autre qui adapte !!!!

    Nom : 4744.JPG
Affichages : 40
Taille : 54,9 Ko

Discussions similaires

  1. acces fichier excel sur disque partagé ?
    Par Cokate dans le forum C#
    Réponses: 9
    Dernier message: 14/08/2008, 09h12
  2. Probleme acces fichier excel
    Par Seth77 dans le forum C#
    Réponses: 4
    Dernier message: 03/11/2007, 15h28
  3. récuperer nom de fichier Excel dans acces
    Par darkspoilt dans le forum VBA Access
    Réponses: 1
    Dernier message: 21/05/2007, 06h09
  4. Question sur accès fichier word depuis excel (VBA)
    Par jerome.grange dans le forum VBA Word
    Réponses: 6
    Dernier message: 22/09/2006, 17h34
  5. Problème accès Fichier Excel
    Par motte82 dans le forum C++Builder
    Réponses: 5
    Dernier message: 20/07/2006, 19h18

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