J'ai encore un nouveau probl=E8me : Dans une macro contenue dans un
fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un
fichier B (fichier partage) et ce vers ce fichier A.
Le probl=E8me c'est qu'il ne veut rien m'afficher dans la cellule qui
doit contenir le lien hypertexte!
Il suffit que je change la destination (que je le mette dans le fichier
A) et l=E0 ca marche
Merci pour le coup de main
PS : voici le d=E9but de ma boucle
For k =3D Debut To Fin
'On copie les infos
Fin2 =3D Workbooks("fichier
partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1,
0).Row
If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <>
"F" Then
Workbooks("fichier
partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=3DRange("A" &
Fin2), Address:=3DCheminClasseur,
TextToDisplay:=3DWorkbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
RV
Bonsoir Escoune, Peut-être essayer d'activer le second classeur entre temps après le if ... then Windows(2).activate Workbooks("fichier........ Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
Bonsoir Escoune,
Peut-être essayer d'activer le second classeur entre temps après le
if ... then
Windows(2).activate
Workbooks("fichier........
Cordialement
RV
<escoune@gmail.com> a écrit dans le message de news:
1151334144.629674.88470@m73g2000cwd.googlegroups.com...
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un
fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un
fichier B (fichier partage) et ce vers ce fichier A.
Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui
doit contenir le lien hypertexte!
Il suffit que je change la destination (que je le mette dans le fichier
A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin
'On copie les infos
Fin2 = Workbooks("fichier
partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1,
0).Row
If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <>
"F" Then
Workbooks("fichier
partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" &
Fin2), Address:=CheminClasseur,
TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
Bonsoir Escoune, Peut-être essayer d'activer le second classeur entre temps après le if ... then Windows(2).activate Workbooks("fichier........ Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
RV
Escoune,
Je te propose ce code qu'il faudra insérer dans ta procédure:
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then Windows(2).Activate Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), _ Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls" Windows(1).Activate End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le fichier A d'insérer un lien dans le fichier B qui te permets ensuite de rappeler le fichier A. Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
Escoune,
Je te propose ce code qu'il faudra insérer dans ta procédure:
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then
Windows(2).Activate
Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add
Anchor:=Range("A" & Fin2), _
Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls"
Windows(1).Activate
End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le
fichier A d'insérer un lien dans le fichier B qui te permets ensuite de
rappeler le fichier A.
Cordialement
RV
<escoune@gmail.com> a écrit dans le message de news:
1151334144.629674.88470@m73g2000cwd.googlegroups.com...
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un
fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un
fichier B (fichier partage) et ce vers ce fichier A.
Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui
doit contenir le lien hypertexte!
Il suffit que je change la destination (que je le mette dans le fichier
A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin
'On copie les infos
Fin2 = Workbooks("fichier
partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1,
0).Row
If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <>
"F" Then
Workbooks("fichier
partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" &
Fin2), Address:=CheminClasseur,
TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then Windows(2).Activate Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), _ Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls" Windows(1).Activate End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le fichier A d'insérer un lien dans le fichier B qui te permets ensuite de rappeler le fichier A. Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
escoune
J'ai essayé et cela ne change rien à mon problème :(
Escoune,
Je te propose ce code qu'il faudra insérer dans ta procédure:
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then Windows(2).Activate Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), _ Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls" Windows(1).Activate End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le fichier A d'insérer un lien dans le fichier B qui te permets ensuite de rappeler le fichier A. Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
J'ai essayé et cela ne change rien à mon problème :(
Escoune,
Je te propose ce code qu'il faudra insérer dans ta procédure:
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then
Windows(2).Activate
Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add
Anchor:=Range("A" & Fin2), _
Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls"
Windows(1).Activate
End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le
fichier A d'insérer un lien dans le fichier B qui te permets ensuite de
rappeler le fichier A.
Cordialement
RV
<escoune@gmail.com> a écrit dans le message de news:
1151334144.629674.88470@m73g2000cwd.googlegroups.com...
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un
fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un
fichier B (fichier partage) et ce vers ce fichier A.
Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui
doit contenir le lien hypertexte!
Il suffit que je change la destination (que je le mette dans le fichier
A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin
'On copie les infos
Fin2 = Workbooks("fichier
partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1,
0).Row
If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <>
"F" Then
Workbooks("fichier
partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" &
Fin2), Address:=CheminClasseur,
TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
If ActiveWorkbook.Sheets("Dossier").Cells(1, 1) <> "F" Then Windows(2).Activate Workbooks("fichierpartage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), _ Address:="NomDuFichier.xls", TextToDisplay:="NomDuFichier.xls" Windows(1).Activate End If
End Sub
Si j'ai bien compris le problème, le code ci dessus te permet depuis le fichier A d'insérer un lien dans le fichier B qui te permets ensuite de rappeler le fichier A. Cordialement RV
a écrit dans le message de news:
Re-bonjour à tous,
J'ai encore un nouveau problème : Dans une macro contenue dans un fichier A (NomDuFichier) j'essaye d'ajouter un lien hypertexte dans un fichier B (fichier partage) et ce vers ce fichier A. Le problème c'est qu'il ne veut rien m'afficher dans la cellule qui doit contenir le lien hypertexte! Il suffit que je change la destination (que je le mette dans le fichier A) et là ca marche
Merci pour le coup de main
PS : voici le début de ma boucle
For k = Debut To Fin 'On copie les infos Fin2 = Workbooks("fichier partage.xls").Worksheets("Taches").Range("B65536").End(xlUp).Offset(1, 0).Row If Workbooks(NomDuFichier).Worksheets("Dossier").Cells(k, 6) <> "F" Then Workbooks("fichier partage.xls").Worksheets("Taches").Hyperlinks.Add Anchor:=Range("A" & Fin2), Address:=CheminClasseur, TextToDisplay:=Workbooks(NomDuFichier).Worksheets("Dossier").Cells(1, 2)
