Recuperer nom fichier excel variable vba

Résolu/Fermé
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- Modifié par gnioler le 9/01/2012 à 23:01
gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
- 9 janv. 2012 à 23:45
Bonjour!

J'exécute une macro faisant des copier-coller d'un classeur Excel à un autre. La macro est liée à un bouton sur une feuille du classeur contenant les données sources.

En écrivant le nom du classeur source en dur dans la macro, tout va bien. Mais le classeur source sera à l'avenir renommé. Comment faire pour récupérer le nom du fichier source dans une variable afin que ca continuent de fonctionner?
mon fichier copie s apelle class et le source change tousle temps
voici la macro mais ca ne fonctione pas j'ai dut oublier quelque chose

Sub Macro1()
'
' Macro1 Macro
'
'
Dim nom As String
nom = ActiveWorkbook.Name


nom.Activate
Range("A1").Select
Selection.Copy
Windows("Class.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

nom.Activate
Range("B1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Class.xlsx").Activate
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

nom.Activate
Range("C1").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Class.xlsx").Activate
Range("C1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


End Sub

1 réponse

gnioler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
3
9 janv. 2012 à 23:45
c'est bon j'ai trouve sur ce forum
-1