IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Lien Numérotation / son Fichier PDF


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Mars 2010
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2010
    Messages : 44
    Par défaut 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.

  2. #2
    Membre éclairé Avatar de Basicnav
    Profil pro
    Inscrit en
    Février 2008
    Messages
    245
    Détails du profil
    Informations personnelles :
    Âge : 52
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Février 2008
    Messages : 245
    Par défaut
    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

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Avril 2010
    Messages
    306
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2010
    Messages : 306
    Par défaut
    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.

  4. #4
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    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/

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Mars 2010
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Mars 2010
    Messages : 44
    Par défaut
    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.

  6. #6
    Expert confirmé
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    Juin 2006
    Messages
    6 132
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : Juin 2006
    Messages : 6 132
    Par défaut
    Salut,
    Les valeurs de La colonne initiale représente les noms des fichiers d'origine et la colonne d'arrivée les noms voulus.

Discussions similaires

  1. lancer un lien vers un fichier .pdf sous VB.net
    Par ririrourou dans le forum VB.NET
    Réponses: 7
    Dernier message: 11/09/2009, 11h14
  2. [Mail] mail avec lien vers un fichier .pdf
    Par Herode dans le forum Langage
    Réponses: 1
    Dernier message: 27/03/2008, 05h52
  3. Liens hypertext dans fichier pdf
    Par orphean dans le forum Mise en forme
    Réponses: 23
    Dernier message: 27/07/2007, 13h26
  4. créer un lien vers un fichier pdf
    Par pcappell dans le forum WinDev
    Réponses: 5
    Dernier message: 22/05/2007, 14h47
  5. lien sur un fichier pdf
    Par canabral dans le forum Balisage (X)HTML et validation W3C
    Réponses: 8
    Dernier message: 06/02/2006, 11h26

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo