Bonjour à tous,

J'ai fait un petit bout de code afin de récupérer un fichier (de n'importe quel type) avec la fonction Application.GetOpenFilename. Une fois le fichier choisi, il est copié avec la fonction FileCopy dans un sous répertoire défini par le chemin du classeur (ActiveWorkbook.Path). Cela marche très bien tant qu'il est en dur sur mon PC. Le problème, c'est qu'à terme, cette fonctionnalité sera intégrée sur un fichier excel enregistré sur le Teams de mon entreprise, et lorsque la fonction FileCopy s'exécute, j'ai "l'erreur d'exécution 52 : Nom ou numéro de fichier incorrect" qui apparaît. J'ai fait plusieurs recherches sur ce forum et d'autres mais je ne trouve pas d'autres personnes ayant eu le souci.

Pouvez-vous m'aider s'il vous plaît ? Voici mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
chemin_initial = Application.GetOpenFilename
nom_initial = Dir(chemin_initial)
nouveau_chemin_teams = ActiveWorkbook.Path & "/Pièces jointes/" & nom_initial 'chemin utilisé quand le fichier est dans teams car séparateurs différents
'nouveau_chemin_hors_teams = ActiveWorkbook.Path & "\Pièces jointes\" & nom_initial 'chemin utilisé quand le fichier n'est pas dans teams
 
FileCopy chemin_initial, nouveau_chemin_teams
 
'FileCopy chemin_initial, nouveau_chemin_hors_teams
End Sub
Sam