Bouton enregistrement deux fichiers

[KMos]

Bonjour à tous,

C'est mon premier message sur ce forum et j'espère pas mon dernier 🙂

Je viens vers vous pour savoir si quelqu'un pourrait m'aider à résoudre mon problème.

Aujourd'hui j'ai un fichiers pour établir des devis. Sur ce fichiers j'ai un bouton enregistrer qui permet d'enregistrer le fichiers en supprimant tous les liens

"Private Sub CommandButton1_Click()

ActiveWorkbook.Worksheets(1).Range("J3").Value = Now

ActiveSheet.Copy
Dim Liens As Variant
Dim L As Integer
'
Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(Liens) Then
For L = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Liens(L), Type:=xlExcelLinks
Next L
End If
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("J4").Value)

End Sub"

Ce que je voudrais c'est que il enregistre en plus le même fichiers mais sans supprimer les liens, qu'en un clique il enregistre deux fichiers, un avec les liens, l'autre sans.

Merci beaucoup de votre aide.

KMos

 

[tototiti2008]

Re : Bouton enregistrement deux fichiers

Bonjour KMos,

Et la version avec lien, il doit l'enregistrer au même endroit et avec un nom différent ? ou il doit demander à l'utilisateur où l'enregistrer comme la version sans lien ?

 

[KMos]

Re : Bouton enregistrement deux fichiers

Bonjour,

Merci de votre réponse si rapide.

Pour le moment au même endroit.
Le nom du fichier est dynamique en fonction d'infos de la feuille excel.

Je voudrais que cela s'enregistre de cette facon :

Nomdufichiers.xls (version avec les liens : pour moi)
Nomdufichiers-partner.xls (version sans les liens : a envoyer).

Merci beaucoup.

KMos

 

[tototiti2008]

Re : Bouton enregistrement deux fichiers

Voilà ce que je te propose (à adapter):

Dim FD As FileDialog, Chemin As String
    Set FD = Application.FileDialog(msoFileDialogSaveAs)
    FD.AllowMultiSelect = False
    FD.InitialFileName = "Nom initial.xls"
    If FD.Show = -1 Then
        Chemin = FD.SelectedItems(1)
        'Enregistrement du fichier avec liens
        'Suppression des liens
        'Enregistrement du fichier sans lien
    
    End If

L'intérêt de FileDialog c'est que ça n'enregistre ton classeur que si tu utilises la méthode Execute.

 

[KMos]

Re : Bouton enregistrement deux fichiers

Merci de ton aide.

Je suis vraiment débutant sous VBA, je ne vois pas trop comment faire pour intégrer ta proposition.

Tu peux prendre quelques minutes pour me guider, ou même mieux me donner le code complet.

Je te mets mon code actuel que j'ai trouvé sur un site :

"Private Sub CommandButton1_Click()

ActiveWorkbook.Worksheets(1).Range("J3").Value = Now

ActiveSheet.Copy
Dim Liens As Variant
Dim L As Integer
'
Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
If Not IsEmpty(Liens) Then
For L = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Liens(L), Type:=xlExcelLinks
Next L
End If
Application.Dialogs(xlDialogSaveAs).Show CStr(ThisWorkbook.ActiveSheet.Range("J4").Value)

End Sub"

Merci beaucoup

KMos

 

[tototiti2008]

Re : Bouton enregistrement deux fichiers

A mon avis ça doit donner ça :

Private Sub CommandButton1_Click()
Dim Liens As Variant
Dim L As Integer
Dim FD As FileDialog, Chemin As String
 
ActiveWorkbook.Worksheets(1).Range("J3").Value = Now
 
ActiveSheet.Copy
Set FD = Application.FileDialog(msoFileDialogSaveAs)
FD.AllowMultiSelect = False
FD.InitialFileName = CStr(ThisWorkbook.ActiveSheet.Range("J4").Value)
If FD.Show = -1 Then
        Chemin = FD.SelectedItems(1)
        Activeworkbook.SaveAs Chemin
Chemin = left(chemin, len(chemin)-4) & "-partner.xls" 
Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLi nks)
If Not IsEmpty(Liens) Then
For L = 1 To UBound(Liens)
ActiveWorkbook.BreakLink Liens(L), Type:=xlExcelLinks
Next L
End If
 
Activeworkbook.SaveAs Chemin
End If
End Sub

Edit : Oups, j'avais oublié d'enlever un morceau... 🙂

 

[KMos]

Re : Bouton enregistrement deux fichiers

Merci encore,

Il me mets en rouge les deuxlignes suivantes et j'ai une erreur :

Liens = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLi nks)

Une idée ?

 

[KMos]

Re : Bouton enregistrement deux fichiers

Malgré ta correction j'ai toujours cette ligne en rouge. Et quand je teste ca m'indique qu'il y a un problème sur cette ligne.

Merci

 

[tototiti2008]

Re : Bouton enregistrement deux fichiers

xlLinkTypeExcelLinks doit être en 1 mot (pas d'espace entre le i et n)
en postant il arrive qu'il ajoute des espaces...

 

[KMos]

Re : Bouton enregistrement deux fichiers

Merci beaucoup beaucoup.

Ca marche au poil.

Exactement ce qu'il me fallait.

J'espère pouvoir être utile à ce forum un de ses jours.

KMos