> Tous les forums > Forum Bureautique
 inserer une carte michelin ou autre dans excel
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
pascal_21
  Posté le 17/03/2012 @ 09:08 
Aller en bas de la page 
Astucien

bonjour le forum

je souhaiterais inserer une image de la carte michelin que ma macro à ouvert grâce à ce code

Sub ChercheViaMichellin()

Dim MaVille As String

Dim MonAdresse As String
Dim IEApp As Object
ville = [b9]
MonAdresse = [b11]

MaVille = "http://maps.google.fr/maps?hl=fr&q=" & ville
Set IEApp = CreateObject("InternetExplorer.application")
IEApp.Visible = True
IEApp.Navigate MaVille & " " & MonAdresse

End Sub

(désolé je n'ai pas trouvé de balise pour inserer le code plus proprement)

la recherche de l'adresse se fait à partir de B9 et B11

cala fonctionne très bien

par contre je ne sais pas comment inserer cette carte dans ma feuille dans la zone A15:G25 si possible autrementt on peut envisager de la copier sur une aute feuille, à la limite

merci pour votre aide



Modifié par pascal_21 le 17/03/2012 09:08
Publicité
DLUC
 Posté le 17/03/2012 à 10:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Message original par pascal_21

bonjour le forum

je souhaiterais inserer une image de la carte michelin que ma macro à ouvert grâce à ce code

Sub ChercheViaMichellin()

Dim MaVille As String

Dim MonAdresse As String
Dim IEApp As Object
ville = [b9]
MonAdresse = [b11]

MaVille = "http://maps.google.fr/maps?hl=fr&q=" & ville
Set IEApp = CreateObject("InternetExplorer.application")
IEApp.Visible = True
IEApp.Navigate MaVille & " " & MonAdresse

End Sub

(désolé je n'ai pas trouvé de balise pour inserer le code plus proprement)

la recherche de l'adresse se fait à partir de B9 et B11

cala fonctionne très bien

par contre je ne sais pas comment inserer cette carte dans ma feuille dans la zone A15:G25 si possible autrementt on peut envisager de la copier sur une aute feuille, à la limite

merci pour votre aide

Bonjour,

Avec un copier coller tu inseres se que tu veux sur une feuille excel.

A+

pascal_21
 Posté le 17/03/2012 à 10:27 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

bonjour

oui merci pour cette réponse

mais si je pouvais le faire avec un copier/coller je ne me serais pas gèné

si tu as déja utilisé mappy ou via michelin, tu dois savoir que l'on ne peut pas faire un copier sur la carte

il est juste prévu de faire une impression ils ont vérouillé le truc

louvigne
 Posté le 18/03/2012 à 07:24 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

slt

tu as essayé avec une capture d'ecran ?? avec vista et seven c'est tres facile

Démarrer > Tous les programmes > Accessoires > Outil capture

sinon sur xp pas mal non plus

y a plus qu'a coller dans excel c'st du jpeg (ou autre, il y a le choix!)

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
12,90 €Windows 10 Pro 32/64 bits OEM à 12,90 €
Valable jusqu'au 26 Février

Le vendeur sérieux DIGITAL FR propose sur Amazon  la clé d'activation pour Windows 10 professionnel en français 32 bits / 64 bits à 1Z,90 €. Cette clé livrée par email fonctionne avec l'outil d'installation et de création de support de Microsoft que vous pouvez télécharger ici ou directement avec l'ISO de Windows 10 Pro. De quoi installer légalement Windows 10 Pro sur un PC. Pour en savoir plus sur l'achat et l'installation d'une clé OEM de Windows 10, suivez les indications de notre dossier pratique.


> Voir l'offre
11,07 €Clé USB 3.0 Kingston DataTraveler 50 64 Go à 11,07 €
Valable jusqu'au 24 Février

Amazon vous propose actuellement la clé USB 3.0 Kingston DataTraveler 50 DT50 64 Go à 11,07 €. La livraison est gratuite.


> Voir l'offre
42,99 €Trackball sans fil Logitech M570 à 42,99 €
Valable jusqu'au 20 Février

Amazon fait une promotion sur le trackball sans fil Logitech M570 qui passe à 42,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 60 €. Si vous avez du mal à vous servir d'une souris et souhaitez plus de confort et de précision, ce trackball est fait pour vous. La connexion sans fil passe par un récepteur USB Unifying fourni, offre 10 mètres de portée. La pile AA offre 18 mois d'autonomie (elle est bien sûr remplaçable).


> Voir l'offre

Sujets relatifs
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Comment insérer un tableau Excel de calcul dans un site?
insérer commentaire dans cellules d'excel
Passer plusieurs variables dans une autre macro excel VBA
insérer un crochet , "V", dans excel
Problème pour insérer colonne dans Excel
Insérer un fichier Excel dans Powerpoint
Excel 2007 extraction dans un autre fichier
Excel 2007 insérer image dans feuille technique
Excel 2007 résultat formule dans une autre cellule
Plus de sujets relatifs à inserer une carte michelin ou autre dans excel
 > Tous les forums > Forum Bureautique