Extraction d'un Tableau d'un fichier externe

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion miky973
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

miky973

XLDnaute Occasionnel
Bonjour,

Je recherche un script adéquate pour me permettre de sélectionner un tableau qui varie au niveau de ces valeurs mais pas des champs.

Mon problème c'est que je ne sais pas, Comment en cliquant sur un bouton extraire le tableau de ce fichier pour l'insérer sur une autre feuille telle un copier coller?

Problème le tableau commence de (B2:C2), et je souhaiterai que mon tableau commence à A1 sur ma feuille de destination.?

Ce code est un début mais, je ne sais pas comment l'introduire?

Code: 
Sub SelectionPlage()
    ActiveCell.CurrentRegion.Select
    MsgBox ("La plage sélectionnée est : " & Selection.Address)
End Sub


Merçi pour votre aide

Best Regards
 
Trier par date Trier par votes
Re : Extraction d'un Tableau d'un fichier externe

Bonjour,

A Tester et si cela ne vas pas, joindre un fichier exemple.
Code: 
Sub CopierTableauActif()
 ActiveCell.CurrentRegion.Copy Destination:=Sheets("Feuil2").range("A1")
End IF
Remplacer "Feuil2" par le nom de la feuille destination de la copie
A+
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
Bonjour,

A Tester et si cela ne vas pas, joindre un fichier exemple.
Code: 
Sub CopierTableauActif()
 ActiveCell.CurrentRegion.Copy Destination:=Sheets("Feuil2").range("A1")
End IF
Remplacer "Feuil2" par le nom de la feuille destination de la copie
A+
Cliquez pour agrandir...

Merçi beaup pr ton aide mais pour commencer :
Je suis dans mon fichier Excel [FichierModele.xls] à partir de ce fichier je veux lancer un script pour Récupérer un tableau de mon fichier externe [FichierSource.xls]. Dans le FichierSource.xls je veux récupérer les cellules et colones à partir de A2:B2...

La colone A1 ainsi que sa ligne ne corespondante pas a des valeurs d'un tableau.

Cela Vous parle un peu mieu?
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Re,

Oui mais pour éviter de tourner en rond, joints un fichier exemple anonymisé <49 ko.
Sur Xld on aime travailler sur du concret. En précisant si les classeur source et destination sont ouverts.

A+
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
Re,

Oui mais pour éviter de tourner en rond, joints un fichier exemple anonymisé <49 ko.
Sur Xld on aime travailler sur du concret. En précisant si les classeur source et destination sont ouverts.

A+
Cliquez pour agrandir...

Voilà un exemple d'un tableau avec un fichier source et un fichier de destination renommé FichierModele.xls

J'espère que cela vous parle mieu, j'ai déposé une explication sur la feuil1 du fichier [FichierModele.xls]

Je veux créer un script vba ki me permettra de faire cela automatiquement.

Best regards
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

RE,

Petite précision nécessaire: tu dis (dans les explication jointes au fichier) vouloir extraire à partir de A2:B2 du fichier source.
Dans le fichier source ton tableau commence en B2 et non en A2 en colonne A du même fichier source tu as:

Fichier source
*DATE :
31122010
CLIENT
Sophie
salaire :
10 000 €


Faut-il l'importer également?

En attendant une réponse.
A+
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
RE,

Petite précision nécessaire: tu dis (dans les explication jointes au fichier) vouloir extraire à partir de A2:B2 du fichier source.
Dans le fichier source ton tableau commence en B2 et non en A2 en colonne A du même fichier source tu as:

Fichier source
*DATE :
31122010
CLIENT
Sophie
salaire :
10 000 €


Faut-il l'importer également?

En attendant une réponse.
A+
Cliquez pour agrandir...

Non justement, désole je me suis emélé les pinceaux ^^

Mais je ne veux que le Tableau en A1
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

RE,

Regardes ton exemple, en A1 de la feuille source tu n'as pas de tableau. Ton tableau (avec tous les noms) commence en B2.
C'est à toi de savoir ce que tu veux et nous communique comme renseignements et comme demande.
C'est moi qui attend ta réponse
A+
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
RE,

Regardes ton exemple, en A1 de la feuille source tu n'as pas de tableau. Ton tableau (avec tous les noms) commence en B2.
C'est à toi de savoir ce que tu veux et nous communique comme renseignements et comme demande.
C'est moi qui attend ta réponse
A+
Cliquez pour agrandir...
Je pensais mettre bien exprimé pourtant, je m'en excuse si ce n'est pas clair.

En plus je n'ai mm plus le nom de mes colone et Ligne, erf.

Donc en gros je veux récupérer essentiellement le tableau pr l'envoyer dans le fichier modèle en position A1.

les informations du fichier source en A1 ne m'interesse pas.

J'espère avoir été plus claire.

Merci pour ton aide.

Cordialement,

Miky
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Bonjour,

