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 avril 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

A voir également:

Ouvrir deux fichiers excel en même temps
Comment ouvrir un fichier epub ? - Guide
Renommer plusieurs fichiers en même temps - Guide
Ouvrir fichier .bin - Guide
Ouvrir fichier .dat - Guide
Excel trier plusieurs colonnes en même temps - Guide

4 réponses

Réponse 1 / 4

yg_be Messages postés 24281 Statut Contributeur Ambassadeur 1 584

bonjour, fichier Excel et classeur Excel étant synonymes, peux-tu réécrire ce que tu veux obtenir?

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

yg_be Messages postés 24281 Statut Contributeur 1 584

as-tu commencé à écrire ton code VBA? dans quel classeur le code est-il présent?

guillaume gdco Messages postés 75 Statut Membre > yg_be Messages postés 24281 Statut Contributeur

non pas encore de code, je souhaitais savoir si il était déjà possible d'ouvrir ces deux feuilles ensembles

yg_be Messages postés 24281 Statut Contributeur 1 584 > guillaume gdco Messages postés 75 Statut Membre

ce n'est possible qu'en copiant au moins une des deux feuilles.

Réponse 3 / 4

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 24281 Statut Contributeur 1 584

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

Discussions similaires

VBA copier une feuille et coller dans un nouveau classeur en valeur

Copier Coller d'au autre fichier sans liaison.

récupérer données d'une feuille d'autre classeur

Référence ciculer

Récupérer valeur cellule dans d'autres classeurs

Découper fichier excel en plusieurs fichiers VBA

Votre réponse

Discussions similaires