Macro & Lien hypertexte

ziopizza

XLDnaute Occasionnel

• 13 Avril 2006

• #2

Bonjour guesh,
Sur ce fil pas de nouvelle ,méme pas Merci.

Lien supprimé
Yves

 

Vote positif 0 Vote négatif

G

Guesh

XLDnaute Occasionnel

• 13 Avril 2006

• #3

ziopizza écrit:

Bonjour guesh,
Sur ce fil pas de nouvelle ,méme pas Merci.

Lien supprimé
Yves

Cliquez pour agrandir...

excuse moi, je t avoue que j en étais resté a la premiere reponse ....
Mais c est pas mon style de ne pas dire merci ... surtout qund on m aide ... alorsmerci a toi !!! et aux autres....

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 13 Avril 2006

• #4

Re bonjour Guesh,
Pas de mal.
Dans ta macro
'Si a10 est la cellule sur l'aquelle tu veux te rendre.
Range('a10').Select
Yves

Message édité par: ziopizza, à: 13/04/2006 11:20

 

Vote positif 0 Vote négatif

G

Guesh

XLDnaute Occasionnel

• 13 Avril 2006

• #5

ziopizza écrit:

Re bonjour Guesh,
Pas de mal.
Dans ta macro
'Si a10 est la cellule sur l'aquelle tu veux te rendre
Range('a10').value.Select
Yves

Cliquez pour agrandir...

ouais mais en fait je veux qu en cliquant sur un bouton, ca me renvoie a une adresse internet prédéfinie

 

Vote positif 0 Vote négatif

ziopizza

XLDnaute Occasionnel

• 13 Avril 2006

• #6

Re re Bonjour Guesh,
Ce code envoie une piece jointe à l'adresse
que tu veux.
Sub SendFeuille()
Workbooks('Classeur1').Sheets('Feuil1').Copy
ActiveWorkbook.SendMail _
Recipients:='aaa@zzz.com', _
Subject:='Coucou'
End Sub
Yves

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 13 Avril 2006

• #7

Bonjour à tous
Pour répondre a une partie de ta question:

Private Sub CommandButton14_Click()
Dim Cible As String
Cible = Shell('explorer.exe ''Lien supprimé ', 1)
End Sub

Temjeh

 

Vote positif 0 Vote négatif