Changer les noms de mes fichiers

Bonjour,

Je souhaiterais changer les noms de mes 10000 fichiers excel et les convertir en PDF,

1: j'ai un fichier où j'ai intégré les chemins de mes fichier, (en hypertext)

2: j'ai cette macro (que je n'arrive pas à faire fonctionner):

Sub test()

Dim nom As String, nom1 As String

nom1 = Range(" D15")

nom = nom1 & ".pdf"

if ( B1<> " ")

ActiveSheet. ExportAsFixedFormat Type :=xlTypePDF, Filename=nom

then

select cellule offset-1

End Sub

Je ne suis pas un pro dans excel, (raison pour la quelle je vous sollicite),

SVP j'ai vraiment besoin de votre savoir!

Bonjour,

Pour la macro, je l'aurais écrite comme ça (sans tester)

Sub test()
Dim nom As String
Dim nom1 As String
nom1 = Range(" D15").Value
nom = nom1 & ".pdf"
if ( B1<> "") Then
ActiveSheet. ExportAsFixedFormat Type :=xlTypePDF, Filename=nom
'Quand vous avez placé "Then", c'était pour dire "Sinon" (parce que dans ce cas, c'est "Else")?
range("B1").offset(-1,0).select 'ici, pour le offset, je ne comprend pas : vous voulez remonter d'une ligne ou faire autre chose?
End If
End Sub 

Sinon, un fichier permettrai de mieux comprendre , notament pour la case B1 (que contient - elle? que faire si elle est vide?)

Cordialement,

Bonjour,

Code à tester pour voir si le résultat peut te convenir.

Les chemins des fichiers sont en colonne A de la feuille "Feuil1" à partir de A2. Les fichiers .pdf sont créés dans le même dossier que les classeurs. Faire tout d'abords un test sur seulement 3 ou 4 classeurs pour voir le résultat (ne pas oublier d'adapter les chemins dans le classeur test !) :

Sub test()

    Dim Cls As Workbook
    Dim Plage As Range
    Dim Cel As Range

    'le chemin complet des fichier se trouve en colonne A à partir de A2, à adapter !
    With ThisWorkbook.Worksheets("Feuil1"): Set Plage = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With

    'gèle l'affichage
    Application.ScreenUpdating = False

    For Each Cel In Plage

        'contrôle si le fichier existe bien
        If Dir(Cel.Value) <> "" Then

            'l'ouvre, l'exporte en .pdf et le referme sans rien enregistrer
            Set Cls = Workbooks.Open(Cel.Value)
            Cls.ExportAsFixedFormat xlTypePDF, Split(Cel.Value, ".")(0)
            Cls.Close False

        End If

    Next Cel

    'rafraîchi
    Application.ScreenUpdating = True

End Sub

Pour 10000 fichiers, ça va prendre du termps !

merci pour votre réponse,

la macro fonctionne bien elle converti en pdf, pa contre je n'arrive pas à modifier les noms des fichiers

Bonjour,

Tu parles de laquelle ?

Si c'est de la mienne, le nom du fichier est repris dans la cellule et j'utilise la fonction Split() pour virer l'extension :

Cls.ExportAsFixedFormat xlTypePDF, Split(Cel.Value, ".")(0)

Si tu veux leur donner un autre nom, il te faut par exemple mettre en colonne B le nouveau nom (sans l'extension) avec le chemin pour qu'ils soient enregistrés là où tu veux