Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Sauvegarder une feuille

Sauvegarder une feuille

7 réponses
Avatar
Jacques \(BE\)
Bonjour,

J'ai un fichier xls(CONTENU) contenant plusieurs feuilles (A, B, C, D,...)
Comment sauvegarder la feuille B dans un nouveau fichier qui s'appellerait
Toto ??
En code VBA ...

Merci de vos réponses


Jacques
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacques \(BE\)
Merci

Efficace

Jacques


"MichDenis" a écrit dans le message de
news:

ThisWorkbook.Worksheets("B").copy
with ActiveWorkbook
.SaveAs ThisWorkbook.path & "" & "Toto"
.Close False
End with

Ton classeur du nom de toto est créé et il est enregistré
dans le même répertoire que le classeur source.




"Jacques (BE)" a écrit dans le message de news:
eQPDc6$
Bonjour,

J'ai un fichier xls(CONTENU) contenant plusieurs feuilles (A, B, C, D,...)
Comment sauvegarder la feuille B dans un nouveau fichier qui s'appellerait
Toto ??
En code VBA ...

Merci de vos réponses


Jacques





Avatar
MichDenis
ThisWorkbook.Worksheets("B").copy
with ActiveWorkbook
.SaveAs ThisWorkbook.path & "" & "Toto"
.Close False
End with

Ton classeur du nom de toto est créé et il est enregistré
dans le même répertoire que le classeur source.




"Jacques (BE)" a écrit dans le message de news:
eQPDc6$
Bonjour,

J'ai un fichier xls(CONTENU) contenant plusieurs feuilles (A, B, C, D,...)
Comment sauvegarder la feuille B dans un nouveau fichier qui s'appellerait
Toto ??
En code VBA ...

Merci de vos réponses


Jacques
Avatar
Jacques
Re,

Problème... crée des liaisons avec le fichier d'origine !!

Jacques


"Jacques (BE)" a écrit dans le message de
news:
Merci

Efficace

Jacques


"MichDenis" a écrit dans le message de
news:

ThisWorkbook.Worksheets("B").copy
with ActiveWorkbook
.SaveAs ThisWorkbook.path & "" & "Toto"
.Close False
End with

Ton classeur du nom de toto est créé et il est enregistré
dans le même répertoire que le classeur source.




"Jacques (BE)" a écrit dans le message de news:
eQPDc6$
Bonjour,

J'ai un fichier xls(CONTENU) contenant plusieurs feuilles (A, B, C,
D,...)
Comment sauvegarder la feuille B dans un nouveau fichier qui
s'appellerait
Toto ??
En code VBA ...

Merci de vos réponses


Jacques









Avatar
Jacques
Re,

Problème ... crée des liaisons avec le fichier d'origine

Jacques

"MichDenis" a écrit dans le message de
news:

ThisWorkbook.Worksheets("B").copy
with ActiveWorkbook
.SaveAs ThisWorkbook.path & "" & "Toto"
.Close False
End with

Ton classeur du nom de toto est créé et il est enregistré
dans le même répertoire que le classeur source.




"Jacques (BE)" a écrit dans le message de news:
eQPDc6$
Bonjour,

J'ai un fichier xls(CONTENU) contenant plusieurs feuilles (A, B, C, D,...)
Comment sauvegarder la feuille B dans un nouveau fichier qui s'appellerait
Toto ??
En code VBA ...

Merci de vos réponses


Jacques





Avatar
Jacques
Bonjour,

À l'ouverture du fichier créé une boite de message demande si je veux ou non
conserver les liaisons avec le fichier d'origine.

Jacques

"MichDenis" a écrit dans le message de
news:Onk$

| Problème ... crée des liaisons avec le fichier d'origine

Explicite un peu plus ... quelle est la nature de ces liens ?

Je ne vois pas en quoi la procédure soumise serait responsable
de la création de liens !





Avatar
MichDenis
| Problème ... crée des liaisons avec le fichier d'origine

Explicite un peu plus ... quelle est la nature de ces liens ?

Je ne vois pas en quoi la procédure soumise serait responsable
de la création de liens !
Avatar
MichDenis
Est-ce que ta feuille source contient des liaisons ? Si tu réponds non,
la procédure soumise ne crée pas de liaisons si ce n'est pour les macros
qui ont été affecté à des objets issus de la barre d'outils formulaire

Il est possible d'y remédier en copiant le code suivant dans la feuille que tu désires copier :
'------------------------------------
Sub Copie_UneFeuille_Vers_Autre_Classeur()
Dim M As String
Dim Nom_Fichier As String
Nom_Fichier = "c:_aaa.xls"
Application.ScreenUpdating = False
Me.Copy
With ActiveWorkbook
If .FullName = .Name Then
M = .Name & "!" & Me.CodeName & "." & "LesMacros"
Application.Run M
End If
.SaveAs Nom_Fichier
.Close False
End With

End Sub
'------------------------------------
Sub LesMacros()
'Réaffecter la macro au bouton
Dim N As String, B As Shape
For Each B In Me.Shapes
If B.Type = msoFormControl Then
With B.OLEFormat.Object
If .OnAction <> "" Then
N = Left(.OnAction, InStr(1, .OnAction, "!", vbTextCompare) - 1)
.OnAction = Replace(.OnAction, N, ThisWorkbook.Name)
End If
End With
End If
Next
End Sub
'------------------------------------





"MichDenis" a écrit dans le message de news:
Onk$

| Problème ... crée des liaisons avec le fichier d'origine

Explicite un peu plus ... quelle est la nature de ces liens ?

Je ne vois pas en quoi la procédure soumise serait responsable
de la création de liens !