Archivage feuille excel

A voir également:Archivage feuille excelArchivage feuille de calcul Excel ✓ - Forum - Excel Oter protection feuille excel ✓ - Forum - Excel Feuille excel comptabilité gratuit - Conseils pratiques - Excel Oter protection feuille excel 2016 - Forum - Excel Dupliquer feuille excel ✓ - Forum - Excel

Bonjour,

Je cherche a faire un archivage d'une feuille sur mon classeur excel.

Pour que vous compreniez, voila le contexte :

J'ai un classeur pour gérer mon entreprise, dans ce classeur il y a beaucoup de feuilles diverses, dont une Facturation.
Cette dernière me permet d'éditer des factures.

Mais j'aimerais que quand je clique sur un bouton, elle se copie dans un autre classeur excel (non ouvert) nommé : Facturation.xlsx.

Elle doit se copier en une nouvelle feuille avec le nom de la cellule "J4".

les deux classeurs sont dans le même dossier, j'aimerais éviter les adresses trop précises, et que la macro cherche uniquement dans le dossier du classeur a copier.

Donc, le cheminement attendu :

Clique sur le bouton Archivage => copie de la feuille => recherche du classeur Facturation dans le même dossier => ouverture (si besoin) classeur Facturation => création d'une feuille => nommage de cette feuille au nom de la cellule "J4" => Collage de la feuille copier.

Je suis pas certain que ce soit la meilleur solution, vous avez peut être mieux a me proposer.

Merci d'avance de votre aide.

Configuration: Windows / Chrome 76.0.3809.100

Forum

A voir également:Archivage feuille excelArchivage feuille de calcul Excel ✓ - Forum - Excel Oter protection feuille excel ✓ - Forum - Excel Feuille excel comptabilité gratuit - Conseils pratiques - Excel Oter protection feuille excel 2016 - Forum - Excel Dupliquer feuille excel ✓ - Forum - Excel

Web: www.shapebootstrap.net

5 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour Kknd, bonjour le forum,

Essaie comme ça :

Sub Macro1() Dim CS As Workbook 'déclare la variable CS (Classeur Source) Dim CA As String 'déclare la variable CA (Chemin d'Accès) Dim OS As Worksheet 'déclare la variable OS (Onglet Source) Dim CD As Workbook 'déclare la variable CD (Classeur Destination)  Set CS = ThisWorkbook 'définit la classeur source CS CA = CS.Path & "/" 'définit le chemin d'accès CA Set OS = CS.Worksheets("Facturation") 'définit l'onglet source OS On Error Resume Next 'gestion des erreurs (en cas dérreur passe à la ligne suivante) Set CD = Workbooks("Facturation.xlsx") 'définit le classeur destination CD (génère une erreur s'il n'est pas ouvert) If Err <> 0 Then 'condition : si une erreur a été générée     Err.Clear 'supprime l'erreur     Set CD = Application.Workbooks.Open(CA & "Facturation.xlsx") 'définit le classeur destination CD (en l'ouvrant) End If 'fin de l condition On Error GoTo 0 'annule la gestion des erreurs OS.Copy after:=CD.Sheets(CD.Sheets.Count) 'copie l'onglet source OS en dernière position du classeur destination CD ActiveSheet.Name = ActiveSheet.Range("J4") 'renomme l'onglet copié End Sub 

Reply

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Merci pour ta réponse.

J'ai une erreur, l'avant dernière ligne d’après le débogueur.

Le message est :

Erreur d'exécution '91'
Variable objet ou variable de bloc With non définie

Je ne sais pas a quoi cela correspond

Reply
réponses:
  • auteur

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Le changement ne change rien.

Mais je crois que c'est la ligne 17 et non 18 que me montre le débogueur.
En fait je n'ai pas compté la ligne End Sub.

Donc la ligne est celle :

OS.Copy after:=CD.Sheets(CD.Sheets.Count) 'copie l'onglet source OS en dernière position du classeur destination CD

Je vais voir pour envoyer le dossier par cijoint

Si tu a une idée entre temps...

Merci d'avance

Reply

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Je viens de comprendre le problème, c’était tout con, l’extension du dossier facturation n’était pas xlsx, mais xslm.

Merci beaucoup de ton aide.

Reply

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour a tous
Je recherche svp un code pour enregistrer via un bouton sur une feuille1 au format pdf et au nom d'une cellule d'une autre feuille2 du même classeur
Merci pour votre aide

Reply

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed