Bonjour à toutes et tous,
Je pose la situation:
On vient de me mettre en place en Intranet un gestionnaire de contact. Je gére tous les contacts de la boîte avec un fichier Excel (personnel, clients et fournisseurs). Il faut que je saississe tous les contacts, il n'y a pas d'option d'import de fichier.
Sans discrimination, je n'ai pas de stagiaire en ce moment.
J'ai pensé à créer en VBA un code pour automatiser la saisie (350 contacts).
Mais il y a toujours un moment que l'on connaît tous sur lequel on but et pour lequel on a besoin de l'aide des autres.
Mon problème:
Dans cette page HTML, il y a un " input type="file" " qui ouvre un formulaire pour uploader des photos (par exemple pour les membres du personnel). Et là, je n'y arrive plus. Je n'arrive pas automatiser les manipulations, le remplissage et la fermeture de ce formulaire.
J'en appelle à vous pour m'aider à finir ce bout de code qui me facilitera la vie.
Merci
Je pose la situation:
On vient de me mettre en place en Intranet un gestionnaire de contact. Je gére tous les contacts de la boîte avec un fichier Excel (personnel, clients et fournisseurs). Il faut que je saississe tous les contacts, il n'y a pas d'option d'import de fichier.
Sans discrimination, je n'ai pas de stagiaire en ce moment.
J'ai pensé à créer en VBA un code pour automatiser la saisie (350 contacts).
Mais il y a toujours un moment que l'on connaît tous sur lequel on but et pour lequel on a besoin de l'aide des autres.
Mon problème:
Dans cette page HTML, il y a un " input type="file" " qui ouvre un formulaire pour uploader des photos (par exemple pour les membres du personnel). Et là, je n'y arrive plus. Je n'arrive pas automatiser les manipulations, le remplissage et la fermeture de ce formulaire.
J'en appelle à vous pour m'aider à finir ce bout de code qui me facilitera la vie.
Merci
Code:
Sub connexion()
'
' connexion
'
'se connecte directement à la page intranet
Dim IE As New InternetExplorer
Dim IEdoc As Object
Dim DOCelement As Object
IE.Visible = True
IE.Navigate ("http://www.intranetdelaboite.fr/contact/")
' attente de fin de chargement
Do Until IE.ReadyState = 4
DoEvents
Loop
Set IEdoc = IE.Document
'Nom
Set DOCelement = IEdoc.getElementsByName("nom").Item
DOCelement.Value = "Durand"
DOCelement.Select
'Prénom
Set DOCelement = IEdoc.getElementsByName("prenom").Item
DOCelement.Value = "jean"
DOCelement.Select
'Adresse
Set DOCelement = IEdoc.getElementsByName("adresse").Item
DOCelement.Value = "place de l'étoile"
DOCelement.Select
.../...
'Photo
Set DOCelement = IEdoc.getElementsByName("photo0").Item
DOCelement.Click
End Sub