[Excel 2007] Utilisation d objet au lieu du copier/coller

J utilise une macro qui va ouvrir un liens hypertext pour copier/coller le contenu dans une feuille.

Si quelqu'un peu m'expliquer la voie grace a l'utilisation d'objets

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sheets("temp").Select Range("A1").Select Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Range("A1:F2958").Select Selection.Copy Application.WindowState = xlMinimized Windows("Defaut sur Zera.xlsm").Activate Sheets("ZERA21").Select Range("A1").Select ActiveSheet.Paste Windows("zera21.xlsx").Activate ActiveWindow.Close

---

Merci d'avance je suis novice

bonjour,

Il ouvre quoi ton lien?
cordialement

Mon lien hypertext me permet d'ouvrir un autre fichier excel,
Ensuite je copier un feuille et je l'insert dans mon premier fichier.
Puis pour finir je ferme mon deuxieme fichier. ( celui que g ouvert grace au lien hypertext )

bonjour,

Donc si j'ai bien compris, et que tes classeurs sont dans le même dossier
place le code suivant dans le module de feuille
Onglet temp / clic droit / Visualiser le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim monFichier As String Dim maFeuille As String monFichier = Target.Address maFeuille = UCase(Left(monFichier, Len(monFichier) - 5)) Workbooks(monFichier).Sheets(1).Range("A1:F2958").Copy Workbooks("Defaut sur Zera.xlsm").Sheets(maFeuille).[a1] Workbooks(monFichier).Close False End Sub

---

cordialement

il me dis qu'il attend un End sub

re bonjour

supprime la première ligne de code
Sub nh

je l'enlève de mon post précédent


@+

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Macro6()   Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim monFichier As String Dim maFeuille As String monFichier = Target.Address maFeuille = UCase(Left(monFichier, Len(monFichier) - 5)) Workbooks(monFichier).Sheets(1).Range("A1:F2958").Copy Workbooks("Defaut sur Zera.xlsm").Sheets(maFeuille).[a1] Workbooks(monFichier).Close False   End Sub

---

toujours le probleme du end sub

re

retire sub macro6()


@+

c surement une question bete mais comment ce lance t il?

c bon merci
trop fort ;)

content que ça fonctionne.

cordialement