Ajouter un doc à un classeur en vba ?

[Lindoo]

Bonjour le forum 🙂

Je cherche à ajouter, depuis mon userform, un document excel existant à mon classeur (qui est déjà ouvert) et renouveler cette expérience un certain nombre de fois.

Merci pour vos réponses 😉 Et bon appétit 😉

PS : Pour le moment j’utilisais ce code là, qui n’est pas du tout suffisant... :
ChDrive "S"
' Change le répertoire courant
ChDir "S:\Dept_CLMM\AMC"
' met dans une variable texte le chemin du fichier
' si rien de selectionné renvoi FAUX
StrFile = Application.GetOpenFilename("Classeur Excel (*.xls), *.xls,Fichier MD1 (*.MD1), *.MD1,Fichier MD2 (*.MD2), *.MD2,Fichier MDT (*.MDT), *.MDT,Fichier csv (*.csv), *.csv")
' affiche le résultat
MsgBox StrFile

 

[Lindoo]

J'ai aussi testé ça (code de @+Thierry sur un autre sujet) :

ChDrive "S"
Chemin = "S:\Dept_CLMM\AMC\"
NomFichier = Application.GetOpenFilename("Classeur Excel (*.xls), *.xls,Fichier MD1 (*.MD1), *.MD1,Fichier MD2 (*.MD2), *.MD2,Fichier MDT (*.MDT), *.MDT,Fichier csv (*.csv), *.csv")
Workbooks.Open Chemin & NomFichier
Sheets(1).Activate

Mais ça plante... Il ouvre bien une fenêtre, je choisi mon fichier et après il m'indique une erreur sur cette ligne : Workbooks.Open Chemin & NomFichier
et pourtant le fichier prit est : S:\Dept_CLMM\AMC\MOIS01.MD1

Merci d'avance 😉