Lien Numérotation / son Fichier PDF

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.

Bonjour avec Name

Code:

---

1 2 3

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

---

Cette fonction renomme et déplace ton fichier

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.

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

Code:

---

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/

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

Code:

---

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:

---

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.

Salut,

Citation:

---

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

---

Bonjour à tous,

D'abord, donc, merci à kiki29.
J'ai réessayé le code proposé, en voici les résultats car il y a un blocage.
J'ai supprimé la ligne 100 du tableau. Puis lancé le code :

1er essai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

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 '--> A ce stade, la colonne A n'a pas été renumérotée.     Private Sub Renommer(Num As Long) Name Feuil1.Range("A" & Num) As Feuil1.Range("B" & Num) End Sub

---

'--> Je n'ai pas de colonne B... Je suppose que la partie Sub Tst() est censée renommer la colonne. Donc, à quoi sert cette partie du code ?

Un message d'erreur apparaît (n°75) : "Erreur d'accès Chemin/Fichier."

2ème essai
Après suppression de la ligne 100, j’ai renuméroté la colonne A pour une numérotation en continu et supprimé le fichier PDF correspondant. Puis lancé le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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 ‘Cette partie ne sert à rien mais je l’ai laissé.   ‘Je n’ai pas remis la 2ème partie de l’essai 1) mais ce code-ci : Sub Renommer() Name "E:\Fichiers\LesPDF\*.PDF" As Feuil1.Range("A" & Application.Rows.Count).End(xlUp).Row End Sub ‘remarque : 'l'astérisque : pour que les fichiers soient tous renommés.

---

Résultat : le message n°75 n’apparaît pas. Mais le message n°52 « Nom ou numéro de fichier incorrect »