Discussion :

[macprogresse]

Bonjour à tous.

je suis confronté à un problème de renommage de visuels numéroté de 0001 à 9999 il faudrait les remommer d'après un tableur Microsoft Excel comportant des noms et prénom les prises de vue sont réalisée dans l'ordre alphabétique rigoureux quelqu'un aurait il la solution miracle?

Travail sous mac osx 10.10.5 et photoshop CS 6

Merci pour toute vos suggestions

Bien cordialement
Macprogresse

[kiki29]

Salut, via Name As, et une boucle sur la liste de tes noms / prénoms.

[macprogresse]

Merci pour ta réponse
peux tu développer je ne maitrise pas Excel Name As est un fonction Excel?
Une appli?
comment mettre en oeuvre?

[kiki29]

Salut, on sent l'attente du tout cuit : à lire.

Bref bestialement une solution PC avec un appel d'API . Cela sans tenir compte des autres particularités possibles sur Mac ( voir ici )
N'en ayant plus depuis presque 20 ans à toi de poursuivre et adapter à ton contexte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Sub Tst()
Dim LastRow As Long
Dim i As Long, sNomPrenom As String, sNum As String
Dim sDossier As String, sFichier As String
Dim sDossierOut As String
 
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    sDossier = ThisWorkbook.Path
    sDossierOut = ThisWorkbook.Path & "\" & "Out"
    CreationDossier sDossierOut
 
    For i = 2 To LastRow
        sNomPrenom = Feuil1.Cells(i, 1) & " " & Feuil1.Cells(i, 2) & ".jpg"
        sNum = Format(Feuil1.Cells(i, 3), "0000")
        sFichier = sDossier & "\" & sNum & ".jpg"
        If Dir(sFichier, vbNormal) <> "" Then
            Name sFichier As sDossierOut & "\" & sNomPrenom
        End If
    Next i
End Sub

[macprogresse]

veux tu que je t'envoi la liste de tous les sites consultés et toutes les solutions que j'ai tester avant de lancer ce SOS?

[macprogresse]

Salut, on sent l'attente du tout cuit : à lire.

Bref bestialement une solution PC avec un appel d'API . Cela sans tenir compte des autres particularités possibles sur Mac ( voir ici )
N'en ayant plus depuis presque 20 ans à toi de poursuivre et adapter à ton contexte.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Option Explicit
 
Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
                                             (ByVal hwnd As Long, _
                                              ByVal pszPath As String, _
                                              ByVal lngsec As Long) As Long
 
Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
    Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function
 
Sub Tst()
Dim LastRow As Long
Dim i As Long, sNomPrenom As String, sNum As String
Dim sDossier As String, sFichier As String
Dim sDossierOut As String
 
    LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
    sDossier = ThisWorkbook.Path
    sDossierOut = ThisWorkbook.Path & "\" & "Out"
    CreationDossier sDossierOut
 
    For i = 2 To LastRow
        sNomPrenom = Feuil1.Cells(i, 1) & " " & Feuil1.Cells(i, 2) & ".jpg"
        sNum = Format(Feuil1.Cells(i, 3), "0000")
        sFichier = sDossier & "\" & sNum & ".jpg"
        If Dir(sFichier, vbNormal) <> "" Then
            Name sFichier As sDossierOut & "\" & sNomPrenom
        End If
    Next i
End Sub

Merci à toi effectivement j'avais vu çà mais n'est pas réussi à l'adapter pour mac, je vais donc me repencher vers cette solution en espérant trouver la solution dans le lien
[URL="http://www.rondebruin.nl/mac/section3.htm"]

Bonne soirée à toi
Bien Cordialement
Macprogresse

[RyuAutodidacte]

Bonjour,

commence par lire ceci : https://www.developpez.net/forums/d1...ommer-fichier/

[unparia]

1)

Salut, via Name As, et une boucle sur la liste de tes noms / prénoms.

2)

peux tu développer je ne maitrise pas Excel Name As est un fonction Excel?
Une appli?

comment mettre en oeuvre?
3)

Salut, on sent l'attente du tout cuit : à lire.

4)

