Concaténation

Fermé
winflow Messages postés 157 Date d'inscription mercredi 7 avril 2010 Statut Membre Dernière intervention 17 mars 2015 - 4 nov. 2013 à 15:11
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 - 4 nov. 2013 à 21:34
Bonjour,


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")

1 réponse

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
4 nov. 2013 à 21:34
Salut,

Il se situe où le problème de concaténation ???
0