Importer un fichier au choix

[reve24]

bonjour

Comment pourrais je choisir mon fichier a importer dans un dossier

Le scenario

J ouvre mon fichier traitement import
je clique
j ai mes fichiers XLS
je choisi celui que je désire ( cela peut etre n importe lequel et variable selon les jours )
dès que je clique cela importe les données en A2
soit en fichier fermé soit en fichier ouvert et ferme apres l import .

Merci d avance

 

[reve24]

Re : Importer un fichier au choix

Bonjour
sur le site j ai trouvé effectivement cette merveilleuse macro
merci à celui qui a créé ce joli travail.
(Dommage que j ai perdu le lien . ) mais rendons lui ce joli travail

 

[Thibault LB]

Re : Importer un fichier au choix

Bonjour, au cas ou d'autres auraient besoin, je propose ce que j'ai en stock.

'Récupération du fichier avec lequel on veut comparer, par une invite utilisateur. Le fichier est stocké dans l'objet Ancien.
Dim Ancien As Workbook
Dim AN As Variant
AN = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*", Title:="Choix du fichier de comparaison")
If AN <> False Then
    Set Ancien = Workbooks.Open(AN)
End If

ou

AN2 = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*", Title:="Choix du fichier")
    If AN2 <> False Then
        Set Ancien = Workbooks.Open(AN2)
    End if

Cordialement,

Thibault

 

[reve24]

Re : Importer un fichier au choix

Sub toto()

'Récupération du fichier avec lequel on veut comparer, par une invite utilisateur. Le fichier est stocké dans l'objet Ancien.
Dim Ancien As Workbook
Dim AN As Variant
AN = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*", Title:="Choix du fichier de comparaison")
If AN <> False Then
Set Ancien = Workbooks.Open(AN)
End If

AN2 = Application.GetOpenFilename(FileFilter:="Fichiers Excel (*.xl*), *.xl*", Title:="Choix du fichier")
If AN2 <> False Then
Set Ancien = Workbooks.Open(AN2)
End If
End Sub

Mais cela ne copie pas

 

[Thibault LB]

Re : Importer un fichier au choix

Non, ça permet juste de choisir le fichier à importer.

Pour le reste, je te conseille d'utiliser l'enregistreur de macro, au moins pour comprendre comment ça marche. Ca permet d'enregistrer tes actions et de te les traduire dans ta macro. Un copier/coller, rien de plus simple.

A+