Selection fichier

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #16

Re : Selection fichier

au secours j'arrive pas que des erreurs

please

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #17

Re : Selection fichier

Re

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

Code:

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

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #18

Re : Selection fichier

merci infiniment

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #19

Re : Selection fichier

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #20

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)

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #21

Re : Selection fichier

si je trouve pas je me permet de resolliciter ton aide

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #22

Re : Selection fichier

Bonjour,

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

Cordialment

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #23

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

 

Dernière édition: 14 Février 2013

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #24

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,

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #25

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.

Cliquez pour agrandir...

??????????????????????????????????????????????????
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

 

Dernière édition: 14 Février 2013

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #26

Re : Selection fichier

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #27

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 ?

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #28

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Février 2013

• #29

Re : Selection fichier

Re

ricoco à dit:

est t'il possible de se tel STP merci

Cliquez pour agrandir...

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 😉

 

Vote positif 0 Vote négatif

R

ricoco

XLDnaute Junior

• 14 Février 2013

• #30

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

 

Vote positif 0 Vote négatif