Discussion :

[pourinfo]

Bonjour,


Petit pb de listing : je fais des liens hypertextes vers des fichiers PDF en liant le fichier à un numéro contenu dans la première colonne de ma feuille excel.
Est-il possible de pouvoir modifier le titre du fichier si je modifie son numéro dans la colonne de la feuille ???
càd, par exemple, si je supprime une ligne dans la feuille et que je refais la numérotation automatique (1 2 3 ...), les noms des fichiers PDF associés puissent se modifier d'eux-mêmes, sans que j'ai à le faire manuellement ??

Merci d'avance (même si ce n'est pas du code vba, mais tant que ça marche!)
Cordialement.

[Basicnav]

Bonjour avec Name

Code :

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

1
2
3
sub Renommer()
 Name "C:\monfichier.XLS" As "C:\AutreRep\MonNouveauNom.xls"
 end sub

Cette fonction renomme et déplace ton fichier

[logiclogic]

Comment fais-tu pour faire cela en boucle ?

Plus précisément, pour "incrémenter" la liste : je m'explique :


Colonne (initiale) --> Colonne modifiée
1 3 (la numérotation est donc changée)
2 4
3 5
4 6
etc.

et donc renommer les fichiers PDF correspondants (FIchier nommé 1 devient fichier 3) ?? et donc faire une boucle et une incrémentation,

COrdialement.

[kiki29]

Salut, de façon basique à adapter à ton contexte , sans prise en compte de doublonnage possible ou de fichiers inexistants

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Tst()
Dim LastRow As Long, i As Long
    LastRow = Feuil1.Range("A" & Application.Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        Renommer (i)
    Next i
End Sub
 
Private Sub Renommer(Num as long)
    Name Feuil1.Range("A" & Num) As Feuil1.Range("B" & Num)
End Sub

Pour ton info voir tuto d'Ouskel'n'or http://www.developpez.net/forums/d45...gnees-feuille/

[pourinfo]

D'accord.
Mais dans la 1ère proposition, on voit clairement apparaître le chemin d'accès :

Code :

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

Name "C:\monfichier.XLS" As "C:\AutreRep\MonNouveauNom.xls"

(d'ailleurs, j'ai testé cette macro qui renomme bien le fichier)

Dans le code ci-dessous, où se trouve le chemin d'accès ?? Ce code ne sert-il pas plutôt à renommer des colonnes ??
Le message de LogicLogic est aussi ce que je voulais avoir comme macro car j'ai plusieurs fichiers à renommer.
Les valeurs de La colonne initiale représente les noms des fichiers d'origine et la colonne d'arrivée les noms voulus. Il s'agit de renommer tous les fichiers PDF automatiquement lorsque l'on supprime un fichier par exemple et que l'on refait la numérotation de la colonne (avec la poignée de recopie).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
 
Sub Tst()
Dim LastRow As Long, i As Long
    LastRow = Feuil1.Range("A" & Application.Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        Renommer (i)
    Next i
End Sub
 
Private Sub Renommer(Num as long)
    Name Feuil1.Range("A" & Num) As Feuil1.Range("B" & Num)
End Sub

Je crois que je ne comprends très bien le code ci-dessus! merci.

[kiki29]

Salut,

Les valeurs de La colonne initiale représente les noms des fichiers d'origine et la colonne d'arrivée les noms voulus.