[VBA] importer contenu d'une feuille

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion swan
  • 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
S

swan

Guest
Bonjour,

je voudrais savoir s'il est possible, au moyen d'une macro, d'importer les données d'une feuille d'un classeur vers un autre classeur. En clair, copier tout le contenu de [Classeur1-Feuil1] et le coller dans [Classeur2-Feuil1] et non pas copier-coller la feuille en elle même.

En fait, je voudrais créer un bouton dans [Classeur2-Feuil1] qui ouvre une boîte de dialogue dans laquelle je pourrais sélectionner le fichier excel à importer.

Merci!
 
Trier par date Trier par votes
Re : [VBA] importer contenu d'une feuille

swan à dit:
Bonjour,

je voudrais savoir s'il est possible, au moyen d'une macro, d'importer les données d'une feuille d'un classeur vers un autre classeur. En clair, copier tout le contenu de [Classeur1-Feuil1] et le coller dans [Classeur2-Feuil1] et non pas copier-coller la feuille en elle même.

En fait, je voudrais créer un bouton dans [Classeur2-Feuil1] qui ouvre une boîte de dialogue dans laquelle je pourrais sélectionner le fichier excel à importer.

Merci!
Cliquez pour agrandir...

Bonjour

faire un copier / collage spécial choisir valeur

Cdlt

RGI
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

les deux classeurs sont ouverts

Code: 
Sub collagesp()
    Windows("Classeur1").Activate
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    ActiveWindow.WindowState = xlMinimized
    Windows("Classeur2").Activate
    ActiveWindow.WindowState = xlNormal
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'ActiveWindow.Close
End Sub

Cdlt

RGI
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Merci Gilbert,

moi aussi j'ai utilisé l'enregistreur de macro mais ça va pas rtésoudre mon problème.

