message d'erreur (reference non valide)Résolu

Question

bonjour , s'il vous plaît venez - moi en aide . j'ai ecris une macro qui permet de copier une plage de cellules vers un classeur fermé et de les lier grâce à des lien hypertextes. lorsque je compille il n'y a pas d'erreur mais loosque je cilck sur une des cellules le message d'erreur suivant s'affiche:<< Reference non valide>> pourquoi ce message? que faire pour qu'il puisse fonctionner normalement voici le code: Sub copie5() Dim wb As Workbook Set wb = Workbooks.Open("C:\Documents and Settings\yomkil01\Mes documents\suivi general du service exploitation.xlsx") Workbooks("Rapport Suivi MOS.xls").Sheets("ANNEE").Range("C41:N41").Copy Workbooks("suivi general du service exploitation").Sheets("tableau de bord mensuel").Range("D41:O41").PasteSpecial Paste:=xlValues Sheets("tableau de bord mensuel").Select Range("C41:N41").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ "C:\TABLEAU DE BORD\MOS\Rapport Suivi MOS.xlsx-ANNEE!A1" ActiveWorkbook.Save wb.Close Savechanges:=True End Sub merci pour tout . Coodialement Damien001

nyko283 · Accepted Answer

Bonjour Damien,

Alors essai peut être avec un "#" à la place du "-" dans l'adresse de ton lien,afin d'utiliser un signet qui te permet de specifié une feuille précise et une cellule.

Pour donner ceci:
"C:\TABLEAU DE BORD\MOS\Rapport Suivi MOS.xlsx#ANNEE!A1" 

En espérant répondre a ta demande.

Nicolas 
Développeur en herbes 
mais l'herbe pousse tranquilement

DAMIEN001 · Answer

bonjour,
merci pour ta reponse sa fonctionne tres bien
A++
Coordialement
Damien001

Message d'erreur (reference non valide)

2 réponses

Votre réponse

Discussions similaires