Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
Bonjour, ton script semblae correspondre à une ancienne version de VBA, invalide
Poursuivant les recherches, j’ai trouvé la solution, beaucoup plus minimaliste, on ne va pas s’en priver
Sub Open_trusted_PDF_link()
Dim shell As Object
Set shell = CreateObject("WScript.Shell")...
Bonjour Staple,
Je te remercie. Ta solution va agir globalement alors que je préférerais agir au cas par cas.
Je sais que ça existe en VBA. Je l’avais vu passé et utilisé il ya des mois de celà, mais je ne retrouve pas. Je vais continuer de chercher. Bon dimanche
Bonsoir le forum,
A la racine d’une feuille, j’ai ce code dont l’objectif est d’ouvrir un lien en ligne d’un PDF
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4")) Is Nothing Then
If Target = "x" Then ActiveWorkbook.FollowHyperlink...
Bien le bonjour Staple
Autant pour moi, en fait, il fait de l’effet à condition de le stimuler... il ne s’actionne que si on place le curseur de souris (en cliquant une fois) sur la cellule concernée, autrement non (passer la souris au-dessus de la case ne suffit pas)
Alors que l’ancien code...
Je laisserai à d’autres cette joie. Comme j’appliqe toujours les mêmes éléments et design général à mes classeurs, je ne sors plus beaucoup des sentiers battus :)
Parcequ’actuellement, un commentaire ajouté manuellement commence toujours en gras et sans redimensionnement. Donc on les accumule ainsi, jusqu’à plus tard activer cette macro sur tous
Idéalement, à chaque fois qu’on en ajoute un nouveau manuellement, il serait efficace qu’il soit “corrigé”...
Hello Staple
Ceux (les notes nouvelle version, ou anciens commentaires) créés manuellement (un par un). Une fois terminés / contenu édité / “fermés“, idéalement il faudrait que la macro d’auto-redimenionnement / formatage se lance toute seule, mais juste appliquée à ce dernier commentaire...
La loi européenne indique que les licences usagées sont revendables entre particuliers, n’en déplaise aux vendeurs de software qui essaient d’en dissuader dans leur CGV (celà correspond à une clause absive), donc une cession gratuite devrait passer ;)...
Bonjour, petite question
Sub cAutoSize()
Dim c As Excel.Comment
For Each ws In Worksheets
For Each c In ws.Comments
c.Shape.TextFrame.AutoSize = -1
c.Shape.TextFrame.Characters.Font.Bold = False
Next c
Next ws
End Sub
Plutôt qu’avoir à lancer cette macro manuellement suite à avoir manipulé de...
Bonjour, ce petit pas grand chose fait parfois toute la différence :) quoiqu’il en soit, ce besoin étant unique (une fois la transition passée, on prend les nouvelles habitudes), il est plus facile d’accepter la concession faite. Bon weekend Dranreb
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.