XL 2013 RESOLU mettre la dernière ligne a sa place théorique

[grisan29]

bonsoir a tous et toutes
dans le code ci dessous édité par Dan que je remercie et trouvé dans un de ses post en recherche via google
donc ce code effectue l'enregistrement sous d: correctement jusque la c'est bon
sauf que ma feuille a une colonne avec des liens hypertexte et la personne qui doit recevoir après le document n'a pas besoin des liens j'ai bien essayer un code fonctionnel avec l'enregistreur mais je n'arive pas a le placer dans le code de Dan

Sub Archiver()
'Macro par Dan
    Dim extension As String
    Dim chemin As String, nomfichier As String
    Dim style As Integer
    Application.ScreenUpdating = False
    ThisWorkbook.ActiveSheet.Copy
    extension = ".xls"
    chemin = "D:\Facturation-v1s\listedfacture\"
    MsgBox ThisWorkbook.Path
    nomfichier = ActiveSheet.Range("E1") & extension  '& Range("A1")
    With ActiveWorkbook
'.DrawingObjects(1).Delete
        .SaveAs Filename:=chemin & nomfichier
       
        .Close
    End With
End Sub
'.Range("D10:D122").Hyperlinks.Delete

c'est la toute dernière qui fonctionne toute seule mais pas dans le code
merci d'avance si vous avez une solution

 

[DoubleZero]

Bonjour, grisan29, le Forum,

Je ne comprends pas la liaison entre le titre de la discussion et ceci :

... ma feuille a une colonne avec des liens hypertexte et la personne qui doit recevoir après le document n'a pas besoin des liens...

Une suggestion, malgré tout :

Option Explicit
Sub Liens_supprimer()
    Dim c As Range
    For Each c In Columns(4).SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants)
        If c.Hyperlinks.Count > 0 Then
            c.Hyperlinks(1).Delete
        End If
    Next c
End Sub

A bientôt

 

[Staple1600]

Bonsoir à tous, 00

On peut se contenter de
Columns(4).Hyperlinks.Delete

 

[grisan29]

bonsoir/bonjour a vous
je planche dessus et je venait vous dire que j'ai finit par réussi a caser la dernière ligne du code mise en commentaire
je l'ai mise sous le message comme ceci

ActiveSheet.Range("D10:D250").Hyperlinks.Delete

mais demain où tout a l'heure je vais la modifier pour quelle commence a partir du bas car la liste des lignes avec les liens s'allonge tous les jours ou presque