copier une ligne d'un classeur vers un autre

[arno73000]

Bonjour,
j'utilise un fichier excel pour faire mes devis. Certaines données du devis sont renseignées sur une ligne dans le même fichier.
Je souhaite copier les valeurs de cette ligne vers un autre fichier excel qui est ma base de données de devis.
J'ai réalisé une macro en mode enregistrement:


Range("S2:U3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.Run "BDD_devis.xls!insert"
Windows("DOC7.2.1-03_fiche_de_calcul_devis.xls").Activate
Range("W3:AI3").Select
Selection.Copy
Windows("BDD_devis.xls").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A4").Select
ActiveWorkbook.Save
ActiveWindow.Close
Range("C2: D2").Select
Application.CutCopyMode = False
End Sub

Mon problème est que si le fichier de calcul du devis ne porte pas le nom
DOC7.2.1-03_fiche_de_calcul_devis.xls
la macro ne fonctionne pas.

y a t-il une solution pour que la macro puisse fonctionner quelque soit le nom du fichier d'origine?
Merci d'avance pour aide
Arnaud

 

[tototiti2008]

Re : copier une ligne d'un classeur vers un autre

bonjour arno73000,

la macro est lancée de quel classeur ?
y a-t-il un moyen de savoir comment sera nommé ton fichier dont le nom peut changer ?

 

[arno73000]

Re : copier une ligne d'un classeur vers un autre

Bonjour,
tout d'abord merci de la rapidité de la réponse
La macro est lancée depuis le classeur "DOC7.2.1-03_fiche_de_calcul_devis.xls" pour recopier la ligne du devis vers le fichier "BDD_devis.xls" qui centralise les données de tous mes devis
Comme s'est un document original, je l'enregistre ensuite avec un numéro de devis et une designation, par exemple "08053-01 test client.xls"

 

[tototiti2008]

Re : copier une ligne d'un classeur vers un autre

alors remplace

Windows("DOC7.2.1-03_fiche_de_calcul_devis.xls").Activate

par

ThisWorkbook.activate

ThisWorkbook désigne le classeur qui contient le code VBA

 

[arno73000]

Re : copier une ligne d'un classeur vers un autre

Je viens de faire la modification sur la macro, ça fonctionne.
Merci beaucoup pour ton aide!!