Excel vba, Passer d'un fichier à un autre et revenir
Résolu
LaurentPic
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
LaurentPic Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
LaurentPic Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Passer d'un classeur à l'autre vba
- Passer de qwerty a azerty - Guide
- Passer a windows 10 - Accueil - Mise à jour
- Étiquette classeur a imprimer gratuit excel - Forum Excel
- Passer de majuscule à minuscule - Guide
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
1 réponse
Bonjour Laurent, bonjour le forum,
Essaie comme ça :
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
En fait j'ai trouve entre temps
voila l'explication quelfichier et le chemin et le nom ensemble
il fallait extraire le nom dans une autre variable
Dim QuelFichier
Dim nomdefichier
QuelFichier = Application.GetOpenFilename("Sauvegarde Tache Click,*.htm")
Workbooks.Open Filename:=QuelFichier
nomdefichier = ActiveWorkbook.Name
puis quand on veut le rappeler
Workbooks (nomdefichier).Activate
merci quand meme de ton aide
Laurent