Discussion :

[Phil Free]

Bonjour,

Ceci n'est pas une question mais une réponse à un problème pour le quel je n'ai trouvé de réponse que sur 1 forum américain. D’où ce poste.

OK le titre est plutôt incompréhensible, je vous encourage donc à aller lire cet article MS ici (en français)
Pour ceux qui ne veulent pas tout lire, la solution est décrite dans l'article MS, et un fichier .VBS perso pour une mise à jour de la base de registre est attaché à ce poste.

Notez avant d'aller plus loin que ce problème sera plutôt rencontré par des clients office en entreprise. Problème lié au fonctionnement de leur réseau interne qui est généralement sécurisé par des accès avec login et mot de passe mais en http. Alors que les connexions securisées sur le web sont ssl normalement associées au protocole https et donc accepter par office... enfin ceci n'est que mon avis d'inculte en la matière.

Notez aussi que la solution que je propose est pour le client office.

Voila ceci étant dit, je vais essayé d'expliquer le problème:

Sur excel il est possible d'importer des données directement du site si les données sont déjà sous forme de tableau
par le menu :
-Données|Données Externes|Web
-Puis on saisie l'adresse dans la barre d'adresse et un petit clic sur le petit bouton juste à droite de cette barre
-Une fois la page affichée excel met en évidence les parties de la page qu'il juge apte à importer.
-On sélectionne alors la partie qui nous intéresse et on clic sur le bouton importer en bas à droite
-En suite excel demande de définir la cellule de référence de l'import et de valider ce choix... jusque la tout vas bien.

à partir de ce moment si la connexion requière un login et un mot de passe tout s’arrête et vous recevez alors un message du genre :"impossible de suivre le lien jusqu’à sa destination"
la cellule de référence prend alors la valeur "echec..."

Le problème était pour moi d'autan plus gênant que j'utilise la propriété QueryTables d'excel VBA pour automatiser tout cela
alors que la méthode Refresh(lancement de l'import en VBA) ne renvois aucune erreur même en passant par la classe d’événement associée au querytables.

La solution finalement est d'obliger office à accepter ce type de connexion en ajoutant la clé de registre Dword BasicAuthLevel comme expliqué dans l'article MS

Voici la partie du code VBS du fichier joint qui met à jour la BDR et utilisable tel quel en VBA
Mais pour le VBA il est préférable d'ajouter le type de données lors du dimensionnement des variables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 
sub CreatRegKey
 
dim WshShell
dim MaClef, ValeurClef
dim verif, message, alerte, titre
dim NumVersion
 
	NumVersion = OfficeVersion
	MaClef="HKCU\Software\Microsoft\Office\" & NumVersion & ".0\Common\Internet\BasicAuthLevel"
	'WScript.Echo MaClef
	ValeurClef=2
 
	Set WshShell = wscript.CreateObject("WScript.Shell")
		with WshShell
			.RegWrite MaClef, ValeurClef, "REG_DWORD"
			Verif = .RegRead (MaClef)
		End With
	Set WshShell = Nothing
 
	if Verif=ValeurClef then
		message="The registry has been successfully modified !"
		alerte=vbExclamation
	else
		message="An error occurred please contact your admin !"
		alerte=vbCritical
 
	end if
	titre = "Activation Connection Base non ssl Via Http..."
	msgbox message,alerte,titre
end sub
 
Function OfficeVersion
dim WshShell
dim MaClef, ValeurClef, ClefPath
 
	ClefPath="HKLM\Software\Microsoft\Windows\Currentversion\App Paths\"
	MaClef="excel.exe\path"
 
	Set WshShell = wscript.CreateObject("WScript.Shell")
		with WshShell
			ValeurClef = .RegRead (ClefPath&MaClef)
		End With
	Set WshShell = Nothing
	ValeurClef = right(ValeurClef,3)
	OfficeVersion = left(ValeurClef,2)
End function

Voila il est probable que cela aide peu de personnes mise à part les gens qui gère le déploiement d'office dans leurs entreprise

Philippe