Moi, je voudrais surtout utiliser un bouton qui ouvre une fenêtre (comme celle de "ouvrir") où je pourrais parcourir pour sélectionner le fichier excel à importer (qui est d'ailleurs fermé).

... bon j'ai pas fini mon post, là je réfléchie comment je pourrai importer mon fichier, j'ai peut-être une solution mais si vous avez quelque chose, faîtes moi signe!
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

mon enregistreur de macro me donne ça:

Sub test()

Workbooks.Open Filename:= _
"C:\Documents and Settings\mutthe\Mes documents\Classeur1.xls"
' ouvre "Classeur1"
Range("A1😀15").Select ' sélectionne toutes les données non vides de ce classeur
Selection.Copy
Windows("Classeur2.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

mais je voudrais "généraliser" ce code où je pourrais ouvrir n'importe quel fichier et ne plus avoir "Classeur1" et "Classeur2"...
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Voilà je voudrais remplacer ce qu'il y a en rouge par "l'autre classeur qui est ouvert" et dont je ne connais pas le nom.

Sub test()

Windows("Classeur1.xls").Activate
Range("A1😀15").Select
Selection.Copy
Windows("Classeur2.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

voilà un code pour ouvrir un fichier

Code: 
Sub OuvertureFichier()

Dim a As Variant, Nom As String

Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
ChDrive "C:"  ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
    , "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
        For b = LBound(a) To UBound(a)
            Workbooks.Open a(b)
        Next
 End Select
 Application.ScreenUpdating = True
Workbooks(Nom).Activate

End Sub

à adapter à votre code

RGI
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Merci ce code marche très bien

Sub test()

Windows("Classeur1.xls").Activate
Cells.Select
Selection.Copy
Windows("Classeur2").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub

maintenant, je voudrais remplacer la première ligne en rouge par un code qui active la fenêtre du fichier excel dont je ne connais pas le nom. C'est possible?
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Sub test()
Dim a As Variant, Nom As String

Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select

'Windows(a(b)).Activate 'ligne à supprimer
Cells.Select
Selection.Copy
Windows(Nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

on peut aussi

Code: 
Sub test()
Dim a As Variant, Nom As String

Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select

nom2 = ActiveWorkbook.Name
Cells.Select
Selection.Copy
Windows(Nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows(Nom2).Close
End Sub

Cdlt

RGI
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

j'ai départagé le code en 2:

Sub test1()

Dim a As Variant, Nom As String

Application.ScreenUpdating = False
Nom = ActiveWorkbook.Name
ChDrive "C:" ' Choix du lecteur
ChDir "C:\" 'Choix du répertoire
a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
, "Sélection de vos fichiers excel", , True)

Select Case TypeName(a)
Case Is = "Boolean"
Exit Sub
Case Else
For b = LBound(a) To UBound(a)
Workbooks.Open a(b)
Next
End Select
Application.ScreenUpdating = True
Workbooks(Nom).Activate

End Sub

Sub test2()

Windows(a(b)).Activate
Cells.Select
Selection.Copy
Windows(Nom).Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

End Sub


résultat --> le premier code marche bien, le 2e me met: "Erreur de compilation, Sub ou Function non définie" et me désigne l'erreur en rouge.

je me demande s'il faut pas créer une fonction ("Function...") à part dans un module. Alors là, je sais pas m'y prendre...
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

voir le second code que j'ai posté il fonctionne très bien

il faut ajouter 2 lignes voilà

Code: 
Sub test()
    Dim a As Variant, Nom As String

    Nom = ActiveWorkbook.Name
    ChDrive "C:"    ' Choix du lecteur
    ChDir "C:\"    'Choix du répertoire
    a = Application.GetOpenFilename("fichier excel (*.xls), *.xls", _
                                    , "Sélection de vos fichiers excel", , True)

    Select Case TypeName(a)
    Case Is = "Boolean"
        Exit Sub
    Case Else
        For b = LBound(a) To UBound(a)
            Workbooks.Open a(b)
        Next
    End Select

    Nom2 = ActiveWorkbook.Name
    Cells.Select
    Selection.Copy
    Windows(Nom).Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
                                                                    :=False, Transpose:=False
    Application.DisplayAlerts = False
    Windows(Nom2).Close
    Application.DisplayAlerts = True

End Sub
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Ok le code fonctionne comme il le faut mis à part qu'il me met un ptit message d'erreur: "l'indice n'appartient pas à la sélection"

je ne comprend pas trop pourquoi il met ça ce qui n'a pas empêché le code de marcher.

j'aimerais juste savoir où est la source de cet erreur...

en tout cas, tu m'as bien aidé, je t'en remercie!
 
Vote positif 0 Vote négatif
Re : [VBA] importer contenu d'une feuille

Bonjour,
Tout d'abord je tiens à vous remercier, ce petit programme m'a été fort utile 🙂.
Il fonctionne parfaitement sauf quand il s'agit de copier coller un ensemble d'environ 9000 lignes et 70 colonnes. Cela fait beaucoup, je vous l'accorde, mais pourriez vous m'expliquer pourquoi manuellement le copier coller s'effectue en moins de 2 secondes mais qu'avec le programme 6 minutes entière ne suffisent pas?

EDIT: ne s'agirait il pas du presse papier? dans le cas manuel ce serait celui de windows et dans la macro VBA ce serait celui de office? Est il donc possible de choisir le presse papier avant de copier coller? Merci baucoup 🙂
 
Dernière modification par un modérateur:
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

pascal21
  • Question Question
XL 2016 ajouter, une nouvelle feuille avec le contenu d'une cellule
Réponses
7
Affichages
335
job75
job75
L
  • Résolu(e)
XL 2021 importation données depuis différentes feuille suivant critère
Réponses
10
Affichages
358
lutin74330
L
P
  • Question Question
XL 2019 Macro VBA appliquer un filtre lors d'une importation de données
Réponses
1
Affichages
573
fanch55
fanch55
C
  • Question Question
Microsoft 365 VBA activer filtre élaboré suite changement donnée d'une cellule
Réponses
5
Affichages
449
Chounoé
C
P
  • Question Question
XL 2016 VBA Appliquer un filtre sur mes données importées
Réponses
4
Affichages
683
sousou
sousou
F
  • Question Question
XL 2021 VBA bouton pour copier le contenu d'une cellule
Réponses
3
Affichages
557
fuioplde
F
N
  • Résolu(e)
Microsoft 365 Code erreur dans code Vba
Réponses
14
Affichages
705
TooFatBoy
TooFatBoy
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
1 K
arnomorize
A
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
Staple1600
  • Question Question
Power Query Data Model - renvoyer le résultat d'une requête PQ sans passer par une feuille
Réponses
11
Affichages
765
Staple1600
Staple1600
S
  • Résolu(e)
XL 2016 copier des données d'une feuille à une autre selon critères et protection de la feuille 1
Réponses
6
Affichages
955
steph_29120
S
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
449
CDALE
C
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
P
  • Question Question
XL 2021 Code VBA pour copier coller des données de cellules d'une feuille a une autre
2
Réponses
15
Affichages
2 K
lafleur
L
F
  • Résolu(e)
Microsoft 365 Code vba pour Ouvrir un fichier et copier son contenu dans un classeur existant à partir de la boite de dialogue
Réponses
3
Affichages
1 K
Faroyo
F
patricktoulon
démarrer un fichier importer du web en toute securité
Réponses
7
Affichages
742
patricktoulon
patricktoulon
T
  • Question Question
Microsoft 365 Import de données et liaisons entre classeurs
Réponses
14
Affichages
1 K
TCHIS
T
13Hubert
  • Résolu(e)
Microsoft 365 VBA - Coller la valeur d'une cellule d'une autre feuille...
Réponses
11
Affichages
1 K
13Hubert
13Hubert
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
R
  • Question Question
Microsoft 365 VBA copier coller des cellules
Réponses
6
Affichages
1 K
Phil69970
Phil69970
Retour