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
Afficher la suite

4 réponses

Réponse 1 / 4
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?
Réponse 2 / 4
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
Signaler
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?
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
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
Signaler
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.
Réponse 3 / 4
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
Signaler
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
Réponse 4 / 4
Messages postés
70
Date d'inscription
samedi 15 août 2009
Statut
Membre
Dernière intervention
30 août 2020
Merci!
Répondre Posez votre question