Probleme de code sheets.Copy Le 10/05/2016 à 10:41rromainromainMembre habituéMessages139Excel2010Inscrit05/04/2016 Bonjour le forum !J'ai un souci avec le code suivant :Sheets ("LA " & strdate & "ALLAIS") And Sheets("ALLAIS").CopyJ'aimerais pouvoir Cpoier deux feuilles mais je ne sais pas comment et le and ne marche absolument pas mais je voulais tester des trucs..Merci Le 10/05/2016 à 10:57ThauThèmePassionné d'ExcelMessages5'705Fichiers6Excel2019 FRTél.22'056Inscrit19/10/2014Bonjour Romaim, bonjour le forum,Essaie comme ça :Sheets(Array(Sheets ("LA " & strdate & "ALLAIS"),Sheets("ALLAIS")).CopyLe 10/05/2016 à 10:58MMFerrandFanatique d'ExcelMessages17'170Excel2010 FRInscrit20/07/2015Bonjour,Tu copies une feuille à la fois .Le 10/05/2016 à 11:00rromainromainMembre habituéMessages139Excel2010Inscrit05/04/2016Merci pour vos réponses, je vais essayer celle de ThauThème J'ai déjà essayé de copier l'une après l'autre MFerrand mais rien y fait, puisque qu'on se retrouve sur un classeur possédant une seule feuille.Le 10/05/2016 à 11:00MMFerrandFanatique d'ExcelMessages17'170Excel2010 FRInscrit20/07/2015Salut ThauThème !!Est-ce qu'elles vont aller dans le même classeur ?Le 10/05/2016 à 11:01rromainromainMembre habituéMessages139Excel2010Inscrit05/04/2016ThauThème a écrit :Bonjour Romaim, bonjour le forum,Essaie comme ça :Sheets(Array(Sheets ("LA " & strdate & "ALLAIS"),Sheets("ALLAIS")).CopyMinuscule oublie d'une parenthèse à la fin Quand j'exsecute le code j'ai un message d'erreur :Erreur d'exécution '13':Incompatibilié de typeLe 10/05/2016 à 11:04MMFerrandFanatique d'ExcelMessages17'170Excel2010 FRInscrit20/07/2015Pas problème romainromain !Tu crées classeur avec copie de la première, et tu envoies les suivantes dans le classeur...Une variable classeur : si Nothing, Copy et affectation variable, si affecté, Copy vers classeur...Le 10/05/2016 à 11:06rromainromainMembre habituéMessages139Excel2010Inscrit05/04/2016Ah oui d'accord je vois le cheminement, bon je me calle dessus merci ! Le 10/05/2016 à 11:08MMFerrandFanatique d'ExcelMessages17'170Excel2010 FRInscrit20/07/2015Resalut ThauThème !Je me réponds à ma question, elles vont dans le même classeur, et ça doit marcher puisqu'on peut le faire manuellement.Cela devrait répondre à la question de romainromain.Bonne journée.Le 10/05/2016 à 11:46ThauThèmePassionné d'ExcelMessages5'705Fichiers6Excel2019 FRTél.22'056Inscrit19/10/2014Re,Ce code à adapter semble fonctionner :Sub Macro1() Dim strdate As String Dim O As Worksheet Dim TOS As Variant strdate = "10052016" 'à adapter Set O = Sheets("LA " & strdate & "ALLAIS") TOS = Array(O.Name, "ALLAIS") Sheets(TOS).Copy End SubLe 10/05/2016 à 11:51rromainromainMembre habituéMessages139Excel2010Inscrit05/04/2016 ThauThème c'est tout simplement parfait !!Merci beaucoup pour ta solution !J'étais partie dans une autre direction qui me faisait faire pas mal de lignes de code farfelues... Encore un grand merci ThauThème ! Rechercher des sujets similaires à "probleme code sheets copy"ForumsExcel - VBAProbleme de code sheets.Copy