Macros n'apparaissent pas dans la fenêtre

Signaler
-
Messages postés
2342
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
10 juin 2021
-
Bonjour,
j'ai une macro qui fonctionne mais elle n'apparait pas dans la fenêtre ou normalement elles apparaissent...Malgré mes recherches sur le web, je n'arrive pas à comprendre

Voici le code de la macro








Sub Code()

Dim fichier_recap As Workbook, wb As Workbook, Ligne As Long

Set fichier_recap = Workbooks.Add
fichier_recap.SaveAs ("Récapitulatif.xls")
With fichier_recap
.Sheets(1).Range("A1").Value = "Fichier"
.Sheets(1).Range("B1").Value = "NOM Prénom"
.Sheets(1).Range("C1").Value = "DDN"
.Sheets(1).Range("D1").Value = "Sexe"
.Sheets(1).Range("E1").Value = "Poids"
.Sheets(1).Range("F1").Value = "Taille (cm)"
.Sheets(1).Range("G1").Value = "SC"
.Sheets(1).Range("H1").Value = "Clairance"
.Sheets(1).Range("I1").Value = "Clairance / Inuline"
.Sheets(1).Range("J1").Value = "Clairance normalisée"
.Sheets(1).Range("K1").Value = "Date de l'examen"
.Sheets(1).Range("L1").Value = "vol de distribution"
End With

Ligne = 1

For Each wb In Workbooks
If wb.Name <> "Récapitulatif.xls" Then
Ligne = Ligne + 1
With fichier_recap.Sheets(1)
.Cells(Ligne, 1).Value = wb.Name
.Cells(Ligne, 2).Value = wb.Sheets(1).Range("B10").Value
.Cells(Ligne, 3).Value = wb.Sheets(1).Range("D10").Value
.Cells(Ligne, 4).Value = wb.Sheets(1).Range("F10").Value
.Cells(Ligne, 5).Value = wb.Sheets(1).Range("B12").Value
.Cells(Ligne, 6).Value = wb.Sheets(1).Range("D12").Value
.Cells(Ligne, 7).Value = wb.Sheets(1).Range("F12").Value
.Cells(Ligne, 8).Value = wb.Sheets(1).Range("B41").Value
.Cells(Ligne, 9).Value = wb.Sheets(1).Range("C43").Value
.Cells(Ligne, 10).Value = wb.Sheets(1).Range("C45").Value
.Cells(Ligne, 11).Value = wb.Sheets(1).Range("E3").Value
.Cells(Ligne, 11).Value = wb.Sheets(1).Range("C39").Value

End With
End If
Next wb

End Sub

1 réponse

Messages postés
2342
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
10 juin 2021
409
Bonsoir

En cliquant sur Développeur et sur Macro tu dois voir ta macro