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

**wabo67** · 10/11/2007, 12h17

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**fred65200** · 10/11/2007, 12h39

bonjour,

Il ouvre quoi ton lien?
cordialement

**wabo67** · 10/11/2007, 12h49

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 )

**fred65200** · 10/11/2007, 13h20

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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