Fermeture du fichier dont j'ai importé les données
Résolu/Fermé
thealchemyst
Messages postés
18
Date d'inscription
jeudi 11 septembre 2014
Statut
Membre
Dernière intervention
30 mars 2015
-
11 sept. 2014 à 17:35
thealchemyst Messages postés 18 Date d'inscription jeudi 11 septembre 2014 Statut Membre Dernière intervention 30 mars 2015 - 12 sept. 2014 à 16:47
thealchemyst Messages postés 18 Date d'inscription jeudi 11 septembre 2014 Statut Membre Dernière intervention 30 mars 2015 - 12 sept. 2014 à 16:47
A voir également:
- Fermeture du fichier dont j'ai importé les données
- Fichier rar - Guide
- Fichier host - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Fichier iso - Guide
- Le fichier à télécharger est la nouvelle note de service de votre entreprise. importez ce fichier dans le bon dossier sur l'espace pix cloud. donnez à ce fichier les mêmes droits d'accès que les autres notes de service. - Forum Windows
3 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 762
12 sept. 2014 à 16:33
12 sept. 2014 à 16:33
Bonjour,
Essaies :
Essaies :
Option Explicit
Sub Importation()
Dim l As Variant 'liste des fichiers
Dim o As Workbook 'origine (classeur)
Dim f As Worksheet 'feuille
Dim d As Workbook 'destination (classeur)
Dim i As Long 'index
Set d = ActiveWorkbook
ChDrive "C:" ' Choix du lecteur
ChDir "C:" 'Choix du répertoire
l = Application.GetOpenFilename("fichier excel (*.*), *.xls", _
, "Sélection des fichiers excel", , True)
Select Case TypeName(f)
Case Is = "Boolean"
Exit Sub
Case Else
For i = LBound(l) To UBound(l)
Set o = Workbooks.Open(l(i))
Set f = o.Worksheets(1)
f.Copy before:=d.Worksheets(1)
o.Close False
Set o = Nothing
Next
End Select
End Sub
Polux31
Messages postés
6917
Date d'inscription
mardi 25 septembre 2007
Statut
Membre
Dernière intervention
1 novembre 2016
1 197
11 sept. 2014 à 18:55
11 sept. 2014 à 18:55
Bonjour,
... Jusqu'ici, pas de problème ...
J'en doute !!! Si l'utilisateur sélectionne plusieurs fichiers, seules les données du dernier fichier ouvert sont copiées ...
... Jusqu'ici, pas de problème ...
J'en doute !!! Si l'utilisateur sélectionne plusieurs fichiers, seules les données du dernier fichier ouvert sont copiées ...
thealchemyst
Messages postés
18
Date d'inscription
jeudi 11 septembre 2014
Statut
Membre
Dernière intervention
30 mars 2015
Modifié par thealchemyst le 12/09/2014 à 15:23
Modifié par thealchemyst le 12/09/2014 à 15:23
Bonjour Polux31,
Merci de ta réponse.
Alors comment dois-je l'adapter pour qu'à la sélection de mes fichiers, le premier se colle sur la feuille2, le suivant sur la 3 et ainsi de suite. J'ai 12 fichiers dont je dois importer les données (pour chaque mois de l'année en cours). Sur mon formulaire j'ai déjà créé les 12 feuilles.
Je pense à une boucle mais je ne sais pas trop comment l'intégrer (j'ai commencé le VBA lundi...).
Après, pour la fermeture des docs importés, cela sera aussi intégrer dans la boucle...
Je vais cherché dans le forum et autres sites. Il faut que je me débrouille, c'est comme ça qu'on apprend, mais un d'aide est toujours la bienvenue :).
Merci d'avance de ta réponse.
Merci de ta réponse.
Alors comment dois-je l'adapter pour qu'à la sélection de mes fichiers, le premier se colle sur la feuille2, le suivant sur la 3 et ainsi de suite. J'ai 12 fichiers dont je dois importer les données (pour chaque mois de l'année en cours). Sur mon formulaire j'ai déjà créé les 12 feuilles.
Je pense à une boucle mais je ne sais pas trop comment l'intégrer (j'ai commencé le VBA lundi...).
Après, pour la fermeture des docs importés, cela sera aussi intégrer dans la boucle...
Je vais cherché dans le forum et autres sites. Il faut que je me débrouille, c'est comme ça qu'on apprend, mais un d'aide est toujours la bienvenue :).
Merci d'avance de ta réponse.
thealchemyst
Messages postés
18
Date d'inscription
jeudi 11 septembre 2014
Statut
Membre
Dernière intervention
30 mars 2015
12 sept. 2014 à 16:20
12 sept. 2014 à 16:20
Effectivement, je ne peux pas sélectionner plusieurs fichiers et les coller les uns après les autres...
J'ai un peu modifié mon code pour que les données exportées se colle sur une nouvelle feuille (Sheets.Add After:=Sheets(Sheets.Count)
et revenir sur la première feuille de mon formulaire (Sheets("Formulaire").Select) une fois les données collées.
Mais mon problème reste le même. Comment coller les données du premier fichier sur la feuille1 nouvellement créée, les données du 2ème fichier sur la feuille2 et ainsi de suite sans que l'utilisateur ne doivent le faire "manuellement", en pressant le bouton de commande..?
J'en demande beaucoup, mais je vais plancher ce week-end à fond sur le sujet !
Votre connaissance m'aiderait beaucoup.
Si vous pouvez me donner une piste, c'est très très volontiers :).
Merci d'avance !
J'ai un peu modifié mon code pour que les données exportées se colle sur une nouvelle feuille (Sheets.Add After:=Sheets(Sheets.Count)
et revenir sur la première feuille de mon formulaire (Sheets("Formulaire").Select) une fois les données collées.
Mais mon problème reste le même. Comment coller les données du premier fichier sur la feuille1 nouvellement créée, les données du 2ème fichier sur la feuille2 et ainsi de suite sans que l'utilisateur ne doivent le faire "manuellement", en pressant le bouton de commande..?
J'en demande beaucoup, mais je vais plancher ce week-end à fond sur le sujet !
Votre connaissance m'aiderait beaucoup.
Si vous pouvez me donner une piste, c'est très très volontiers :).
Merci d'avance !
12 sept. 2014 à 16:47
C'est ce qu'il me fallait !
Je vais bosser dur ce week-end sur VBA et en apprendre d'avantage.
La connaissance est source de plaisir :)
Merci encore, votre aide m'a été très précieuse !