Bonjour, Je m'arrache les cheveux depuis quelque temps sur un problème de VBA. Je cherche, à partir d'un fichier excel contenant un onglet "Impression", à créer un nouveau fichier comprenant cet onglet "Impression". Voici mon code: idi = InputBox("Rentrez l'identifiant") Filename:=idi & "_version compilé" Workbooks(""). Worksheets("Impression"). Activate Workbooks(""). Worksheets("Impression") Before:=Workbooks(idi & "_version compilé")(1) Quand j'ouvre mon classeur et que je lance la macro, tout se passe bien. Seulement, quand je relance l'opération, un classeur vierge s'ouvre mais on m'envoie une erreur avec le nombre 400 (avant que l'onglet Impression ait pu etre copié dans le nouveau classeur vierge). De plus, lorsqu'un autre fichier excel est ouvert, le programme plante de la même façon. Créer un nouveau fichier excel vba download. En fait, à chaque fois qu'un autre fichier excel est (ou a été) ouvert, le "ActiveWorkbook" ne reconnait pas le classeur qui vient d'être créé, faisant planter le programme... Auriez vous une solution à ce problème?
Kutools pour Excel 's Date de fractionnement L'utilitaire peut vous aider à diviser rapidement les données en plusieurs feuilles de calcul en fonction de la colonne sélectionnée, comme illustré ci-dessous dans Excel. Cliquez pour un essai gratuit complet de 30 jours! Kutools for Excel: avec plus de 300 compléments Excel pratiques, essayez gratuitement sans limitation en 30 jours.
On Error Resume Next ' Activez Word s'il est déjà ouvert. Set WordApp = GetObject(, "lication") If = 429 Then ' Créez une application Word si Word n'est pas déjà ouvert. Set WordApp = CreateObject("lication") End If ' Assurez-vous que l'application Word est visible. sible = True ' Activez l'application Word. tivate ' Créez votre nouveau document Word. Comment exporter et enregistrer chaque feuille de calcul en tant que nouveau classeur séparé dans Excel?. Set WordDoc = ' Enregistrez votre nouveau document Word dans un chemin de dossier. "C:\mesfichiers\" ' Libérez la mémoire système réservée aux deux variables Object. Set WordApp = Nothing Set WordDoc = Nothing End Sub