Macro pour ouvrir un fichier en introduisant le chemin d'accés

T

thebenoit59

XLDnaute Accro

• 11 Mars 2016

• #2

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

Bonjour Nazim.
Pourquoi ne pas directement ouvrir une boîte de dialogue pour ouvrir un fichier ?

Code:

If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub

 

Vote positif 0 Vote négatif

N

Nazim

Guest

• 11 Mars 2016

• #3

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

Rebonjour Benoit,
J'avais pensé à ça , j'ai introduis le bout de code dans une macro par contre je souhaite obtenir le résultat dans le même classeur (une autre feuille )
Est ce possible ?

 

Dernière modification par un modérateur: 11 Mars 2016

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 11 Mars 2016

• #4

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

Tu souhaites ouvrir le nouveau classeur dans une feuille c'est ça ?

 

Vote positif 0 Vote négatif

N

Nazim

Guest

• 11 Mars 2016

• #5

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

oui c'est ça .

 

Vote positif 0 Vote négatif

T

thebenoit59

XLDnaute Accro

• 11 Mars 2016

• #6

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

Alors pour importer les feuilles du classeur dans ton classeur actif :

Code:

Sub ImporterFeuilles()
Dim wBase As Workbook, wOuvert As Workbook, WS As Worksheet
Set wBase = ThisWorkbook
If Not Application.Dialogs(xlDialogOpen).Show Then Exit Sub
Set wOuvert = ActiveWorkbook
    For Each WS In wOuvert.Worksheets
        WS.Copy After:=wBase.Worksheets(wBase.Worksheets.Count)
    Next WS
End Sub

Tu peux ajouter, pour fermer le classeur ouvert une fois l'importation terminée :

Code:

wOuvert.Close False

 

Vote positif 0 Vote négatif

N

Nazim

Guest

• 11 Mars 2016

• #7

Re : Macro pour ouvrir un fichier en introduisant le chemin d'accés

Merci pour tes réponses Benoit 🙂
j'ai quant même une petite question en qui je me penche depuis quelques jours et que je souhaiterai partager avec toi:

Mon fichier de départ, celui que je veux importer sous EXCEL est en vérité un fichier avec une extension bizarre (fichier.RECU) , je souhaite trouver un moyen pour le convertir automatiquement en format CSV. est ce que tu penses que c'est possible ?

 

Vote positif 0 Vote négatif