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 -
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
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
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