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

Sauvegarde d'une feuille

9 réponses
Avatar
mboileau
Bonjour, J'ai la macro suivante mais =E7a ne fonctionne pas. Qu'est-ce
que je dois changer?

Sub SaveAsWithoutMacros()

Sheets("Rapport").Select
Selection.Copy
Workbooks.Open Filename:=3D"g:\BA's\BA's 2006" & "Rapport BA's.xls"
ThisWorkbook.Paste
ThisWorkbook.Save
ThisWorkbook.Close

=20
End Sub

Merci=20
MP
Signaler un problème avec ce contenu

9 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
Tiah
salut !

C'est le "thisworkbook" qui ne marche pas. places-y

activesheet.paste
activeworkbook.save
activeworkbook.close

le terme "thisWorkbook" désigne le classeur contenant ta macro

bye

tiah

a écrit dans le message de news:

Bonjour, J'ai la macro suivante mais ça ne fonctionne pas. Qu'est-ce
que je dois changer?

Sub SaveAsWithoutMacros()

Sheets("Rapport").Select
Selection.Copy
Workbooks.Open Filename:="g:BA'sBA's 2006" & "Rapport BA's.xls"
ThisWorkbook.Paste
ThisWorkbook.Save
ThisWorkbook.Close


End Sub

Merci
MP
Avatar
Tiah
salut !

C'est le "thisworkbook" qui ne marche pas. places-y

activesheet.paste
activeworkbook.save
activeworkbook.close

le terme "thisWorkbook" désigne le classeur contenant ta macro

bye

tiah

a écrit dans le message de news:

Bonjour, J'ai la macro suivante mais ça ne fonctionne pas. Qu'est-ce
que je dois changer?

Sub SaveAsWithoutMacros()

Sheets("Rapport").Select
Selection.Copy
Workbooks.Open Filename:="g:BA'sBA's 2006" & "Rapport BA's.xls"
ThisWorkbook.Paste
ThisWorkbook.Save
ThisWorkbook.Close


End Sub

Merci
MP
Avatar
mboileau
ok maintenant j'ai ceci

Sub SaveRapport()
ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select
Selection.Copy
ThisWorkbook.Sheets("Rapport").Range("A1").Select
Workbooks.Open Filename:="G:BA'sBA's 2006Rapport BA's.xls"
Worksheets("Feuil1").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

J'ai un message d'erreur:" La méthode Select de la classe Range a
échoué".

Qu'est-ce qui ne va pas?

Merci
MP
Avatar
Tiah
Bonjour,
à quelle ligne obtiens-tu cette erreur ?

tiah.



a écrit dans le message de news:

ok maintenant j'ai ceci

Sub SaveRapport()
ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select
Selection.Copy
ThisWorkbook.Sheets("Rapport").Range("A1").Select
Workbooks.Open Filename:="G:BA'sBA's 2006Rapport BA's.xls"
Worksheets("Feuil1").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

J'ai un message d'erreur:" La méthode Select de la classe Range a
échoué".

Qu'est-ce qui ne va pas?

Merci
MP
Avatar
mboileau
à cette ligne

ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select

merci
mp
Avatar
Tiah
allo

fais-le en deux parties :

ThisWorkbook.Sheets("Rapport").select
Range("A1:K60").Select

et ça fonctionne.

tiah.
PS : en passant, tu devrais enlever ton adresse réelle des entêtes de tes
messages... pour le spam ça aide...

a écrit dans le message de news:

à cette ligne

ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select

merci
mp
Avatar
Jacky
Bonsoir,
Qu'est-ce qui ne va pas?
Essaie ceci:
'-----------
[Rapport!a1:k60].Copy
Workbooks.Open Filename:="G:BA'sBA's 2006Rapport BA's.xls"
ActiveSheet.Paste Destination:=Worksheets("Feuil1").Range("a1")
ActiveWorkbook.Save
ActiveWorkbook.Close
'-------------
Pour peu que le fichier de destination existe , cela devrait faire.
Salutations
JJ

a écrit dans le message de
news:
ok maintenant j'ai ceci

Sub SaveRapport()
ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select
Selection.Copy
ThisWorkbook.Sheets("Rapport").Range("A1").Select
Workbooks.Open Filename:="G:BA'sBA's 2006Rapport BA's.xls"
Worksheets("Feuil1").Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
End Sub

J'ai un message d'erreur:" La méthode Select de la classe Range a
échoué".

Qu'est-ce qui ne va pas?

Merci
MP
Avatar
lSteph
Bonsoir,

ThisWorkbook.Sheets("Rapport").activate
Range("A1:K60").Select

lSteph

a écrit dans le message de news:

à cette ligne

ThisWorkbook.Sheets("Rapport").Range("A1:K60").Select

merci
mp
Avatar
mboileau
Salut,

Cette macro ne fonctionne pas à partir de la ligne "ActiveSheet.Paste"

ThisWorkbook.Sheets("Rapport").Select
Range("A1:K60").Select
Selection.Copy
Workbooks.Open Filename:="G:MacroRapport BAs.xls"
Worksheets("Feuil1").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close

Que dois-je faire?

Merci
MP