Discussion :

[chenev22]

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

[a_diard]

par exemple

en définissant le range à traiter

Code :

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

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.

[chenev22]

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 :

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

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