copie feuille classeur fermé

  • Initiateur de la discussion Initiateur de la discussion SALAH
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

SALAH

XLDnaute Occasionnel
Bonjour à tous

Certainement que le sujet a déjà té traité, jai beau cherché mais rien
Mon souci voir piece jointe : j ouvre un classeur source (classeur2) je copie la feuille1 de ce classeur dans un autre classeur (classeur 1)
Le code inscrit fonctionne bien mais j aurais preferé faire la copie dans un classeur fermé sans l ouvrir et l nouveau onglet aura comme nom la date du jour et non toto.
Par la meme occasion comment lui dire qu il ne copie qu une partie de la feuille
Merci pour votre aide
 

Pièces jointes

Re : copie feuille classeur fermé

Bonjour SALAH, le Forum,

En PJ tes fichiers remaniés, explications:

1) tu ouvres ton fichier de destination (SALAH_Classeur1.xlsm) sur la Feuille "ACCUEIL" tu lanceras ta macro, mais auparavant tu auras pris soin de modifier le chemin d'accès du fichier (Classeur2.xlsm) où se trouve la Feuille à copier.

2) tu verrras que la nouvelle Feuille portera la date du jour issue de la cellule "A1" de la Feuille "ACCUEIL".


@+ 😎
 

Pièces jointes

Re : copie feuille classeur fermé

Bjour xhudi69, le forum

Un plaisir de de te revoir xhudi69, tu es vraiment mon sauveur
En fait je me suis mal exprimé dans le classeur principal (Classeur1 ) doit toujours rester ouvert,
le classeur2 sert d archive et doit toujours rester fermé

Merci
 
Re : copie feuille classeur fermé

Bonsoir SALAH, le Forum

En PJ ton fichier remanié.
Le fichier "SALAH_Classeur1" est toujours ouvert, puis nous allons "Copier/Coller" Sa Feuil1 Vers le fichier "Classeur2" à la suite des autres et en la renommant à la date d'aujourd'hui.

Voili voila si j'ai bien tout compris, (faut que j'aille prendre un verre.... 😉 moi)

@+
 

Pièces jointes

Re : copie feuille classeur fermé

xhudi69, le forum

Merci xhudi69 beau travail sa marche bien

tu as bien mérité ton verre mais pas 3 sinon !!!!!

Mais si je voulais copier juste une selection quelle ligne de code à rajouter
ex: de A1 à F20 et sans qu' il recopie des boutons s'il y en avait.

Merci
 
Re : copie feuille classeur fermé

Bonsoir SALAH, le Forum

A mettre dans un bouton du fichier SALAH_Classeur1, attention de renommer le chemin.
Code:
Sub transfert_zone()
Dim Chemin As String, Fichier As String, wb As Workbook
    'transfert d'une Zone d'une feuille de ce classeur vers un autre.....
    
    Application.ScreenUpdating = False
    b = Replace(ThisWorkbook.Sheets("ACCUEIL").Range("A1").Value, "/", " ")
    
    Chemin = "C:\Users\ARL MULTI\Desktop\VBA\TRANSFERT\SOURCE\Classeur2"
    Fichier = Dir(Chemin & "*.*")
            Set wb = Workbooks.Open(Chemin)
                Sheets.Add After:=wb.Sheets(1)
                
                With Workbooks("SALAH_Classeur1.xlsm").Sheets("Feuil1")
                    .Range("A1:F20").Copy
                End With
                
                wb.ActiveSheet.Paste
                wb.ActiveSheet.Name = b
            wb.Close True
            Set wb = Nothing
            Fichier = Dir
     Application.ScreenUpdating = True
End Sub

Là j'ai plus soif 😉

@+ 😎

EDIT: si tu ne veux pas copier les boutons, mets les hors zone 😛
 
Re : copie feuille classeur fermé

xhudi69, le forum

Merci pour tout xhudi69, tout marche à merveille comme je le souhaitais
Y aurait il un moyen pour que la copie soit conforme à l original c est à dire le format, les couleurs et la valeur?
A la prochaine pour un nouveau verre !!😱

A+ et bonne semaine
 
Dernière édition:
Re : copie feuille classeur fermé

Bonsoir SALAH, le Forum

Je suis content que tout fonctionne correctement 🙂 , théoriquement la copie est conforme à l'original, car c'est justement "une copie", precise ta question.

@+ 😎
 
Re : copie feuille classeur fermé

xhudi69, le forum

Après test sauf erreur de ma part je te renvoie les 2 fichiers et constate par toi-même
peut-être dû a quelques changements de ma part

A+
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour