RechercheV + Macro

[matthieu2701]

Bonjour,

J'ai un tableau de consommation de gaz que j'exporte. Je rempli les données Compteurs, Type de RIG, date de début de votre correction, date de l'index à modifier et quel st l'index de correction dans Fiche de redressement.

Je souhaite que le libellé (Feuille Export) s'affiche en B6 sur la feuille Fiche de redressement en fonction de la date renseignée en F4.

J'ai réussi avec une RechercheV, mais dans le cas présent, il y a 2 dates du 13/09/18.

Est-il possible de faire ouvrir une pop-up en demandant, dans l'exemple présent, s'il souhaite afficher le libellé "MHS avec déplacement" ou "MES sur point libre" ou les 2 ?

Aussi, j'aimerais savoir comment faire pour que l'export que je fais à partir d'un site internet, se copie directement, à son ouverture, dans la feuille Export de mon fichier Excel ?

Merci par avance de votre aide.

 

[youky(BJ)]

Après avoir mis l'url click sur le bouton ok et ensuite sur importer
Pour avoir le bon URL il faut se placer sur le site et sur la bonne page du tableau
Bruno

 

[matthieu2701]

Après avoir mis l'url click sur le bouton ok et ensuite sur importer
Pour avoir le bon URL il faut se placer sur le site et sur la bonne page du tableau
Bruno

C'est bien ce que j'ai fais. Je viens de tester à nouveau et toujours le même résultat.

 

[youky(BJ)]

Ha! au faite il est possible que le tableau soit inscrit bien plus bas
Donc regarder jusqu'à la ligne 100 si il n'y a pas des données
Bruno

 

[matthieu2701]

Je viens de vérifier et il n'y a aucune donnée.

 

[youky(BJ)]

Bonjour,
Je viens de créer un fichier qui va charger la Base des membres d'un site de champignons (dispo à tous)
Lien du site pour voir la conception du site
www.mycodb.fr/membres.php?action=list
Dans la macro on retrouve cette adresse
Exécute la macro Importation
Bruno

 

[matthieu2701]

Bonjour,
Je viens de créer un fichier qui va charger la Base des membres d'un site de champignons (dispo à tous)
Lien du site pour voir la conception du site
www.mycodb.fr/membres.php?action=list
Dans la macro on retrouve cette adresse
Exécute la macro Importation
Bruno

Effectivement, cela fonctionne avec ta liste.

J'ai changé l'url dans le fichier en mettant la mienne mais cela ne fonctionne pas.

Je pense que c'est le site que nous utilisons qui rend cela impossible.

Y aurait il une autre solution ?

Merci

 

[youky(BJ)]

Demande précisions . . .
Faut 'il une permission pour accéder à votre site ??
Si c'est le cas il faut envoyer des autorisations.
Si c'est pas indiscret l'adresse du site …...!
S'agit-il d'un fichier Excel déposé sur le site (c'est pas pareil).
Bruno

 

[matthieu2701]

Demande précisions . . .
Faut 'il une permission pour accéder à votre site ??
Si c'est le cas il faut envoyer des autorisations.
Si c'est pas indiscret l'adresse du site …...!
S'agit-il d'un fichier Excel déposé sur le site (c'est pas pareil).
Bruno

Oui, je rentre un identifiant et un mot de passe.
Je peux pas communiquer l'adresse du site car c'est interne à l'entreprise.

Non le fichier n'est pas déposé sur le site. Les données de consommations sont affichés sur le site et j'ai un bouton "Exporter" qui crée un fichier excel.

 

[youky(BJ)]

Je n'ai pas d'autres solutions pour l'instant si vous rentrez chaque fois l'ID et MP.
Bruno

 

[matthieu2701]

Je n'ai pas d'autres solutions pour l'instant si vous rentrez chaque fois l'ID et MP.
Bruno

Je le rentre une fois par jour et la session reste ouverte pour la journée

 

[matthieu2701]

Pas possible de faire l'export manuellement sur le site et créer une macro, dans mon fichier, qui ira chercher les données de l'export pour les copier dans mon fichier ?

 

[youky(BJ)]

Si cela est possible,
Copier le fichier d'export dans le même dossier sinon faudra indiquer en macro le chemin.
Il faut modifier le nom du fichier d'export dans la 1ere ligne de macro sinon changer le (1)
la macro copie dans le 1er onglet
Bruno

'en module 1

Sub ouverture(Optional strK As String)
fichier="Nom_du_fichier.xls" '''''adapter le nom du fichier
Application.ScreenUpdating = False
For Each Wb In Workbooks
  If Wb.Name = fichier Then
    Workbooks(Wb.Name).Activate: k = 1
  End If
Next
If k = "" Then
chemfich = ThisWorkbook.Path & "\" & fichier
On Error Resume Next
Workbooks.Open chemfich
If Err <> 0 Then MsgBox fichier & " non trouvé": Exit Sub
End If
ActiveWindow.WindowState = xlMinimized
ThisWorkbook.Activate
ActiveWindow.WindowState = xlMaximized
With Workbooks(fichier).Sheets(1)
'(1) est le 1er onglet ou mettre le nom de l'onglet
Workbooks(fichier).Close False
End Sub


'et en thisworkbook

Private Sub Workbook_Open()
ouverture
End Sub