Windows("Nom_du_fichier.xls").ActivateRésolu

Question

Bonjour,

Voila après plusieurs modifications le code ci-dessous me permet de copier le contenu 'une feuille excel vers une feuille excel d'un autre classeur...
Le fonctionnement me convient parfaitement mais mon problème est qu'il faut que le classeur source soit ouvert (ici AMDEC_test.xls) pour que la macro s'execute, ce qui est logique vu que j'utilise Windows("Nom_du_fichier.xls").Activate...

Auriez-vous une solution pour changer mon code et ainsi laisser le ficheir source fermé ?

Merci par avance de vos réponses


Sub Worksheet_Activate()
    Range("A1:U7").ClearFormats
    Range("A8:U100").Clear
    Range("A8").Select
    ActiveCell.FormulaR1C1 = "= 'C:\Documents and Settings\dchauvelin\Bureau\Stagiaire\test\[AMDEC_test.xls]Feuil1'!RC"
    Range("A8").Select
    Selection.Copy
    Range("A9:A100").Select
    ActiveSheet.Paste
    Range("A8:A100").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("B8:U100").Select
    ActiveSheet.Paste
    Workbooks("AMDEC_test.xls").Activate
    Worksheets("Feuil1").Columns("A:U").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("AMDEC_famille.xls").Activate
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
'
End Sub

Molenn · Accepted Answer

Et bien, tu gères l'ouverture et la fermeture du fichier par code.

Pour ouvrir par ex:
workbooks.open("C:\Test\Classeur.xls")

Pour le fermer :
workbooks("Classeur.xls").Close

Molenn

bigfish_le vrai · Answer

Salut,

oui il existe d'autre methode comme les commandes ADO. Mais au vu de ce que tu veux faire ce serait comme utiliser canon pour tuer un moustique.

pourquoi est-ce gênant d'avoir de travailler avec le fichier ouvert ?

A+

elvis36 · Answer

Car ce code sera présent sur environ 15 pages d'un même classeur, et donc il faudra auparavant que la personne ouvre les 15 classeurs correspondant...
C'est assez contaignant en sachant que les personnes qui utiliseront cette macro n'ont aucune connaissance en VBA cela implique le fichier contenant les 15 feuilles risque de ne pas pouvoir être mis à jour...

elvis36 · Answer

Je pense que c'est ce que je vais faire... J'essaye ça demain pour le gestion de l'ouverture et la fermeture... Et vous tiens au courant...

elvis36 · Answer

Parfait pour l'ouverture et la fermeture... C'est un peu lourd mais bon cela me convient pour le moment...

Windows("Nom_du_fichier.xls").Activate

5 réponses

Votre réponse

Discussions similaires