msingle
XLDnaute Occasionnel
Bonjour,
J'ai un code vba demandant d'indiquer un nom de fichier à charger qui fonctionne parfaitement sous 2007.
En le testant sous 2016 je me rends compte qu'il est inopérant.
Pouvez-vous m'aider?
Voici le bout de code :
Dim sPathFic As String, sFilter As String
sFilter = "Fichier d'export (*.csv)" & Chr(0) & "*.csv" & Chr(0)
' Donner le choix du fichier :
sPathFic = GetFileName(sFilter, "C:\Users\beele\Downloads", "Sélectionnez le fichier à ouvrir")
If sPathFic = "" Then Exit Sub
J'ai un code vba demandant d'indiquer un nom de fichier à charger qui fonctionne parfaitement sous 2007.
En le testant sous 2016 je me rends compte qu'il est inopérant.
Pouvez-vous m'aider?
Voici le bout de code :
Dim sPathFic As String, sFilter As String
sFilter = "Fichier d'export (*.csv)" & Chr(0) & "*.csv" & Chr(0)
' Donner le choix du fichier :
sPathFic = GetFileName(sFilter, "C:\Users\beele\Downloads", "Sélectionnez le fichier à ouvrir")
If sPathFic = "" Then Exit Sub