Correction de cellules

Bonjour à tous

Je vous expose mon problème.

Je reçois de nombreux fichiers excel contenant les coordonnées de personnes permettant de créer des badges d'accès sur un site.
A partir de ces fichiers je génère avec une macro un fichier unique contenant l'ensemble des informations

J'ai dans ce fichier une colonne intitulée photo, elle doit contenir l'information suivante : nomdelaphoto.jpg le .jpg est impératif

Seulement les fichiers reçu contiennent dans la cellule photo souvent uniquement nomdelaphoto sans le .jpg

Comment puis je testé cette colonne et rajouter le . jpg lorsqu'il manque

Merci d'avance

par exemple

en définissant le range à traiter

Code:

---

1 2 3 4 5 6 7 8 9

Sub essai() For ligne = 1 To 20 If Right(Cells(ligne, 7), 5) = ".jpeg" Then 'rem si il y a déja le nom du fichier on ne fait rien Else Cells(ligne, 7).Value = Cells(ligne, 7).Value & ".jpeg" End If Next End Sub

---

tu peux aussi faire ceci dans ton autre macro, au moment ou tu utilise la photo.

Merci beaucoup

Tu m'as fait gagné beaucoup de temps, j’étais à la bourre sur ce coup

J’ai modifié ton code en fonction de mon fichier qui se modifie chaque jour et de la première ligne de titre que je ne veux pas modifié

Excellent weekend

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub essai() i = ActiveSheet.UsedRange.Rows.Count MsgBox i For ligne = 2 To i If Right(Cells(ligne, "A"), 4) = ".jpg" Then 'rem si il y a déja le nom du fichier on ne fait rien Else Cells(ligne, "A").Value = Cells(ligne, "A").Value & ".jpg" End If Next End Sub

---