I
IFFIC
Guest
Bonsoir à tous du Forum.
Merci les Dieux de m'avoir fait vous rencontrer.
Merci à vous pour votre gentillesse que j'y ai trouvé.
Voici donc là où je coince!!!
Après un:
Private Sub CommandButton4_Click()
Dim CHEMIN As String
Dim BOITE As FileDialog
Set BOITE = Application.FileDialog(msoFileDialogFilePicker)
BOITE.AllowMultiSelect = False
BOITE.Show
For lngCount = 1 To BOITE.SelectedItems.Count
TextBox1.Value = BOITE.SelectedItems(lngCount)
Next lngCount
CHEMIN = TextBox1.Value
Worksheets('ADHERENTS').Cells(1, 1) = CHEMIN
End Sub
Dans A1 de ma feuille ADHERENTS, j'ai:
C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\ASSO.xls
Sauf que par la suite pour faire un: 'ExecuteExcel4Macro…….'
Dans l'une des feuilles du classeur 'ASSO' j'ai besoin de traduire le chemin comme suit.
C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\[ASSO]
En aval, tout fonctionne (avec la Feuille en variable).
Mais en amont, je ne sais pas mettre en bonne forme la syntaxe
Indispensable ci-dessus dans la cellule de référence.
Grand merci à qui pourrait m'aider.
Et bonne soirée à tous.
IFFIC
Merci les Dieux de m'avoir fait vous rencontrer.
Merci à vous pour votre gentillesse que j'y ai trouvé.
Voici donc là où je coince!!!
Après un:
Private Sub CommandButton4_Click()
Dim CHEMIN As String
Dim BOITE As FileDialog
Set BOITE = Application.FileDialog(msoFileDialogFilePicker)
BOITE.AllowMultiSelect = False
BOITE.Show
For lngCount = 1 To BOITE.SelectedItems.Count
TextBox1.Value = BOITE.SelectedItems(lngCount)
Next lngCount
CHEMIN = TextBox1.Value
Worksheets('ADHERENTS').Cells(1, 1) = CHEMIN
End Sub
Dans A1 de ma feuille ADHERENTS, j'ai:
C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\ASSO.xls
Sauf que par la suite pour faire un: 'ExecuteExcel4Macro…….'
Dans l'une des feuilles du classeur 'ASSO' j'ai besoin de traduire le chemin comme suit.
C:\\Documents and Settings\\MAPOMME\\Bureau\\ASSY\\[ASSO]
En aval, tout fonctionne (avec la Feuille en variable).
Mais en amont, je ne sais pas mettre en bonne forme la syntaxe
Indispensable ci-dessus dans la cellule de référence.
Grand merci à qui pourrait m'aider.
Et bonne soirée à tous.
IFFIC