Discussion :

[lach12]

Bonjour,

J’ai une macro qui me permet d’effectuer certaines modifications dans un fichier
Le lien du fichier et dans la cellule B6 cela fonctionne (macro ci dessous)

J’ai une autre macro qui me liste tout les fichiers à modifier de la cellule B6 à Bx
Je voudrai pouvoir exécuter la macro ci dessous sur toute les cellules de B6 à Bx qui ont un non de fichier .

Je n’arrive pas à trouver une boucle pour exécuter la macro ci dessous sur plusieurs cellules

Merci pour votre aide


sub Modiffichier()

'Modifier une parti d'un fichier'

nomfichier = Cells(6, 2) 'Chemin du fichier à modifier'
valeur1 = Cells(3, 2) 'Valeur recherchée à remplacer'
valeur2 = Cells(4, 2) 'Nouvelle valeur'

Workbooks.OpenText Filename:= _
nomfichier _
, Origin:=xlMSDOS, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:= _
Array(0, 1), TrailingMinusNumbers:=True
Cells.Replace What:=valeur1, Replacement:=valeur2, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Save
ActiveWorkbook.Save
ActiveWorkbook.Close

End Sub

[Philippe Tulliez]

Bonjour,
A première vue, la boucle doit englober toute ta procédure

Code :

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

1
2
3
4
5
6
For Row = 6 to 20 ' (x)
  nomfichier = Cells(Row, 2) 'Chemin du fichier à modifier'
  '
  ' Les lignes de code
  '
Next Row

Non testé

Il serait préférable de préciser la filiation de Cells(Row, 2) (Classeur, feuille)

[Menhir]

En début de macro, tu mets

Code :

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

1
2
Dim Ligne
For Ligne = 6 to Cells(6, 2).End(xlDown).Row

En fin de code, tu mets un

Code :

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

Next Ligne

Et tu changes le 6 (qui indique la première ligne à chercher dans le Cells de ton code) par Ligne.

[lach12]

cela marche merci pour votre aide