probleme avec 2 instances excel

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

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

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

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:

---

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

---

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:

---

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-

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.

je m'escrime en exploiter votre code mais un petit souci avec vos variables :oops:

je lance mon apllication avec un fichier qui s'appelle menu.xlsm (il contient un userform qui me permet de choisir le fichier à traiter) et l'onglet FICHE à copier.

j'ouvre donc mon deuxième fichier appelons-le FAouvrir.xlsm dans lequel je veux copier l'onglet

mais je m'emmèle les pédales, je dois avouer que j'apprends le VBA grâce aux excellents posts et conseils de ce forum

Bonjour,
Dans mon code les variables préfixées xl sont des variables Objets de type Workbook et les variables préfixées sh sont des variables objets de type Worksheet.
Je travaille toujours avec des variables objets ce qui facilite grandement la maintenance et rend une application pérenne.
Donc dans ton cas et en reprenant mes variables cela pourrait être

Code:

---

1 2	Set xlA = Workbooks("menu.xlsm"): Set shA = xlA.Worksheets("FICHE") Set xlB = Workbooks("FAouvrir.xlsm"): Set shB = xlB.Worksheets("sonNom")

---

Avec la ligne de code qui suit, on copie les cellules A1:H200 de la feuille "Fiche" du classeur menu.xlsm vers le classeur FAouvrir.xlsm feuille ???? à partir de la cellule A1.

Code:

---

shA.Range("A1:H200").Copy shB.Range("A1")

---

ok je comprends mieux
mais cela veut dire que je ne peux pas utiliser de variable pour ouvrir mon 2ème fichier (FAouvrir.xlsm) et que la feuille xlB.Worksheets("sonNom") préexiste dans ce fichier ce qui n'est pas le cas alors que l'onglet à copier est un genre "modèle"

Bonjour,
Bien sûr que oui, les variables que j'ai utilisées ne sont qu'un exemple.
Tu peux parfaitement affecter une valeur à la variable objet après avoir sélectionné ton fichier
Exemple

Code:

---

Set xlB = Workbooks(fichier)

---

Où la variable fichier est égal à la chaîne de caractères FAouvrir.xlsm
Ensuite affecter la valeur à la variable objet feuille etc...

Ou pour ouvrir

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Dim XlB As Workbook Dim Chemin As String, Fichier As String     Chemin = "C:\Users\User\Desktop\" 'Adapte et n'oublie pas \ à la fin Fichier = "FAouvrir.xlsm"   If Dir(Chemin & Fichier) <> "" Then 'Véerifie que le fichier existe bien Set XlB = Workbooks.Open(Chemin & Fichier) '...... XlB.Close True 'On ferme FAouvrir.xlsm en enregistrant Set XlB = Nothing End If

---