Extraction d'un Tableau d'un fichier externe

miky973 · 8 Février 2011

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

Guest · 8 Février 2011

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+

miky973 · 8 Février 2011

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+

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?

Guest · 8 Février 2011

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+

miky973 · 8 Février 2011

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+

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

Guest · 8 Février 2011

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+

miky973 · 8 Février 2011

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+

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

Mais je ne veux que le Tableau en A1

Guest · 8 Février 2011

Re : Extraction d'un Tableau d'un fichier externe

Re,

tes fichiers La macro est dans le fichier Modele.

A+

miky973 · 8 Février 2011

Re : Extraction d'un Tableau d'un fichier externe

Hasco à dit:
Re,

tes fichiers La macro est dans le fichier Modele.

A+

Re Hasco c'est super ce que tu as fait mais c'est l'inverse, je ne veux que le Tableau en A1
et que ce tableau se retrouve dans la feuil2 ds la Cellule A1.

Tous les cas merci pour ton aide. j'attend ta réponse

Guest · 8 Février 2011

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+

miky973 · 8 Février 2011

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+

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

Guest · 8 Février 2011

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+

miky973 · 14 Février 2011

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+

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?

miky973 · 14 Février 2011

Re : Extraction d'un Tableau d'un fichier externe

Autre question ?, lorsque je met un chemin, il ne vas pas le chercher et me met automatiquement ouvrez le fichier source, alors qu'il est ouvert... Je ne comprend vraiment pas pkoi.

Best Regards

Guest · 14 Février 2011

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+

Extraction d'un Tableau d'un fichier externe

miky973

XLDnaute Occasionnel

Guest

Guest

miky973

XLDnaute Occasionnel

Guest

Guest

miky973

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

miky973

XLDnaute Occasionnel

Guest

Guest

miky973

XLDnaute Occasionnel

Guest

Guest

miky973

XLDnaute Occasionnel

Guest

Guest

miky973

XLDnaute Occasionnel

miky973

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Extraction d'un Tableau d'un fichier externe

XLDnaute Occasionnel

Guest

Guest

XLDnaute Occasionnel

Guest

Guest

XLDnaute Occasionnel

Pièces jointes

Guest

Guest

XLDnaute Occasionnel

Guest

Guest

XLDnaute Occasionnel

Guest

Guest

XLDnaute Occasionnel

Guest

Guest

XLDnaute Occasionnel

XLDnaute Occasionnel

Guest

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency