Bonjour à tous et à toutes,
Après un moment loin d'Excel, je me relance dans une macro VBA, mais j'ai un peu de mal à redémarrer.
Je chercha à automatiser la mise à jour de plusieurs classeurs, et pour celà, j'ai besoin que la macro puisse les ouvrir tous en même temps.
Pour celà, j'utilise la fonction GetOpenFilename de la façon suivante :
Sub New_Data()
Dim Tableau() As String
Const DATA As String = "C:\Users\rojmat\..."
Const DASHB As String = "C:\Users\rojmat\..."
'ChDrive DATA
'ChDir DATA
'Application.Workbooks.Open Application.GetOpenFilename("Excel Files (*.xlsx), *.xlsx")
ChDrive DASHB
ChDir DASHB
Application.Workbooks.Open Application.GetOpenFilename(, , , , True)
End Sub
Si le passage commenté sur cet exemple fonctionne très bien, le passage du dessous ne fonctionne pas du tout et me génère le message d'erreur suivant : Run-time error '13', Type mismatch. Et ce, que je choisisse d'ouvrir un fichier de la liste ou tous...
Pouvez-vous m'expliquer pourquoi j'ai ce message d'erreur, et comment je pourrais faire pour arriver à mes fins?
Merci d'avance
Mateo