Concaténation
winflow
Messages postés
157
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Un petit soucis pour concaténer voici le code :
Un petit soucis pour concaténer voici le code :
Dim cheminFichier As String
Dim chemin As String
Dim nomFichier As String
If Application.FileDialog(msoFileDialogFilePicker).Show = True Then
'Définit le classeur fermé servant de base de données
cheminFichier = Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1)
nomFichier = Dir(cheminFichier)
chemin = Replace(cheminFichier, nomFichier, "")
Else
MsgBox ("Veuillez cliquer sur ouvrir svp")
Exit Sub
End If
msgbox (ExecuteExcel4Macro("'" & chemin & "\['"& nomfichier &"']Feuil1'!R2C1")