veux tu que je t'envoi la liste de tous les sites consultés et toutes les solutions que j'ai tester avant de lancer ce SOS?

Sans d'autres commentaires ! on fouille partout sur la toile (c'est également chercher le tout-cuit) , mais on n'ouvre pas son aide interne VBA ? Trop de travail, de lecture ?

[macprogresse]

1)
2)
comment mettre en oeuvre?
3)
4)
Sans d'autres commentaires ! on fouille partout sur la toile (c'est également chercher le tout-cuit) , mais on n'ouvre pas son aide interne VBA ? Trop de travail, de lecture ?

Bonjour Monsieur "Expert éminent" il fut un temps où quelques personnes de ce forum ne jugeaient pas sans savoir.
Non je ne connais pas Excel non je ne connais pas le C++ le Python le Java et plein d'autres langages
Et non avant que tu parles d'aide VBA je ne connaissais pas!!!

"Avec Excel 2011, vous pouvez continuer à utiliser et gérer des macros Excel 4.0 (XLM macros) qui n'ont pas été mises à niveau vers Visual Basic® for Applications (VBA). Vous ne pouvez pas enregistrer de nouvelles macros Excel 4.0 dans Excel 2011, mais vous pouvez les exécuter et les modifier.
Excel 4.0 Macro Reference fournit des informations (syntaxe et exemples) pour les fonctions de macro. Pour plus d'informations sur Excel 4.0 Macro Référence, voir le site Web de MicrosoftCliquez sur ce lien pour ouvrir une fenêtre de navigateur. (www.microsoft.com/downloads) " et là maintenant je sais que je sais pas et que plus je creuse plus çà me parait être du chinois
Connais tu le chinois ? NON il va falloir t'y mettre si un jour tu es confronté à devoir dialoguer avec une personne pour une raison urgente ....
Mais renseignes toi avant car comme pour Excel tout n'est pas rose et en fonction que tu sois sur PC ou Mac que tu disposes de la version Excel 2007/ 2011/ 2016 le langage diffère sans parler des Macros et de leurs mises en oeuvre ???

La macro étant photographe je maîtrise y compris le Stacking.
Pour le chinois moi non plus je ne connais pas d'autant que le chinois c'est vaste que ce soit en dialecte : gan ,Guang , keijia, Jie, Wu , Xiang et le Yue ...

Merci de ton aide

Bien Cordialement
Finalement je sais que je ne saurais jamais

[unparia]

Non, je ne connais pas le chinois.
Je sais par contre que si je décidais un jour, par nécessité, de le parler, je commencerais par en apprendre les bases.
Et il ne me viendrait pas à l'idée que n'existe aucun dictionnaire de vocabulaire. Pas plus qu'il ne me viendrait à l'idée qu'un meuble IKEMACHIN est livré sans mode d'emploi de montage.
Bonne chance dans tes "approches" du développement.

Je n'y connais rien, non plus, en photographie. Mais si je devais un jour m'y intéresser, j'en apprendrais d'abord les bases, plutôt que d'interroger des photographes à chaque petit bobo élémentaire (ils m'enverraient vite bouler en m'invitant à commencer par le commencement). Et je lirais avec avidité la documentation de chacun de mes outils de photographie. Et si ne n'en comprenais même pas les formulations, j'abandonnerais probablement l'idée d'apprendre la photographie ou m'inscrirais à un stage d'apprentissage de A à Z (à au moins B, hein ...)

[RyuAutodidacte]

Bonjour,

la comparaison est abusé, le vba n'est pas du chinois (surtout que c'est écrit avec notre Alphabet), il n y a rien de compliquer de comprendre que :
- une macro commence par Sub et fini par End Sub
- d'indiquer un chemin dans une variable par exemple =>

Code :

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

chm = "Macintosh HD:Users:NomUtilisateur:Desktop:DeveloppezCom:MonDossierImageATraiter:"

- de faire une boucle afin de boucler sur les anciens noms dans une colonne et mettre les nouveaux noms de la la colonne adjacente -> http://silkyroad.developpez.com/vba/boucles/
- et d'utiliser l'aide vba (même avec une petite recherche) pour appliquer -> https://msdn.microsoft.com/fr-fr/vba...name-statement

