Recuperer nom fichier excel variable vba [Résolu/Fermé]

Signaler
Messages postés
88
Date d'inscription
mercredi 5 octobre 2011
Statut
Membre
Dernière intervention
7 janvier 2015
-
 gnioler -
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


2 réponses

Messages postés
8700
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 103
Bonjour,
Ta macro ne SAIT PAS fonctionner...
Dans un premier temps remplace ton code par ..
Sub Macro1() 
Dim Nom As Workbook 
Dim NomC As Workbook 
    Set Nom = ThisWorkbook 
    Set NomC = Workbooks("Class.xlsx") 
    Nom.Sheets("Feuil1").Range("A1:C1").Copy NomC.Sheets("Feuil1").Range("A1") 
End Sub

Ces quelque lignes vont faire ce que tu a besoin.
Ensuite, les noms des classeurs qui change, c'est lequel ?
La macro est dans le classeur qui change pas ??
Répondre aux deux questions Svp.
S'il y a des erreurs tu dis où et le N° de l'erreur.
A+

Si tu te cognes à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)
NOTE : Je ne répond pas aux MP pour les questions techniques.
6
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 60403 internautes nous ont dit merci ce mois-ci

bonjour et merci pour votre reponse
c'est bon ca marche tres bien