rebonjour,
J'ai un petit soucis avec mes macros.
J'ai réussi un créer un bouton qui actualise des requetes pour chaque onglet, mpais je n'arrive pas à créer un boutons qui actualise les requetes de tous les onglets (erreur 1004).
Par exemple voici le code du bouton de misà jour des requete pour l'onglet BLO:
Private Sub CommandButton1_Click()
Sheets("BLO").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B7").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B10").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B13").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("G3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("H3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("I3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("J3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("K3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Si je colle ce code dans un bouton sur un autre onglet, cela ne fonctionne pas: erreur 1004:
Private Sub CommandButton1_Click()
Sheets("BLO").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B7").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B10").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B13").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("G3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("H3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("I3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("J3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("K3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Comment faire pour que mon bouton fonctionne?
merci
J'ai un petit soucis avec mes macros.
J'ai réussi un créer un bouton qui actualise des requetes pour chaque onglet, mpais je n'arrive pas à créer un boutons qui actualise les requetes de tous les onglets (erreur 1004).
Par exemple voici le code du bouton de misà jour des requete pour l'onglet BLO:
Private Sub CommandButton1_Click()
Sheets("BLO").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B7").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B10").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B13").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("G3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("H3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("I3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("J3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("K3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Si je colle ce code dans un bouton sur un autre onglet, cela ne fonctionne pas: erreur 1004:
Private Sub CommandButton1_Click()
Sheets("BLO").Select
Range("B1").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B4").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B7").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B10").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("B13").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("G3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("H3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("I3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("J3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Range("K3").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
End Sub
Comment faire pour que mon bouton fonctionne?
merci