Détecter si un fichier est word ou Excel VBA

Hello,

J'ai une macro qui permet d'ouvrir un fichier dont le nom est dans une case de mon classeur ("NomPV"), de le renommer ("ChronoPV") et de l’enregistrer à un autre emplacement. Le problème c'est que parmi ces PV, il y a des fichier word et des fichiers excel (xls ou xlsx).

'origine du fichier PV

Chemin = "C:\Users\Moulin\Desktop\travail sur les pv\listes pv\"

'ouvre n'importe quel fichier avec succés

ActiveWorkbook.FollowHyperlink Chemin & NomPV

'destination du fichier

Chemin = "C:\Users\Moulin\Desktop\travail sur les pv\archivage\"

'Tentative de sauvegarde qui ne marche pas car ne prend pas en compte l’extension du fichier

Workbooks(NomPV).SaveCopyAs Chemin & ChronoPV

Je n'arrive pas à sauvegarder les fichiers. J'ai trouvé une commande qui fonctionne exclusivement avec Word et une autre avec Excel. J'aimerai avoir une commande qui me permet de sauvegarder n'importe quel fichier.

Merci !

Bonjour,

Pour copier le fichier, il n'y a pas besoin de l'ouvrir.

Ci-joint un exemple à adapter :

copie de tous les fichiers d'un répertoire vers un autre réperoitre.

Bouben

Bien vu cela fonctionne et c'est plus simple

Merci !

Rechercher des sujets similaires à "detecter fichier word vba"