Discussion :

[Pierre67]

Bonjour

j'ai un fichier1 qui lorsque je l'ouvre me permet, grâce a un userform, d'ouvrir un autre fichier2 choisi dans une combobox. J'ai donc 2 instances d'excel ouvertes
le fichier2 choisi, une succession de procédure se lance et qui fonctionnent.
Là où se situe le pb lorsque je veux copier un onglet du fichier1 vers fichier2.
je ne vois pas comment écrire la procédure ?
une idée ?
merci à vous

[Philippe Tulliez]

Bonjour,
Tu as deux instances Excel ouvertes avec chacune 1 fichier ou tu as une instance d'excel avec les 2 classeurs ouverts ?

[Pierre67]

je pense avoir deux instances Excel ouvertes avec chacune 1 fichier
car deuxième est ouvert par une combo qui me liste les fichiers dans le repertoire du premier

[Philippe Tulliez]

Bonsoir,
Quel est le code qui ouvre ce fichier ?
Si c'est la même instance qui contient les deux fichiers voici un exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub Transfert()
 Dim xlA As Workbook, shA As Worksheet
 Dim xlB As Workbook, shB As Worksheet
 Set xlA = ThisWorkbook: Set shA = xlA.Worksheets("Feuil1")
 Set xlB = Workbooks("DataBase.xlsx"): Set shB = xlB.Worksheets("db")
 shB.Range("A1:H1").Copy shA.Range("A1")
End Sub

[Pierre67]

j'ouvre un fichier1 qui contient un usf (il est placé dans le meme répertoire où sont le fichiers a ouvrir.
je recupère le chemin du fichier1 et une combo me liste les fichiers contenu dans ce rep où j'en choisit un a ouvrir

ci-joint, le bout de code qui me permet d'ouvrir le fichier2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub cbliste_Change()
Dim Msg As String, Titre As String
Dim Style As Integer, Reponse As Integer
repertoire = ThisWorkbook.Path & "\"
 
    If MsgBox("Vous avez sélectionné le fichier " & cbliste.Value & "." & Chr(10) & "Confirmez-vous ce choix ?", vbYesNo, "CHOIX DU FICHIER ") = vbYes Then
        fichier = cbliste.Value
        Application.Workbooks.Open Filename:=repertoire & fichier
   End If
 fichierdestination = repertoire & fichier
 MsgBox fichierdestination
synthese
End Sub

peut-

[Philippe Tulliez]

Bonjour,
Après examen du code, je confirme qu'il s'agit d'une seule instance d'excel avec les 2 fichiers ouverts.
Tu peux donc t'inspirer du code que j'ai publié dans ma réponse d'hier à 19h44.