Changer les noms de mes fichiers Fermé

Question

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!

tyranausor · Answer

Bonjour, tu peux utiliser la coloration syntaxique (voici comment). Dans ton script qu'est ce que "B1"? 

if (b1 <>"") then 'ton codeend if 'vba ne comprendra pas!

Patrice33740 · Answer

Bonjour,

Tu trouveras ici un excellent cours VBA gratuit pour débutants :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf

Changer les noms de mes fichiers

2 réponses

Discussions similaires