Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Encore ...sauvegarde URGENT

Encore ...sauvegarde URGENT

3 réponses
Avatar
naidinp
Bonjour a tous,

Voila j'ai ce macro qui normalement il doit copier une
selection de la feuille active du classeur A vers le
classeur B mais rien a faire il ne veut pas marcher j'ai
l'erreur d'execution 1004 "Erreur definie par
l'application ou par l'objet".

Comme je suis debutant VBA je ne sais pas comment faire ?

Sub enregis()
Sheets("modele").Range("sauve").Select
Sheets("modele").Range("sauve").Copy
Dim repertoire As String
Dim fichier As String
repertoire = "g:\facturev2.2\archive"
fichier = Sheets("modele").Range(H4)
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive.xls
ActiveWindow.Close
End Sub

merci d'avance pour votre aide
Signaler un problème avec ce contenu

3 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
Vincent
bonjour, essaies ceci:

Sub enregis() ' ouverture de macro
Sheets("modele").Select ' selection de la feuille à copier de ton
classeur
Sheets("modele").Copy 'copie de ta feuille
Dim repertoire As String
Dim fichier As String
repertoire = "g:facturev2.2archive" 'définition du chemin pour
enregistrer ton nouveau classeur sauvegardé
fichier = Sheets("modele").cells(4,8) ' définition du nom du fichier
sauvegardé. ta cellule H4 contient normalement ce que je t'avais décris
précedemment
fichier = repertoire & fichier 'compilation des 2 évenements
précédents
ActiveWorkbook.SaveAs Filename:=fichier 'enregistrement
ActiveWindow.Close 'fermeture du fichier
end sub

ça devrait marcher...
bon courage



"naidinp" a écrit dans le message de news:
081501c36ba7$d95a4c70$
Bonjour a tous,

Voila j'ai ce macro qui normalement il doit copier une
selection de la feuille active du classeur A vers le
classeur B mais rien a faire il ne veut pas marcher j'ai
l'erreur d'execution 1004 "Erreur definie par
l'application ou par l'objet".

Comme je suis debutant VBA je ne sais pas comment faire ?

Sub enregis()
Sheets("modele").Range("sauve").Select
Sheets("modele").Range("sauve").Copy
Dim repertoire As String
Dim fichier As String
repertoire = "g:facturev2.2archive"
fichier = Sheets("modele").Range(H4)
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive.xls
ActiveWindow.Close
End Sub

merci d'avance pour votre aide


Avatar
naidinp
ca marche c nickel

merci beaucop a tous

@+
-----Message d'origine-----
bonjour, essaies ceci:

Sub enregis() ' ouverture de macro
Sheets("modele").Select ' selection de la feuille à
copier de ton

classeur
Sheets("modele").Copy 'copie de ta feuille
Dim repertoire As String
Dim fichier As String
repertoire = "g:facturev2.2archive" 'définition du
chemin pour

enregistrer ton nouveau classeur sauvegardé
fichier = Sheets("modele").cells(4,8) ' définition du nom
du fichier

sauvegardé. ta cellule H4 contient normalement ce que je
t'avais décris

précedemment
fichier = repertoire &
fichier 'compilation des 2 évenements

précédents
ActiveWorkbook.SaveAs Filename:=fichier 'enregistrement
ActiveWindow.Close 'fer
meture du fichier

end sub

ça devrait marcher...
bon courage



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

081501c36ba7$d95a4c70$
Bonjour a tous,

Voila j'ai ce macro qui normalement il doit copier une
selection de la feuille active du classeur A vers le
classeur B mais rien a faire il ne veut pas marcher j'ai
l'erreur d'execution 1004 "Erreur definie par
l'application ou par l'objet".

Comme je suis debutant VBA je ne sais pas comment
faire ?



Sub enregis()
Sheets("modele").Range("sauve").Select
Sheets("modele").Range("sauve").Copy
Dim repertoire As String
Dim fichier As String
repertoire = "g:facturev2.2archive"
fichier = Sheets("modele").Range(H4)
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive.xls
ActiveWindow.Close
End Sub

merci d'avance pour votre aide



.




Avatar
Modeste
;-)))
même punition ....
mettre les quotes :

ActiveWorkbook.SaveAs Filename:="archive.xls"

@+

-----Message d'origine-----
merci pour l'aide mais maintenant j'ai une erreur
d'execution '424' "Objet requis" au niveau de la ligne

- ActiveWorkbook.SaveAs Filename:=archive.xls

quoi faire :( le fichier existe)

merci d'avance




































-----Message d'origine-----
Bonjour Paul,
Fais l'essai en mettant des doubles cotes à H4, ainsi :

fichier = Sheets("modele").Range("H4")

Par ailleurs, il est à mon avis bon de prendre
l'habitude


de déclarer les variables en début de
procédure ; de cette manière, elles sont facilement
repérables :


Sub enregis()
Dim repertoire As String, fichier As String

--
Amicales Salutations

Retirer A_S_ pour répondre.
XL97 / XL2002
Pour suivre le forum :
news://msnews.microsoft.com/microsoft.public.fr.excel
(Voulez-vous vous abonner ? -> Oui)

"naidinp" a écrit dans le
message de

news:081501c36ba7$d95a4c70$
Bonjour a tous,

Voila j'ai ce macro qui normalement il doit copier une
selection de la feuille active du classeur A vers le
classeur B mais rien a faire il ne veut pas marcher
j'ai



l'erreur d'execution 1004 "Erreur definie par
l'application ou par l'objet".

Comme je suis debutant VBA je ne sais pas comment
faire ?



Sub enregis()
Sheets("modele").Range("sauve").Select
Sheets("modele").Range("sauve").Copy
Dim repertoire As String
Dim fichier As String
repertoire = "g:facturev2.2archive"
fichier = Sheets("modele").Range(H4)
fichier = repertoire & fichier
ActiveWorkbook.SaveAs Filename:=archive.xls
ActiveWindow.Close
End Sub

merci d'avance pour votre aide



.

.