Renommer suite de photo depuis tableur Excel

Bonjour tout le monde,

J'explique mon problème. Je suis une novice au niveau du langage VBA, j'arrive à faire des codages simples.

Je suis depuis quelque jours, à la recherche d'un moyen de renommer des photos en fonction d'un tableur excel.

Je souhaiterais renommer les photos qui sont nommées avec "NUM GPS" avec les valeurs des cellules de la colonne "REF ORA".

Au mieux, j'aimerais que les photos "NUM GPS_(4)" deviennent "REF ORA_1" et "NUM GPS_(2)" deviennent "REF ORA_2"

J'espère que c'est compréhensible.

Merci pour votre aide !

bonjour,

tu peux nous mettre ton classeur ou un classeur exemple représentatif ?

Alors j'ai réussi a créer quelque chose qui fait le boulot, après je penses que ça peut être simplifié, je ne suis pas très douée.

Cependant, quand j'ai un doublon de numéro, il me demande un débogage. Comment puis-je lui demander de ne pas faire de débogage et de me le noter dans une autre feuille ?

Et également de me noter si je n'ai pas de photos correspondant au fichier source ?

Voici ce que j'ai réussi à faire pour l'instant :

Sub Renam()
'
' Renam Macro
' modification nom image
'

Dim chemin As String, fichier As String, fichier2 As String, cheminfichier As String, cheminfichier2 As String, newchemin As String, newchemin2 As String, newfichier As String, newfichier2 As String, vDoublon As String
Dim L, LDoublon
Dim Ext

L = 2
LDoublon = 1
Ext = ".jpg"

With Worksheets("Chemin").Range("B1")
chemin = .Value
End With

With Worksheets("Photo").Cells(L, 1)
fichier = .Value & "_ (2)" & Ext
End With

With Worksheets("Photo").Cells(L, 1)
fichier2 = .Value & "_ (1)" & Ext
End With

While Cells(L, 1).Value <> ""

    With Cells(L, 2)
    newfichier = .Value & "_2" & Ext
    End With

    With Cells(L, 2)
    newfichier2 = .Value & "_1" & Ext
    End With

cheminfichier = chemin & Application.PathSeparator & fichier
cheminfichier2 = chemin & Application.PathSeparator & fichier2
newchemin = chemin & Application.PathSeparator & newfichier
newchemin2 = chemin & Application.PathSeparator & newfichier2

If Dir(cheminfichier) <> "" Then
    Name cheminfichier As newchemin
        Else
            With Worksheets("Doublon")
            Cells(LDoublon, 1).Value = fichier
            End With
    End If
If Dir(cheminfichier2) <> "" Then
    Name cheminfichier2 As newchemin2
        Else
            With Worksheets("Doublon")
            Cells(LDoublon, 1).Value = fichier2
            End With

    End If

L = L + 1
With Cells(L, 1)
fichier = .Value & "_ (2)" & Ext
End With

With Cells(L, 1)
fichier2 = .Value & "_ (1)" & Ext
End With

Wend

MsgBox ("Fin du traitement")

End Sub

Merci

Rechercher des sujets similaires à "renommer suite photo tableur"