c'est comme les Math faut appliquer les formules
Après c'est une question de logique et de bon sens
PS : la plupart de ce qui demande de l'aide, le font en ayant travailler un minimum et amène un code (même si il n'est pas nickel), afin de faire part des points bloquant (he oui on ne donne pas du tout cuit)

La logique est quasi la même que dans la vrai vie par analogie :
si tu déménages des cartons du camions à l'appart du va faire x tour de A vers B

Je commence au camion
    Action de porter le carton de A vers B
Je depose le carton 'et on retourne au camion -> je viens de faire un tour de la boucle - et on continue ainsi de suite jusqu'au dernier carton et la boucle se finit

le principe n'est pas si éloigné, bien sur il faut les bases que l'on peut trouver dans la Faq
l'une des base importante à savoir est : Utiliser les variables en VBA Excel

T'as de quoi commencer …

[macprogresse]

Bonjour,

commence par lire ceci : https://www.developpez.net/forums/d1...ommer-fichier/

c'est la première chose que j'avais trouvé de rapprochant mais ce n'est pas ce que je souhaite
colonne A n° des photos sous la forme 0001.JPG colonne 2 nom colonne 3 prénom EX : résultat pour la photo 0001.jpg nom final nom-prénom.jpg


Merci quand même

[macprogresse]

Bonjour,

la comparaison est abusé, le vba n'est pas du chinois (surtout que c'est écrit avec notre Alphabet), il n y a rien de compliquer de comprendre que :
- une macro commence par Sub et fini par End Sub
- d'indiquer un chemin dans une variable par exemple =>

Code :

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

chm = "Macintosh HD:Users:NomUtilisateur:Desktop:DeveloppezCom:MonDossierImageATraiter:"

- de faire une boucle afin de boucler sur les anciens noms dans une colonne et mettre les nouveaux noms de la la colonne adjacente -> http://silkyroad.developpez.com/vba/boucles/
- et d'utiliser l'aide vba (même avec une petite recherche) pour appliquer -> https://msdn.microsoft.com/fr-fr/vba...name-statement

c'est comme les Math faut appliquer les formules
Après c'est une question de logique et de bon sens
PS : la plupart de ce qui demande de l'aide, le font en ayant travailler un minimum et amène un code (même si il n'est pas nickel), afin de faire part des points bloquant (he oui on ne donne pas du tout cuit)

La logique est quasi la même que dans la vrai vie par analogie :
si tu déménages des cartons du camions à l'appart du va faire x tour de A vers B

Je commence au camion
    Action de porter le carton de A vers B
Je depose le carton 'et on retourne au camion -> je viens de faire un tour de la boucle - et on continue ainsi de suite jusqu'au dernier carton et la boucle se finit

le principe n'est pas si éloigné, bien sur il faut les bases que l'on peut trouver dans la Faq
l'une des base importante à savoir est : Utiliser les variables en VBA Excel

T'as de quoi commencer …

Si la connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein
Le savoir ce transmet c'est l'apprentissage. - macprogresse

[unparia]

Si la connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information.

