Discussion :

[Mathieu69]

Bonjour,

J'ai effectué une macro via VBA sous Excel me permettant de copier une présentation Powerpoint et de la déplacer dans un répertoire spécifique. En modifiant le nom de la présentation dans le repertoire spécifique, cela me permet de renommer la présentation

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Fichier1()
   Dim GestionFichier As Object
   Set GestionFichier = CreateObject("Scripting.FileSystemObject")
   Dim Xx As String
   GestionFichier.CopyFile "P:\Presentation\Pres.pptx", "P:\Nouveau Dosser\Xx.pptx"
 
End Sub

Le soucis, j'aimerais que Xx (soit le nouveau nom de la presentation) corresponde au contenu d'une valeur, par exemple la cellule A1 de la feuille 1. Cela est il possible ?


Merci d'avance

[Invité]

Oui:

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
 
Private Sub Fichier()
 
  Dim GestionFichier As Object
  Dim Xx As String
 
  Set GestionFichier = CreateObject("Scripting.FileSystemObject")
  Xx = Worksheets("Feuil1").[A1].Value
 
  GestionFichier.CopyFile "P:\Presentation\Pres.pptx", "P:\Nouveau Dosser\" & Xx & ".pptx"
 
End Sub

[Mathieu69]

Merci, c'est impeccable !