Selection fichier

[ricoco]

Hello

je souhaite savoir comment faire lorsque je clic sur bouton qui se trouve sur page excel celui ci ouvre l'explorateur pour sélectionner un fichier une fois sélectionner ce fichier le chemin du fichier s'inscrit dans une case.
j'ai déjà trouver ca mais c un début

Sub Chemin()
'***Ouvre la boite de dialogue
dlgAnswer = Application.Dialogs(xlDialogOpen).Show
End Sub

merci

 

[ricoco]

Re : Selection fichier

au secours j'arrive pas que des erreurs

please

 

[Staple1600]

Re : Selection fichier

Re

Tu n'as pas du beaucoup te creuser les méninges, faut croire !

Sub d()
Dim xFic, wbk As Workbook
xFic = Application.GetOpenFilename("Fichier de Ricoco (*.xls*), *.xls*")
If xFic = False Then
MsgBox "Aucun fichier sélectionné!", vbCritical, "ATTENTION"
Exit Sub
End If
On Error GoTo e_Rr
'Set wbk = Workbooks.Open(xFic)
'MsgBox wbk.FullName 'ici pour test
Range("A1") = xFic ' en relisant tout ton fil tu aurais du trouvé cela tout seul, non !
e_Rr:
If Err Then MsgBox Err.Description, vbCritical, "Erreur"
End Sub

 

[ricoco]

Re : Selection fichier

merci infiniment

 

[ricoco]

Re : Selection fichier

est il possible d'avoir la possiblité de sélectionner plusieurs fichiers

 

[Staple1600]

Re : Selection fichier

Re

A toi de mettre la main à la pâte!
Moi je vais me coucher 😉

Il suffit de faire les recherches avec les bons mots-clés puis de prendre le temps de lire et comprendre (et tester) les codes VBA que tu vas forcément trouver.

Bonnes recherches.

PS: Sois curieux que diable! et n'attends pas que du tout-cuit (mais bon cette opinion n'engage que moi)

 

[ricoco]

Re : Selection fichier

si je trouve pas je me permet de resolliciter ton aide

 

[ricoco]

Re : Selection fichier

Bonjour,

Malgré toute les tentatives de recherche je ne trouve pas la solution pour sélectionner plusieurs fichiers...

Cordialment

 

[Staple1600]

Re : Selection fichier

Bonsoir


J'ai du mal à croire que tu ais cherché longtemps 😉
Cela semble évident non ? (As-tu au moins été voir dans l'aide VBA ?)
Car tout était dedans... 🙄
EXTRAIT DE L'AIDE VBA

MultiSelect Argument de type Variant facultatif.
Affectez lui la valeur True pour permettre la sélection de plusieurs noms de fichiers.
Affectez lui la valeur False pour permettre la sélection d'un seul nom de fichier. La valeur par défaut est False.

Code VBA:
Sub Ricoco()
Dim arrFichiers As Variant, Msg$, x%
arrFichiers = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(arrFichiers) Then
[A1].Resize(UBound(arrFichiers)) = Application.Transpose(arrFichiers)
Else
MsgBox "Aucun(s) fichier(s) sélectionné(s)."
End If
End Sub

 

[ricoco]

Re : Selection fichier

Merci pour t'as réponse

Mais moi ce que je souhaite c'est que dans la cellule A1 soit inscrit le ou les chemins des fichiers sélectionnés.

En effet j'ai une macro pour envoyer des mails elle marche très bien mais je souhaite donc pouvoir y rajouter des fichiers a envoyer que j'ai sélectionne grace a la macro que j'essaye de créer (avec ton aide).

En A1 la macro mail ira cherche les fichiers sélectionnés pour les joindre au mail envoyés
C'est pour cela que j'essaye de créer cette macro.

Cordialement,

 

[Staple1600]

Re : Selection fichier

Re

Mais moi ce que je souhaite c'est que dans la cellule A1 soit inscrit le ou les chemins des fichiers sélectionnés.

??????????????????????????????????????????????????
C'est ce que fait la macro de mon message précédent, non ?
Tu as testé au moins en sélectionnant plusieurs fichiers ???
Tu préfères comme ceci?
Code VBA:
Sub RicocoII()
Dim arrFichiers As Variant
arrFichiers = Application.GetOpenFilename(MultiSelect:=True)
If IsArray(arrFichiers) Then
[A1].Resize(, UBound(arrFichiers)) = arrFichiers
Else
MsgBox "Aucun(s) fichier(s) sélectionné(s)."
End If
End Sub

 

[ricoco]

Re : Selection fichier

oui elle inscrit les liens en a1 a2 et puis a3 si je selectiionne 2 fichiers

 

[Staple1600]

Re : Selection fichier

Re

Donc elle fait bien ce tu voulais cette macro, non ?
Inscrire le chemin et le nom des fichiers en A1 (puis A2, A3 puisqu'il y a plusieurs fichiers sélectionnés)

Désormais tu as tous les outils en main, je te laisse faire les choses un peu par toi-même
C'est la meilleure façon de progresser, non ?

 

[ricoco]

Re : Selection fichier

tu as raison il faut apprendre
Mais tout le monde n'as la chance d'etre super instruit
c mon cas

effectivement cette macro inscrit les fichiers en A1 puis, A2 puis, A3....
Mais ma macro que j'ai ma cherche le la piece jointe seulement en A1

est t'il possible de se tel STP merci

 

[Staple1600]

Re : Selection fichier

Re

est t'il possible de se tel STP merci

La vocation d'un forum c'est le partage entre tous et toutes pas de résoudre des questions en duo.
Je n'ai plus de téléphone depuis 2002. Je n'en ai pas l'usage. Et je suis réfractaire au portable (au grand dam de mon boss)

De toute façon, au teléphone, je te dirai simplement:
Mets les mains dans le cambouis, testes , essaies, échoues, testes, essaies, échoue, testes, cherches, lis, regardes, observes, manges parfois, dors peu, testes, essaies, échoues, recommences toujours et encore.
Mais un jour saches t'arrêter (faut bien laisser du temps aux interactions sociales et aux repas de familles et aux siestes crapuleuses ou tout autre chose qui te procure plaisir et délectation)

Donc prends ta respiration, va boire une tisane ou un vermouth et remets ton métier sur l'ouvrage.

Et essaies tant que faire se peut d’approfondir tes recherches avant de poser une question sur le forum, cela te permettra de progresser plus rapidement 😉

 

[ricoco]

Re : Selection fichier

j'ai pas de connaissance en VBA

mon but est d'envoyer un mail avec un ou plusieurs fichiers joint a ce mail sans utiliser outlook

j'ai cherche sur le site sa ma parait impossible a mon niveau