J'ai assez l'impression de ce le sens exact et profond d'une citation d'Albert Einstein a été bien mal comprise (a-t-elle d'ailleurs été analysée ?)
Elle met en exergue le mérite de l'expérience (celle de soi, pas celle des autres) et range avec un désintérêt (voire mépris) non caché tout le reste au niveau de l'information puisée chez les autres.
Et la seconde proposition de cette citation n'est pas assortie de l'expression conditionnelle qui la subordonne ici à la première. (Ce "si", ajouté, est de trop, est malheureux et ne correspond pas à la pensée d'Einstein).
Ce grand monsieur s'est fort délicatement abstenu de dire quoi penser de ceux qui, recevant l'information, ne la comprenaient pas et ne savaient ni par quel bout la prendre ni qu'en faire.

[RyuAutodidacte]

Bonsoir,

Si la connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein
Le savoir ce transmet c'est l'apprentissage. - macprogresse

on est bien d'accord sur ce point, mais il y a des lieux/des organismes/des sites de formations pour ce faire …

Hors là tu es dans un forum d'entraide lorsque tu rencontres un point bloquant sur un code que tu as travaillé ou essayé de faire ! Là je ne vois rien ! Où est le code ??

Et pour apprendre, il y a la Faq qui est très bien fourni … , il faut prendre le temps (Le savoir ce transmet c'est l'apprentissage -> par le biais de la Faq ici, l'aide VBA en ligne, les tutos en lignes …)
On est pas là pour donner des cours mais résoudre un problème sur lequel une personne a travaillé (et a pris le temps de s'exercer afin de fournir un code, voir son 1er code)
Même avec l'usage de l'enregistreur de macro de l'aide est donné.

je tiens à te signaler que :
- kiki29 t'as donné un code sur lequel en parti tu peux te fier, il faut faire un peu de tri en enlevant ce qui attrait au PC. La solution n'est pas loin.
- je t'ai donné un lien qui donne quand même des informations importantes
+ 2 liens importants afin de faire ton projet de code : l'utilisation des variables en VBA Excel (très important) et Name As expliqué par MS
et bien sur je te parle de la boucle

Mais tu retrouves tout cela déjà dans le code fourni par kiki29 (que je salue)

En aucun cas il n'y a eu un effort de ta part pour essayé d'adapter le code donné - je n'ai rien vu poster à ce jour.

Le savoir ce transmet c'est l'apprentissage. => en donnant un code tout fait, je me demande où est l'apprentissage

[Invité]

Bonjour,
Comme je n'y connais rien en MAC, je vais être d'une aide inestimable!

En revanche Excel je connais un peut!

Tu as le nom le prénom, sous Windows je dirai le chemin.

Ça ne devrait pas posé de problème de préparer le travail dans Excel via des formules?

A=path; B=nom;C=prénom;D=extension(.Gif);E=0001.Gig;F=cible;G=Source!

Code formule Excel :

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

1
2
3
 
F=A & B & & C & D
G= A & E

Pour la partie vba sur Mac pour moi c'est du chinois!

[RyuAutodidacte]

Admettons que tu ne connais pas les différences de programmation avec PC :
Ce qu'il faut éviter à tout prix, ce sont les ActiveX et DDL utiliser dans le code :
on reprends le code de kiki29 :

Option Explicit

Private Declare Function SHCreateDirectoryEx Lib "Shell32.dll" Alias "SHCreateDirectoryExA" _
(ByVal hwnd As Long, _
ByVal pszPath As String, _
ByVal lngsec As Long) As Long

Private Function CreationDossier(sDossier) As Long
Dim Rep As Long
Rep = SHCreateDirectoryEx(0&, sDossier, 0&)
End Function

Sub Tst()
Dim LastRow As Long
Dim i As Long, sNomPrenom As String, sNum As String
Dim sDossier As String, sFichier As String
Dim sDossierOut As String

LastRow = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
sDossier = ThisWorkbook.Path => A modifier
sDossierOut = ThisWorkbook.Path & "\" & "Out"
CreationDossier sDossierOut

For i = 2 To LastRow
sNomPrenom = Feuil1.Cells(i, 1) & " " & Feuil1.Cells(i, 2) & ".jpg"
sNum = Format(Feuil1.Cells(i, 3), "0000")
sFichier = sDossier & "\" & sNum & ".jpg" => A modifier
If Dir(sFichier, vbNormal) <> "" Then
Name sFichier As sDossierOut & "\" & sNomPrenom => A modifier
End If
Next i
End Sub

j'ai commencé à te mâcher le travail, à toi de jouer et reviens avec tes modif

[Marc-L]

Bonjour, bonjour !

Si la connaissance s’acquiert par l’expérience, tout le reste n’est que de l’information. – Albert Einstein
Le savoir se transmet c'est l'apprentissage. - macprogresse

Deux choses sont infinies : l’Univers et la bêtise humaine.
Mais en ce qui concerne l’Univers, je n’en ai pas encore acquis la certitude absolue ! (Albert Einstein)

Voilà, voilà !