Changer les noms de mes fichiers
rajaoui75
Messages postés
1
Statut
Membre
-
Patrice33740 Messages postés 8400 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8400 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!
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!
2 réponses
-
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!
-
Bonjour,
Tu trouveras ici un excellent cours VBA gratuit pour débutants :
ftp://ftp-developpez.com/bidou/Cours/VBA/formationVBA.pdf