Voici la macro dans laquelle il n'y avait que 2 lettres à changer et 1 chiffre.
Code: 
Sub ImportDatasFromSource()
    Dim plg As Range
    Dim wkb As Workbook
    
    'Vérifier si le fichier source est ouvert
    On Error Resume Next
    Set wkb = Workbooks("FichierSource.xls")
    If wkb Is Nothing Then
        MsgBox "Le fichier source doit être ouvert" & vbCrLf & "Ouvrez le et relancez la macro", vbExclamation, "ImportDatasFromSource"
        GoTo FinImport
    End If
    On Error GoTo 0
    
    With wkb.Sheets("Feuil1")
        Set plg = .Range("B2:F" & .Cells(.Rows.Count, 2).End(xlUp).Row)
        If plg.Row < 2 Then
            MsgBox "La source n'a pas de données à importer", vbExclamation, "ImportDatasFromSource"
            GoTo FinImport
        End If
        'Pour copier strictement en A1 de Feuil2
        plg.Copy Destination:=ThisWorkbook.Sheets("Feuil2").Range("A1")
        'Pour copier dans la prochaine ligne libre de la colonne A de Feuil2:
        'plg.Copy Destination:=ThisWorkbook.Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp)(2)
        MsgBox plg.Rows.Count & " lignes importées du fichiers source", vbInformation, "ImportDatasFromSource"
    End With
    
FinImport:
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
Bonjour,

Voici la macro dans laquelle il n'y avait que 2 lettres à changer et 1 chiffre.
Code: 
Sub ImportDatasFromSource()
    Dim plg As Range
    Dim wkb As Workbook
    
    'Vérifier si le fichier source est ouvert
    On Error Resume Next
    Set wkb = Workbooks("FichierSource.xls")
    If wkb Is Nothing Then
        MsgBox "Le fichier source doit être ouvert" & vbCrLf & "Ouvrez le et relancez la macro", vbExclamation, "ImportDatasFromSource"
        GoTo FinImport
    End If
    On Error GoTo 0
    
    With wkb.Sheets("Feuil1")
        Set plg = .Range("B2:F" & .Cells(.Rows.Count, 2).End(xlUp).Row)
        If plg.Row < 2 Then
            MsgBox "La source n'a pas de données à importer", vbExclamation, "ImportDatasFromSource"
            GoTo FinImport
        End If
        'Pour copier strictement en A1 de Feuil2
        plg.Copy Destination:=ThisWorkbook.Sheets("Feuil2").Range("A1")
        'Pour copier dans la prochaine ligne libre de la colonne A de Feuil2:
        'plg.Copy Destination:=ThisWorkbook.Sheets("Feuil2").Cells(Application.Rows.Count, 1).End(xlUp)(2)
        MsgBox plg.Rows.Count & " lignes importées du fichiers source", vbInformation, "ImportDatasFromSource"
    End With
    
FinImport:
End Sub
A+
Cliquez pour agrandir...

Merçi pour ton aide et dans le cas ou l'on souhaiterai utiliser cette méthode sans que le fichier source soit ouvert?

Cela est il possible?
 
Vote positif 0 Vote négatif
Re : Extraction d'un Tableau d'un fichier externe

Bonjour,

Dans la ligne
Code: 
Set wkb = Workbooks("FichierSource.xls")
A la place de "FichierSource.xls" il ne faut pas mettre un chemin vers un fichier mais simplement le nom d'un fichier ouvert.

Cette macro ne fonctionne pas avec les fichiers fermés. C'est une autre technique. dont tu trouveras plein d'exemple sur le forum.

A+
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
XL 2016 VBA Insérer une date dans le nom de fichiers PDF publipostés via WORD à partir d"excel
Réponses
3
Affichages
733
PHIL37
P
P
  • Question Question
Microsoft 365 extraction de valeur d'un tableau avec critère mois et année
Réponses
13
Affichages
882
JHA
J
patricktoulon
zip And unzip des éléments d'un fichier de type zip y compris les fichiers Excelavec la commande (TAR)
Réponses
2
Affichages
765
patricktoulon
patricktoulon
Chaton77
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
857
Chaton77
Chaton77
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
549
MCOTTEND
M
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
job75
T
  • Question Question
XL 2016 Transfert de données d'un tableau à un autre
2
Réponses
16
Affichages
2 K
merinos-BernardEtang
merinos-BernardEtang
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
906
picc
P
K
  • Résolu(e)
Microsoft 365 Ouvrir un autre classeur excel (VBA) pour utiliser les données de celui dans le classeur actif
Réponses
5
Affichages
2 K
Dranreb
Dranreb
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
659
AtTheOne
AtTheOne
B
  • Question Question
XL 2016 Macro système d'archivage d'un tableau dans un autre tableau déroulant
Réponses
2
Affichages
653
babacool22
B
D
  • Question Question
Microsoft 365 Modification d'un code VBA
Réponses
8
Affichages
1 K
Hasco
Hasco
S
  • Résolu(e)
Microsoft 365 Importer des données d'un fichier excel à un autre avec adresse connue
Réponses
13
Affichages
2 K
sanae_J
S
B
  • Question Question
Microsoft 365 VBA Compter 2 lignes après la fin d'un tableau dont on a le nom
Réponses
2
Affichages
1 K
bluesky12000
B
C
  • Résolu(e)
Microsoft 365 sous-total dans un tableau croisé dynamique
Réponses
7
Affichages
2 K
cgpa
C
X
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
X
B
  • Question Question
XL 2016 extraction donnée d'un tableau à un autre
Réponses
3
Affichages
1 K
Hasco
Hasco
C
  • Question Question
XL 2016 fichier ics
Réponses
1
Affichages
1 K
CYRIL CAMPAS
C
M
  • Question Question
Microsoft 365 Extraction de données selon plusieurs critères
Réponses
6
Affichages
2 K
mutzik
mutzik
L
  • Question Question
XL 2010 vba pour masquer des colonnes lors d'un export
Réponses
1
Affichages
1 K
Staple1600
Staple1600
Retour