Ouvrir un fichier, extraire des données, les coller, faire tourner des formules
Fermé
amelise
Messages postés
52
Date d'inscription
jeudi 6 mai 2010
Statut
Membre
Dernière intervention
11 novembre 2022
-
Modifié le 6 nov. 2020 à 14:57
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 6 nov. 2020 à 15:59
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 6 nov. 2020 à 15:59
A voir également:
- Ouvrir un fichier, extraire des données, les coller, faire tourner des formules
- Ouvrir fichier rar - 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
- Comment ouvrir un fichier apk ? - Guide
- Ouvrir un fichier .dat - Guide
- Ouvrir fichier .bin - Guide
1 réponse
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
6 nov. 2020 à 14:51
6 nov. 2020 à 14:51
bonjour,
peux-tu utiliser les balises de code (VBA est du basic) quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Tu n'écris pas ce que tu attends de nous.
As-tu examiné les réponses à des questions très similaires posées ici?
peux-tu utiliser les balises de code (VBA est du basic) quand tu partages du code: https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Tu n'écris pas ce que tu attends de nous.
As-tu examiné les réponses à des questions très similaires posées ici?
6 nov. 2020 à 15:10
Option Explicit Sub Test() ' ' Test Macro 'Déclaration des variables Dim nom_fichier As String, Wbkdata As Workbook, source As Range, destination As Range Application.DisplayAlerts = False Application.ScreenUpdating = False ChDir "C:\Users\Monsi\Desktop\excel" nom_fichier = Application.GetOpenFilename("fichiers Excel(*.),*.") 'Initialisation de la variable WbkData Set Wbkdata = Workbooks.Open(nom_fichier) 'Récupération des données dans l'autre feuille Set source = Wbkdata.Sheets("Feuil1").Range("A2:U1717") Set destination = ThisWorkbook.Sheets("??").Range("G38745") Set destination = destination.Resize(source.Rows.Count, source.Columns.Count) source.Copy destination 'fermeture du classeur d'où les données ont été extraites Wbkdata.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub6 nov. 2020 à 15:59
Option Explicit Sub Test() ' ' Test Macro 'Déclaration des variables Dim nom_fichier As String, Wbkdata As Workbook, source As Range, destination As Range Dim fdest As Worksheet, ligvid As Long Application.DisplayAlerts = False Application.ScreenUpdating = False ChDir "C:\Users\Monsi\Desktop\excel" nom_fichier = Application.GetOpenFilename("fichiers Excel(*.),*.") 'Initialisation de la variable WbkData Set Wbkdata = Workbooks.Open(nom_fichier) 'Récupération des données dans l'autre feuille Set source = Wbkdata.Sheets("Feuil1").Range("A2:U1717") Set fdest = ThisWorkbook.Sheets("??") ligvid = fdest.UsedRange.Row + fdest.UsedRange.Rows.Count Set destination = fdest.Cells(ligvid, "g").End(xlUp).Offset(1) Set destination = destination.Resize(source.Rows.Count, source.Columns.Count) source.Copy destination 'fermeture du classeur d'où les données ont été extraites Wbkdata.Close Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub