Discussion :

[Gibbon_fute]

Bonjour à tous,

Super ce site. J'y ai déjà trouvé plein d'astuces mais là...

Mon client ouvre un fichier excel (un bon de commande) que j'ai créé, sous IE (le pénible déjà).

Je souhaiterais qu'une macro envoie un Ctrl F4 s'il y a plusieurs onglets ouverts, et un Alt F4 s'il n'y a qu'un seul onglet ouvert.

De plus, après l'envoi de ces raccourcis claviers, je souhaiterais que IE ne me demande pas s'il faut sauvegarder ou pas.

Est ce que c'est possible??

Merci de votre aide, parce que là je sèche complétement.

[Jean-Philippe André]

salut,

le code VBA se trouve dans le fichier ouvert sous IE ?

Fermer des onglets a l'aveugle, c'est pas tres pro

[Gibbon_fute]

Oui le code VBA se trouve dans le fichier ouvert par IE.

Je ne ferme pas à l'aveugle

il y a deux boutons dans mon bon de commande, un qui valide le bon de commande et sauvegarde, et l'autre qui s'appelle "quitter sans valider", donc pas de sauvegarde.

[Jean-Philippe André]

Et en faisant juste un

Code :

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

application.quit

ca ne ferme pas tout ?

[Gibbon_fute]

S'il y a plusieurs onglets d'ouverts, je voudrais ne fermer que l'onglet où mon fichier excel est ouvert...avec un application.quit ça ferme tout, qu'il y ait un ou plusieurs onglets d'ouverts.

[Jean-Philippe André]

Ok, je suppose que la possibilite de

Code :

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

Thisworkbook.Close

ne ferme pas la fenetre en elle meme mais juste le fichier ?

[Gibbon_fute]

Non, ThisWorkbook.close ne fonctionne que sous Excel, pas sous IE...

La seule solution que j'ai trouvé c'est un sendkey Ctrl F4 ou Alt F4 selon qu'il y ait un ou plusieurs onglets...s'il y a un seul onglet il faut faire Alt F4 sinon Ctrl F4 ne marche pas, et s'il y a plusieurs onglets il faut faire Ctrl F4 pour fermer l'onglet courant, sinon Alt F4 ferme tout! D'où ma question, comment on fait pour savoir combien il y a d'onglets dans IE??

Celui qui connait la réponse recevra le titre de dieu du VBA.

[fring]

Bonjour,

Essaye avec "Ctrl W" qui ferme l'onglet actif, qu'il y en a 1 ou plusieurs

Code :

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

SendKeys "^W"

[Gibbon_fute]

Yo

Non ça ne fonctionne pas...cette commande je l'avais déjà essayé et il ne se passe rien quand je clique sur mon bouton "Quitter sans valider" où dedans il y a donc SendKeys "^W". Les seuls qui fonctionnent c'est faire un SendKeys pour un Ctrl F4 et SendKeys pour un Alt F4...Bizarre non?

[AlainTech]

Bonsoir,

Je suis sur une piste trouvée sur ce site:
http://vba-corner.livejournal.com/4623.html

Tu peux commencer à t'en inspirer.
Il faut cocher la référence Microsoft Internet Controls.

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
'finds an open IE site by checking the URL
Function GetOpenIEByURL(ByVal i_URL As String) As SHDocVw.InternetExplorer
Dim objShellWindows As New SHDocVw.ShellWindows
 
  'ignore errors when accessing the document property
  On Error Resume Next
  'loop over all Shell-Windows
  For Each GetOpenIEByURL In objShellWindows
    'if the document is of type HTMLDocument, it is an IE window
    If TypeName(GetOpenIEByURL.Document) = "HTMLDocument" Then
      'check the URL
      If GetOpenIEByURL.Document.URL = i_URL Then
        'leave, we found the right window
        Exit Function
      End If
    End If
  Next
End Function
 
 
Sub test()
  Dim a As SHDocVw.InternetExplorer
  Set a = GetOpenIEByURL("http://vba-corner.livejournal.com/4623.html")
  a.Quit
End Sub

Si tu ne trouves pas, je continuerai mes essais mais pas avant demain soir.

[Gibbon_fute]

Bon je ne trouve pas la solution, désolé...j'ai peut-être une autre porte de sortie, mais pour ça il faudrait que je puisse détecter si mon fichier excel a été ouvert sous IE ou sous Excel...faut-il que j'ouvre un autre topic?

[AlainTech]

Bonjour,

Connais-tu l'URL du site où se trouvent tes fichiers?
Si oui, la solution est celle que je t'ai donnée.

Question:
As-tu un exemple accessible depuis Internet que je puisse tester?

[Gibbon_fute]

Salut,

Non je ne connais pas l'URL, il l'ouvre chez lui, dans l'environnement de sa société (Schneider en l'occurence).

Si tu veux tester, je peux t'envoyer le fichier en question, comment procède-t-on?