Petit ajout sur mon script

Y compris Power BI, Power Query et toute autre question en lien avec Excel
g
gramy
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 18 avril 2016
Version d'Excel : 2010

Message par gramy » 17 octobre 2016, 16:50

Hello,

J'ai fait un script qui compare 2 onglets d'un fichier et je fais une comparaison entre les 2 listes de noms de fichiers pour colorer en vert la cellule quand le fichier est présent et en rouge quand il est manquant.

Mon soucis est que j'aimerais adapter ce code afin qu'il me conserve les données d'une journée sur l'autre (Et idéalement pouvoir le lancer selon la date).

Voici mon code :
Sub DeliveryOrNot()

Sheets("report analysis").Select

For iR = 4 To Sheets("report analysis").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("report analysis").Range("B" & iR).Select
    For iF1 = 1 To Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
        'If Sheets("report analysis").Range("A" & iR) Like Sheets("Feuil1").Range("A" & iF1) Then
        If InStr(Sheets("Feuil1").Range("A" & iF1).Text, Sheets("report analysis").Range("A" & iR).Text) <> 0 Then
            With Selection.Interior
                    .Pattern = xlSolid
                    .PatternColorIndex = xlAutomatic
                    .Color = 5287936
                    .TintAndShade = 0
                    .PatternTintAndShade = 0
            End With
            Exit For
        Else
            With Selection.Interior
                        .Pattern = xlSolid
                        .PatternColorIndex = xlAutomatic
                        .Color = 255
                        .TintAndShade = 0
                        .PatternTintAndShade = 0
                    
            End With
       End If
       
    Next iF1
Next iR

End Sub
Pour la feuille 1 les données sont récupérées dans un dossier réseau grâce à ce code :
Sub listefichier()
Dim Dossier As Object, Fichier As Object
Dim Chemin As String
Dim I As Long

Sheets("Feuil1").Activate
Columns("A:A").Select
Selection.ClearContents

'Chemin du dossier à analyser
Chemin = "G:\poulp\titi\test" & Format(Date - 1, "yyyy-mm-dd") & "\"

'Définition de la variable
Set Dossier = CreateObject("Scripting.FileSystemObject").GetFolder(Chemin)

' Boucle sur les fichiers
For Each Fichier In Dossier.Files
    I = I + 1
    Cells(I, 1) = Left(Fichier.Name, InStr(Fichier.Name, ".") - 1) ' Nom du fichier sans extension

Next

End Sub
Merci pour vos retours.
test.xlsm
(16.68 Kio) Téléchargé 9 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Script qui ne se lance plus
    par Inobody » 23 décembre 2019, 13:11 » dans Excel - VBA
    1 Réponses
    29 Vues
    Dernier message par Xmenpl
    23 décembre 2019, 13:55
  • Récup Multi Script
    par barachoie » 11 octobre 2016, 15:21 » dans Excel - VBA
    3 Réponses
    144 Vues
    Dernier message par patrick1957
    11 octobre 2016, 17:48
  • Macro et Script Windows
    par Filou78 » 19 juin 2015, 08:58 » dans Excel - VBA
    8 Réponses
    480 Vues
    Dernier message par jmd
    19 juin 2015, 18:15
  • Script qui ne se lance plus
    par Max92 » 23 décembre 2019, 13:15 » dans Excel - VBA
    10 Réponses
    74 Vues
    Dernier message par ThauThème
    23 décembre 2019, 19:26
  • Macro + script SAP
    par TomXCL » 7 décembre 2017, 16:42 » dans Excel - VBA
    1 Réponses
    1437 Vues
    Dernier message par James007
    7 décembre 2017, 19:44
  • script mail VBA
    par Mon6760 » 8 mai 2018, 19:11 » dans Excel - VBA
    1 Réponses
    191 Vues
    Dernier message par i20100
    17 mai 2018, 05:46