Ouvrir 2 fichiers excel dans le même classeur

Résolu

Classeur

guillaume gdco Messages postés 75 Statut Membre -
guillaume gdco Messages postés 75 Statut Membre - 6 avr. 2020 à 16:44

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
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588

bonjour, fichier Excel et classeur Excel étant synonymes, peux-tu réécrire ce que tu veux obtenir?
0
Réponse 2 / 4
guillaume gdco Messages postés 75 Statut Membre

j'ai deux classeurs excel de 1 feuille chacune que je souhaiterai ouvrir en même temps dans le même classeur
0
1. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588
  
  as-tu commencé à écrire ton code VBA? dans quel classeur le code est-il présent?
  
  0
  1. guillaume gdco Messages postés 75 Statut Membre > yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention
    
    non pas encore de code, je souhaitais savoir si il était déjà possible d'ouvrir ces deux feuilles ensembles
    
    0
  2. yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588 > guillaume gdco Messages postés 75 Statut Membre
    
    ce n'est possible qu'en copiant au moins une des deux feuilles.
    
    0

guillaume gdco Messages postés 75 Statut Membre

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

yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention 1 588

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
guillaume gdco Messages postés 75 Statut Membre

Merci!
0

Ouvrir 2 fichiers excel dans le même classeur

4 réponses

Discussions similaires

Newsletters