Changer les noms de mes fichiers

rajaoui75 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   -
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!
A voir également:

2 réponses

Réponse 1 / 2
tyranausor Messages postés 3545 Date d'inscription   Statut Membre Dernière intervention   2 039
 
Bonjour, tu peux utiliser la coloration syntaxique (voici comment). Dans ton script qu'est ce que "B1"? 

if (b1 <>"") then 
'ton code
end if 'vba ne comprendra pas!
0
Réponse 2 / 2
Patrice33740 Messages postés 8561 Date d'inscription   Statut Membre Dernière intervention   1 780
 
Bonjour,

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


0