LeNainPosteur
XLDnaute Nouveau
Bonjour à tous,
Je suis nouveau sur le forum et je rencontre un petit problème pour modifier une macro déjà existante pour y intégrer une simple modification: la liaison sans lien ! Je m'explique la macro en question permet de sauvegarder une feuille d'un classeur vers un autre classeur. Cependant les liens vers le classeur d'origine sont conservés, chose que je ne souhaite pas.
En fouillant sur le forum j'ai trouvé quelques infos que je n'ai malheureusement pas pu intégrer à mon code... pour cause de non compétence Lol !!
Voici la macro
Sub SauveFeuilleActive()
'''---------------------------------------------------------------
''' Sauvegarde de la feuille active dans un nouveau classeur
'''---------------------------------------------------------------
Dim szNomFichier As Variant
'''Demande nom du fichier (par défaut, le nom de la feuille)
szNomFichier = Application.GetSaveAsFilename( _
InitialFileName:=ActiveSheet.Name, _
FileFilter:="Classeur Excel (*.xls), *.xls")
If szNomFichier <> False Then '''szNomFichier reçoit False si on a cliqué sur Annuler
'''Création du nouveau classeur avec copie de la feuille active
ActiveSheet.Copy
With ActiveWorkbook
'''Sauvegarde
.SaveAs Filename:=szNomFichier, FileFormat:=xlNormal
'''Fermeture
.Close
End With
End If
End Sub
La fonction ActiveSheet.PasteSpecial xlPasteValues semble pas mal mais je ne trouve pas comment l'inclure.
Merci d'avance pour votre aide.
Je suis nouveau sur le forum et je rencontre un petit problème pour modifier une macro déjà existante pour y intégrer une simple modification: la liaison sans lien ! Je m'explique la macro en question permet de sauvegarder une feuille d'un classeur vers un autre classeur. Cependant les liens vers le classeur d'origine sont conservés, chose que je ne souhaite pas.
En fouillant sur le forum j'ai trouvé quelques infos que je n'ai malheureusement pas pu intégrer à mon code... pour cause de non compétence Lol !!
Voici la macro
Sub SauveFeuilleActive()
'''---------------------------------------------------------------
''' Sauvegarde de la feuille active dans un nouveau classeur
'''---------------------------------------------------------------
Dim szNomFichier As Variant
'''Demande nom du fichier (par défaut, le nom de la feuille)
szNomFichier = Application.GetSaveAsFilename( _
InitialFileName:=ActiveSheet.Name, _
FileFilter:="Classeur Excel (*.xls), *.xls")
If szNomFichier <> False Then '''szNomFichier reçoit False si on a cliqué sur Annuler
'''Création du nouveau classeur avec copie de la feuille active
ActiveSheet.Copy
With ActiveWorkbook
'''Sauvegarde
.SaveAs Filename:=szNomFichier, FileFormat:=xlNormal
'''Fermeture
.Close
End With
End If
End Sub
La fonction ActiveSheet.PasteSpecial xlPasteValues semble pas mal mais je ne trouve pas comment l'inclure.
Merci d'avance pour votre aide.