Ouvrir 2 fichiers excel dans le même classeur [Résolu]

Signaler
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
-
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
-
Bonjour,

Bonjour

j'ai deux fichier excel de 1 feuille chacun que je souhaiterai ouvrir en même temps dans le même classeur qui présenterai les deux feuilles.


Merci

Configuration: Windows / Firefox 60.0

4 réponses

Messages postés
12329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 septembre 2020
694
bonjour, fichier Excel et classeur Excel étant synonymes, peux-tu réécrire ce que tu veux obtenir?
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

j'ai deux classeurs excel de 1 feuille chacune que je souhaiterai ouvrir en même temps dans le même classeur
Messages postés
12329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 septembre 2020
694
as-tu commencé à écrire ton code VBA? dans quel classeur le code est-il présent?
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
>
Messages postés
12329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 septembre 2020

non pas encore de code, je souhaitais savoir si il était déjà possible d'ouvrir ces deux feuilles ensembles
Messages postés
12329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 septembre 2020
694 >
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

ce n'est possible qu'en copiant au moins une des deux feuilles.
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

Dans ce cas je peux commencer par utiliser ce code pour copier a feuille

Dim dv1 As Object
Dim cel As Range
Dim d°L As Long
  ' Mémoriser les valeurs de la feuille 1 sans doublon
  Set dv1 = CreateObject("Scripting.Dictionary")
  With Worksheets(1)
    d°L = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each cel In .Range("A1:A" & d°L)
      dv1(cel.Value) = ""
    Next
  End With
Messages postés
12329
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
25 septembre 2020
694
plus simple:
Private Sub cp()
Dim classeur1 As Workbook, classeur2 As Workbook
Set classeur1 = ThisWorkbook
Set classeur2 = ThisWorkbook
classeur1.Worksheets(1).Copy After:=classeur2.Worksheets(1)
End Sub
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020

Merci!