Microsoft 365 Impossible d'executer la macro

Coco_lac

XLDnaute Nouveau
Bonjour,
J'ai un soucis ce matin assez surprenant, j'ai du faire une fausse manip !
J'ai cette erreur qui s'affiche quand je valide le mode "Création" dans l'onglet développeur et que je clique sur un bouton !
impossible d’exécuter la macro “***”. les macros peuvent ne pas être disponibles dans ce classeur ou toutes les macros peuvent être désactivées.
Je tourne en rond et je ne trouve rien ???
Merci pour vos idées
 

Hasco

XLDnaute Barbatruc
Bonjour,

Si c'est un bouton ActiveX alors faites en mode création, un double-click sur ce bouton. S'il vous renvoie vers une procédure vide, c'est que votre macro n'existe pas dans votre classeur.

Si c'est un bouton de formulaire faites un click-droit, affecter une macro. Si, sur la fenêtre qui s'ouvre le bouton 'Modifier' est grisé, c'est que la macro désignée n'existe pas dans le classeur.

Eventuellement réaffectez la bonne macro au bouton.

Cordialement
 

Coco_lac

XLDnaute Nouveau
Je vous remercie pour votre réponse mais entre temps j'ai trouvé !
En faite j'avais groupé mes boutons pour les déplacer et c'est ce qui à mis la pagaille, j'ai supprimé le boutons groupés en question et j'ai copier ceux de ma sauvegarde qui n'étaient pas groupés et ça a marché !
Merci pour votre aide
 

patricktoulon

XLDnaute Barbatruc
bonsoir
ah ben c'est évident quand on groupe des shapes quel qu’elles soient,et bien le click de l'une d'entre elles sélectionne le groupe entier le seul problème est que si les shapes de ce groupe on des macrso affectées différentes le .onaction dirige vers du vide puisque vba ne saura pas choisir quelle macro déclenchrer
des shapes qui ont une macro affectée ne se groupent pas
 

Coco_lac

XLDnaute Nouveau
Bonjour,
J'ai une autre question svp!
J'ai écris ce code qui le permet de télécharger par le net les données bourse de yahoo, il fonctionne à 99% des cas, mais parfois il plante je suppose un problème de débit ou connexion internet.
il plante à la ligne : .Refresh BackgroundQuery:=False
Je suis obligé de sortir d'excel en sauvant et re rentrer dans le fichier en espérant que ça ne va pas replanter!
Comment je pourrais faire avant de lancer une requète pour savoir si ça va être bon ?
La partie du code :

commande = "https://query1.finance.yahoo.com/v7/finance/download/" & sCode & "?period1=" & JD & "&period2=" & JF & "&interval=1d&filter=history&frequency=1d"
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & commande & "", Destination:=Cells(xx, i))
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(5, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = False
.Refresh BackgroundQuery:=False
End With

Si vous pouviez me donner un coup de main ça serait sympa !
Merci de votre lecture
 

Discussions similaires

Haut Bas