Ajout d'un fichier Word dans un dossier avec VBA

Bonjour,

Je souhaiterai avoir un programme vba visant à ouvrir l'explorateur de fichier, afin de sélectionner un fichier Word et de l'ajouter à un dossier spécifique.

Est-ce que quelqu'un aurait une idée de comment coder le programme?

Merci d'avance

Hello,

Essaie ça

@+

Sub Test()

Dim fichier As Variant
fichier = Application.GetOpenFilename()
If fichier = False Then Exit Sub

Nom_fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "\"))

NewRep = "D:\Nouveau repertoire\"

FileCopy fichier, NewRep & Nom_fichier
Kill fichier

End Sub

Merci beaucoup BAROUTE78

Cela fonctionne comme je le voulais

Et comment pourrai-je faire pour que le fichier sélectionné remplace un autre (ayant le même nom) déjà présent dans le dossier?

En gros que le nouveau fichier écrase l'ancien?

Merci!

Hello,

avec ceci je pense

Sub Test()

Dim fichier As Variant
fichier = Application.GetOpenFilename()
If fichier = False Then Exit Sub

Nom_fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "\"))

NewRep = "D:\Nouveau repertoire\"

Kill NewRep & Nom_fichier
FileCopy fichier, NewRep & Nom_fichier
Kill fichier

End Sub

Dis moi si c'est ok

@+ :)

Le programme me supprime les fichiers du dossier d'origine, j'aimerai juste les copiés collés dans un autre dossier et faire en sorte que le programme remplace l'ancien fichier par le nouveau.

Est-il également possible d'ajouter plusieurs fichiers d'un coup? Par exemple ajouter la version pdf et la version word d'un fichier ayant le même nom?

Merci d'avance!

Bonjour à tous,

Je suis bloqué depuis hier avec mon problème et je n'arrive pas y venir à bout

Quelqu'un aurait une idée?

Merci d'avance