commentajouter une extension en masse

[thiery]

bonjour
j'ai un fichier Excel avec plus de 5000 ref, que je dois injecter dans ma DB.
les ref son en chiffre ( 00150, 00152, ....)
par contre dans ma DB je vais avoir des liens avec photos les photos ont la même ref mais avec .jpeg,(00150.jpeg; 00152.jpeg) est t'il possible de mettre le .JPEG derrière les ref en une seul fois
merci d'avance pour l'info
à bientôt thiery

 

[Gibson94]

Bonsoir thiery, le forum,

Une macro toute simple où 'A1' est ta 1ère cellule et 'G' ta dernière colonne. En espérant que çà t'aidera.


Dim derlign As Integer
Dim c As Variant

Sub boucle()
derlign = Range('A1').CurrentRegion.Rows.Count
For Each c In Worksheets('Feuil1').Range('A1:G' & derlign)
If c > 0 And c < 6000 Then
c.Cells = c.Value & '.jpg'
End If
Next c
End Sub

Ps: J'ai écrit '.jpg' à la place de '.jpeg', à toi de modifier...

Message édité par: gibson94, à: 27/07/2005 00:56

 

[marc77]

bonsoir le forum

si tu as une seul valeur par cellule, dans la colonne a droite tu peux saisir la formule suivante +cellule&'.jpeg'.

A+ Marc

 

[thiery]

bonjour a tous
merci pour les explication
c'est reussi
un grand merci pour vos explications
à bientôt thiery