Discussion :

[affre]

Bonjour
Dans un fichier Excel de 11 colonnes je crée une nomenclature .Dans la colonne B en dessous de la colonne B6 se trouve l’identifiant de chaque ligne ex: (9925675).
Je voudrais vérifier après appui sur un bouton si les identifiants de toute la feuille existent déjà dans d’autres fichiers rangés dans le même répertoire.
A chaque recherche trouvée je voudrais faire afficher la recherche dans le fichier source ; effectuer à la main les modifications nécessaires sur la ligne ; enregistrer les modifications et passer à la recherche suivante.
Est-il possible d’étendre la recherche à des documents Word ?
Je ne sais pas par quel bout le prendre.

Si quelqu'un pouvait me donner les grandes lignes à suivre pour commencer à écrire qqe chose.
Merci d'avance

[mathspountz]

Bonjour Affre

Par contre proposer une modif manuelle en plein script me parait un peu risqué. Tu pourrais faire ton script en deux temps :
1) Le script détecte toutes les occurrences recherchées et créé un nouveau tableau avec les référence de la ligne : fichier, onglet, suivi de la ligne en question
2) La phase manuelle, tu fais tes modifs dans le nouveau tableau
3) Deuxième script qui boucle sur chaque ligne du tableau et ouvre le fichier indiqué à l'onglet indiqué et remplace les informations par les nouvelles

Deux codes qui t'aideront sûrement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
' boucler sur les fichiers d'un dossier
sFichier = Dir(sDossier & "\*.xls")
Do While sFichier <> ""
 
    ' le code ici
 
    sFichier = Dir
Loop

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
 
' manipuler un fichier
 
' ouverture
Set wb = Workbooks.Open(sDossier & "\" & sFichier, False, False)
' tu peux ensuite manipuler le fichier
For Each ws In wb.Worksheets
    ' faire la recherche dans ws
    For Each Rng In ws.Range("A2:A2000")
        ' tester la céllule rng
        If Rng.value = sRecherche Then
            ws.Rows(Rng.Row).Copy
            'coller ça par exemple dans ton classeur qui contient la macro
            With ThisWorkbook.Sheets(1)
                .Range("C" & n).Paste
                ' les infos
                .Range("A" & n).value = sDossier & "\" & sFichier
                .Range("B" & n).value = ws.Name
            End With
        End If
    Next Rng
Next ws

[affre]

Merci pour ta réponse.
Je travaille à temps perdu sur le sujet et ne manquerai pas de revenir vers toi.
Merci encore