Excel vba, Passer d'un fichier à un autre et revenir Résolu/Fermé

Question

Bonjour,

J'ouvre un fichier à travers une boite de dialogue par la commande

Dim QuelFichier 
QuelFichier = Application.GetOpenFilename("Sauvegarde Tache Click,*.htm")
Workbooks.Open Filename:=QuelFichier

Je copie des valeurs des cellules dedans et vient les coller dans mon fichier d'origine.
Ces valeurs m'en donne d'autre que je veux copier et recoller dans ce fichier "QuelFichier"
C'est la que je bloque, je n'arrive pas à trouver la bonne commande
Si le nom est connu c'est 
Windows("NomConnu.xlsm").Activate
Mais dans le cas d'un nom qui est dans une variable ?

Merci de votre aide

ThauTheme · Answer

Bonjour Laurent, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim C1 As Workbook 'déclare la variable C1 (Classeur 1)
Dim O1 As Worksheet 'déclare la variable O1 (Onglet 1)
Dim C2 As Workbook 'déclare la variable C2 (Classeur 2)
Dim O2 As Worksheet 'déclare la variable O2 (Onglet 2)

Set C1 = ThisWorkbook 'définit le classeur C1
Set O1 = C1.Sheets("Feuil1") 'définit l'onglet O1 (à adapter)
QuelFichier = Application.GetOpenFilename("Sauvegarde Tache Click,*.htm")
Workbooks.Open Filename:=QuelFichier
C2 = ActiveWorkbook 'définit le classeur C2
O2 = C2.Sheets("Feuil1") 'définit l'onglet O2 (à adapter)
O2.Range("A1:A10").Copy O1.Range("A1") 'exemple de copie du classeur C2 vers le classeur C1
O1.Range("B1").Copy O2.Range("D1") 'exemple de copie du classeur C1 vers le classeur C2
End Sub

Excel vba, Passer d'un fichier à un autre et revenir

1 réponse

Discussions similaires