Excel vba, Passer d'un fichier à un autre et revenir
Résolu/Fermé
LaurentPic
Messages postés
2
Date d'inscription
jeudi 16 juin 2016
Statut
Membre
Dernière intervention
16 juin 2016
-
16 juin 2016 à 08:32
LaurentPic Messages postés 2 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 16 juin 2016 - 16 juin 2016 à 18:45
LaurentPic Messages postés 2 Date d'inscription jeudi 16 juin 2016 Statut Membre Dernière intervention 16 juin 2016 - 16 juin 2016 à 18:45
A voir également:
- Passer d'un classeur à l'autre vba
- Passer de windows 7 à windows 10 - Guide
- Passer de qwerty a azerty - Guide
- Vba l'indice n'appartient pas à la sélection - Forum VB / VBA
- Alex, dont la mère est née à pau, s'est créé un compte de messagerie alex@pxmail.fr. il a oublié le mot de passe qu’il a choisi. aidez-le à le retrouver. - Forum Réseaux sociaux
- Passer de majuscule à minuscule - Guide
1 réponse
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
16 juin 2016 à 08:53
16 juin 2016 à 08:53
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
16 juin 2016 à 18:45
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