Bonjour à tous,
J'ai créé sur Excel 2007 un programme d'ordonnancement avec un url permettant d'aller rechercher des informations sur la GMAO (MAXIMO). L'ensemble du programme fonctionne normalement mis à part l'url.
N'y a t'il pas des modifications de la sécurité sur Excel 2010.
Merci de votre réponse.
Le fichier est trop lourd pour être joint. Ci-dessous le code url
Cordialement
' Serveur Maximo
Function serveur() As String
serveur = "dbo-vmp-mx-cron/MAXIMO" ' serveur de recette
End Function
Sub Aut
pen()
Feuil3.Select
' Pour se connecter à MAXIMO
On Error GoTo ErrorHandler
Application.Workbooks.Open("http://" & serveur() & "/extract/connexionMaximo").Close
MsgBox ("Connecté à Maximo")
Exit Sub
ErrorHandler:
MsgBox ("La connection avec maximo n'est pas possible" & Chr(13) & "Si le problème persiste" & Chr(13) & "Contacter votre administrateur réseau")
' Resume Next
End Sub
Sub ExtractionPreventif()
Dim url As String
' recuperation des parametres
Dim secteur, anneeDebut, moisdebut, anneeFin, moisfin As String
With ThisWorkbook.Sheets("Données")
secteur = don.Range("P3")
anneeDebut = don.Range("P4")
moisdebut = don.Range("P5")
anneeFin = don.Range("P6")
moisfin = don.Range("P7")
If Len(moisdebut) <= 1 Then moisdebut = "0" & moisdebut
If Len(moisfin) <= 1 Then moisfin = "0" & moisfin
End With
' construction de l'url
url = "http://" & serveur() & "/extract/?name=preventif"
url = url & "&s1=" & secteur
url = url & "&s2=" & anneeDebut & "-" & moisdebut
url = url & "&s3=" & anneeFin & "-" & moisfin
D30 = url
On Error GoTo ErrorHandler
ActiveWorkbook.XmlMaps("Results_Mappage").DataBinding.LoadSettings (url)
ActiveWorkbook.XmlMaps("Results_Mappage").DataBinding.Refresh
Exit Sub
ErrorHandler:
MsgBox ("La mise à jour a échoué" & Chr(13) & "Le fichier va être fermé" & Chr(13) & "Tout votre travail jusque là a été sauvegardé" & Chr(13) & "Contacter votre administrateur réseau")
ThisWorkbook.Close False
End Sub