Une application Excel qui ouvre via lien hypertexte des fichiers par
l'intermédiaire d'une procédure VBA fonctionne parfaitement sur un site
http.
En revanche, cette application ne fonctionne plus dès lors qu'on la bascule
sur un site htpps !
La macro plante sur l'instruction d'ouverture du fichier Excel en lecture
seule !
à noter que le fichier s'ouvre parfaitement si on le fait directement à
partir du lien hypertexte positionné sur la feuille de calcul !
à noter également que le lien et le contenu de la cellule sont absolument
identiques !
Qui aurait un début d'explication ?
Pour information, voici un extrait du code utilisé (rien d'extraordinaire
là-dedans)
===============================================
If Worksheets("Liens").Range("SourceProjet").Offset(1, 0).Value <> "" Then
'For Each oCell In Range("Repertoires").Offset(0, 2).CurrentRegion
For Each oCell In
Range(Worksheets("Liens").Range("SourceProjet").Offset(1, 1), _
Worksheets("Liens").Cells(Range("SourceProjet").CurrentRegion.Rows.Count,
2))
ChDir ActiveWorkbook.Path
Application.StatusBar = "Extraction des dossiers projets - " & oCell.Value
& " - Excel"
'Recupération des fichier Excel
ReDim Tableau(1)
Compteur = 1
ChDir CurDir
Fichier = oCell.Value
Workbooks.Open Filename:= _
Fichier _
, ReadOnly:=True
Set oClass = ActiveWorkbook
On Error Resume Next
Worksheets("Paramètres").Select
============================================
c'st donc l'instruction
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
j
et si tu remplaçais ton Workbooks.Open par un truc du style thisworkbook.followhyperlink(nomfichier) ? puisque le clic sur un lien fonctionne...
"Joël GARBE" a écrit dans le message de news: 431ea668$0$17061$
Bonjour à tous !
Une application Excel qui ouvre via lien hypertexte des fichiers par l'intermédiaire d'une procédure VBA fonctionne parfaitement sur un site http.
En revanche, cette application ne fonctionne plus dès lors qu'on la bascule
sur un site htpps !
La macro plante sur l'instruction d'ouverture du fichier Excel en lecture seule !
à noter que le fichier s'ouvre parfaitement si on le fait directement à partir du lien hypertexte positionné sur la feuille de calcul !
à noter également que le lien et le contenu de la cellule sont absolument identiques !
Qui aurait un début d'explication ?
Pour information, voici un extrait du code utilisé (rien d'extraordinaire là-dedans) ============================================== > If Worksheets("Liens").Range("SourceProjet").Offset(1, 0).Value <> "" Then 'For Each oCell In Range("Repertoires").Offset(0, 2).CurrentRegion For Each oCell In Range(Worksheets("Liens").Range("SourceProjet").Offset(1, 1), _
qui plante ! uniquement quand fichier = htpps://etc.... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr
et si tu remplaçais ton Workbooks.Open par un truc du style
thisworkbook.followhyperlink(nomfichier) ?
puisque le clic sur un lien fonctionne...
J@C
"Joël GARBE" <joel-garbe@wanadoo.fr> a écrit dans le message de news:
431ea668$0$17061$8fcfb975@news.wanadoo.fr...
Bonjour à tous !
Une application Excel qui ouvre via lien hypertexte des fichiers par
l'intermédiaire d'une procédure VBA fonctionne parfaitement sur un site
http.
En revanche, cette application ne fonctionne plus dès lors qu'on la
bascule
sur un site htpps !
La macro plante sur l'instruction d'ouverture du fichier Excel en lecture
seule !
à noter que le fichier s'ouvre parfaitement si on le fait directement à
partir du lien hypertexte positionné sur la feuille de calcul !
à noter également que le lien et le contenu de la cellule sont absolument
identiques !
Qui aurait un début d'explication ?
Pour information, voici un extrait du code utilisé (rien d'extraordinaire
là-dedans)
============================================== > If Worksheets("Liens").Range("SourceProjet").Offset(1, 0).Value <> "" Then
'For Each oCell In Range("Repertoires").Offset(0, 2).CurrentRegion
For Each oCell In
Range(Worksheets("Liens").Range("SourceProjet").Offset(1, 1), _
et si tu remplaçais ton Workbooks.Open par un truc du style thisworkbook.followhyperlink(nomfichier) ? puisque le clic sur un lien fonctionne...
"Joël GARBE" a écrit dans le message de news: 431ea668$0$17061$
Bonjour à tous !
Une application Excel qui ouvre via lien hypertexte des fichiers par l'intermédiaire d'une procédure VBA fonctionne parfaitement sur un site http.
En revanche, cette application ne fonctionne plus dès lors qu'on la bascule
sur un site htpps !
La macro plante sur l'instruction d'ouverture du fichier Excel en lecture seule !
à noter que le fichier s'ouvre parfaitement si on le fait directement à partir du lien hypertexte positionné sur la feuille de calcul !
à noter également que le lien et le contenu de la cellule sont absolument identiques !
Qui aurait un début d'explication ?
Pour information, voici un extrait du code utilisé (rien d'extraordinaire là-dedans) ============================================== > If Worksheets("Liens").Range("SourceProjet").Offset(1, 0).Value <> "" Then 'For Each oCell In Range("Repertoires").Offset(0, 2).CurrentRegion For Each oCell In Range(Worksheets("Liens").Range("SourceProjet").Offset(1, 1), _
