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: VBA Marche pas

  1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 0
    Points
    0

    Par défaut VBA Marche pas

    Bonjour ,
    Pouvez vous m'aider, on m'a donné cette macro, mais elle ne fonctionne pas :

    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
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    Sub LECTURE_CTM()
    '
    ' Macro enregistrée le 12/07/2012 par Jam
     Dim Dossier As Object, Fichier As Object
     Dim Chemin As String
     Dim I As Long
     
     Worksheets("DV").Columns("A:A").ClearContents
     Worksheets("HF").Columns("A:A").ClearContents
     
    'DEV
     Chemin = "C:\CTM\DV"
     I = 0
     Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
     For Each Fichier In Dossier.Files
       I = I + 1
       Worksheets("DV").Cells(I, 1) = Fichier.Name ' Nom du fichier
     Next
     
    'HF
     Chemin = "C:\CTM\HF"
     I = 0
     Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
     For Each Fichier In Dossier.Files
       I = I + 1
       Worksheets("HF").Cells(I, 1) = Fichier.Name ' Nom du fichier
     Next
     
    End Sub
    Sub LECTURE_FICHES()
    '
    ' Macro enregistrée le 14/07/2012 par Jam
     Dim Dossier As Object, Fichier As Object
     Dim Chemin As String
     Dim I As Integer
     
     Worksheets("FICHES").Cells.ClearContents
     
    'DEV
     Chemin = "C:\CTM\DV\"
     I = 1
     Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)
     For Each Fichier In Dossier.Files
       I = I + 1
       Worksheets("FICHES").Cells(I, 1) = Fichier.Name ' Nom du fichier
     
       Open Chemin & Fichier.Name For Input As #1
         Do While Not EOF(1)    ' Effectue la boucle jusqu'à la fin du fichier.
           Input #1, MaLigne
     
           Extract_Value MaLigne, "##JOB      :", I, 3
           Extract_Value MaLigne, "##MEMNAME  :", I, 4
           Extract_Value MaLigne, "##DESCRIPT :", I, 5
           Extract_Value MaLigne, "##GROUPE   :", I, 6
           Extract_Value MaLigne, "##INTERVAL :", I, 7
           Extract_Value MaLigne, "##MAXWAIT  :", I, 8
           Extract_Value MaLigne, "##HEUREMINI:", I, 9
           Extract_Value MaLigne, "##HEUREMAXI:", I, 10
           Extract_Value MaLigne, "##JOURMOIS :", I, 11
           Extract_Value_Multiple MaLigne, "##JOURS    :", I, 12
           Extract_Value_Multiple MaLigne, "##CONDIN   :", I, 13
           Extract_Value_Multiple MaLigne, "##CONDOUT  :", I, 14
          'La colonne 15 est reservee au condition delete
           Extract_Value MaLigne, "##PARAM    :%%PARM4=", I, 16
     
         Loop
       Close #1
     
       If Right(Worksheets("FICHES").Cells(I, 3), 3) = "_S2" Or Right(Worksheets("FICHES").Cells(I, 3), 3) = "_D2" Then
          Worksheets("FICHES").Cells(I, 2) = "APRES BASCULE"
          Worksheets("FICHES").Cells(I, 16) = Worksheets("FICHES").Cells(I, 16) & "_CHG2"
       Else
          Worksheets("FICHES").Cells(I, 2) = "AVANT BASCULE"
       End If
       If Worksheets("FICHES").Cells(I, 4) <> "AMDlance.ksh" Then
          Worksheets("FICHES").Rows(I & ":" & I).ClearContents
          I = I - 1
       End If
     
     Next
     
     'Worksheets("FICHES").Columns("D:D").Delete Shift:=xlToLeft
     
    End Sub
    Sub Extract_Value(LaLigne, Prefixe As String, NumLig As Integer, NumCol As Integer)
     
      If Left(LaLigne, Len(Prefixe)) = Prefixe Then
         Worksheets("FICHES").Cells(NumLig, NumCol) = Right(LaLigne, Len(LaLigne) - Len(Prefixe))
      End If
    End Sub
    Sub Extract_Value_Multiple(LaLigne, Prefixe As String, NumLig As Integer, NumCol As Integer)
     
       If Left(LaLigne, Len(Prefixe)) = Prefixe And Right(LaLigne, 3) <> "DEL" Then
          Histo = Worksheets("FICHES").Cells(NumLig, NumCol)
          If Histo <> "" Then: Sep = ";"
          Worksheets("FICHES").Cells(NumLig, NumCol) = Histo & Sep & Right(LaLigne, Len(LaLigne) - Len(Prefixe))
       End If
      'Cas particulier CONDITION OUT DEL
       If Left(LaLigne, Len(Prefixe)) = Prefixe And Right(LaLigne, 3) = "DEL" Then
          Histo = Worksheets("FICHES").Cells(NumLig, NumCol + 1)
          If Histo <> "" Then: Sep = ";"
          Worksheets("FICHES").Cells(NumLig, NumCol + 1) = Histo & Sep & Right(LaLigne, Len(LaLigne) - Len(Prefixe))
       End If
     
    End Sub

  2. #2
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 0
    Points
    0

    Par défaut

    xx

  3. #3
    Membre chevronné Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    mars 2007
    Messages
    918
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : mars 2007
    Messages : 918
    Points : 1 803
    Points
    1 803

    Par défaut

    Bonjour,

    Merci de modifier tes deux posts avec les balises CODE :
    https://www.developpez.net/forums/d3...-balises-code/
    http://club.developpez.com/aidenouve...es/Balises.gif

    Pouvez vous m'aider, on m'a donné cette macro, mais elle ne fonctionne pas
    Qu'est qui ne fonctionne pas ?
    Quel message d'erreur ? Débogage en pas à pas ? Quelle ligne ?
    Cordialement,
    Patrice
    Pour dire merci, cliquer sur et quand la discussion est finie, penser à cliquer sur

  4. #4
    Rédacteur/Modérateur
    Avatar de GAYOT
    Homme Profil pro
    Amateur
    Inscrit en
    novembre 2004
    Messages
    2 464
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Meuse (Lorraine)

    Informations professionnelles :
    Activité : Amateur
    Secteur : Distribution

    Informations forums :
    Inscription : novembre 2004
    Messages : 2 464
    Points : 5 902
    Points
    5 902

    Par défaut

    Bonjour
    Sans plus de détails sur le contexte et le but de ces macros ainsi que sur ce qui ne fonctionne pas.... aucune chance d'avoir des réponses...
    Plus j'avance et plus je sais que je ne sais rien. Et comme j'essaie d'aller loin .....
    Pas de demande d'aide par Mp.... sinon
    Mes tutoriels sur http://jdgayot.developpez.com
    Beaucoup de réponses à vos questions dans la Faq ou dans les tutoriels


  5. #5
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 0
    Points
    0

    Par défaut

    xx

  6. #6
    Nouveau Candidat au Club
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    mars 2019
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : mars 2019
    Messages : 4
    Points : 0
    Points
    0

    Par défaut

    xx

  7. #7
    Expert éminent

    Homme Profil pro
    Développeur .NET
    Inscrit en
    janvier 2012
    Messages
    4 560
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 62
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : Finance

    Informations forums :
    Inscription : janvier 2012
    Messages : 4 560
    Points : 9 501
    Points
    9 501
    Billets dans le blog
    30

    Par défaut

    WOW ! du code BASH dans Excel.

    Arrête de balancer du code et EXPLIQUE CE QUE TU VEUX ET DONNE LES DÉTAILS.

    C'est ta façon de poser des questions qui ne marche pas.

    Et puis, est-ce que cela existe Excel pour Unix ?

    Ou bien, est-ce que tu essaies de zigonner un système Unix en partant d'un Excel sur un système Windows ?
    À ma connaissance, le seul personnage qui a été diagnostiqué comme étant allergique au mot effort. c'est Gaston Lagaffe.

    Ô Saint Excel, Grand Dieu de l'Inutile.

    Excel n'a jamais été, n'est pas et ne sera jamais un SGBD, c'est pour cela que Excel s'appelle Excel et ne s'appelle pas Access junior.

Discussions similaires

  1. [XL-2016] Mon Code vba marche pas
    Par MOUD2 dans le forum Macros et VBA Excel
    Réponses: 25
    Dernier message: 21/03/2018, 18h08
  2. Equation + solveur + vba = marche pas !
    Par zataps dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 12/10/2017, 13h20
  3. [AC-2007] Ribbon + ButtonOnAction callback code VBA (marche pas)
    Par jjr_bayonne dans le forum VBA Access
    Réponses: 7
    Dernier message: 23/08/2015, 17h09
  4. [VBA inputbox] le bouton annuler ne marche pas
    Par herendel dans le forum Access
    Réponses: 2
    Dernier message: 15/05/2006, 13h42
  5. [VBA-E] mon code ne marche pas sur un autre PC
    Par yannph dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 09/01/2006, 22h03

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