colti

SAlut mooneck sa va tu m'avais refiler une macro catvba ya quelque mois de sa mais elle a un mot de passe que je ne retrouve plus est ce qu'il serait possible de me renvoyer le mot de passe pour voir le code vba que tu as utiliser merci d'avance mon adresse mail a changer c'est scud745@gmail.com

salut Mon adresse est colti.larit@laposte.net merci beaucoup

SAlut mooneck je n'y arrive pas pourrais tu me refiler ta macro stp

Bonjour , Moi aussi j'aimerai les avoir nabil754@hotmail.fr Meric

Merci pour ton aide quand meme j'y suis pas arriver mais bon jvais perceveré

Bonjour mooneck, j'ai essayer ce que tu ma dit en disposant les elements de cette facon dans la macro : Sub catmain() Set odrawing = CATIA.ActiveDocument Set osel = odrawing.Selection Dim inpsel(0) inpsel(0) = "DrawingTable" osel.Clear st = osel.SelectElement2(inpsel, "Selectionnez un tableau",False) Set DrwTbl = osel.Item(1).Value Set myexcel = CreateObject("Excel.application" ) Set myexcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then ExcelWasNotRunning = True Err.Clear Set myexcel = GetObject("C:\Temp\P3.xls") myexcel.Application.Visible = True myexcel.Parent.Windows(1).Visible = True For i = 1 To DrwTbl.NumberOfRows For j = 1 To DrwTbl.NumberOfColumns For i = 1 To DrwTbl.NumberOfRows For j = 1 To DrwTbl.NumberOfColumns myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j) Next Next myexcel.Sheets.Add Excel_Renommer_sheet("Feuil3" & i) Next Next End Sub mais sa ne marche pas il me creer une autre feuille excel vide Pour le sub il m'indique en rouge le with surligne: je l'ai placer dans le ThisWorkbook fichier excel Public Sub Excel_Renommer_sheet(Nom_sheet As String) With Excel_Application .ActiveWorkbook.ActiveSheet.Name = Nom_sheet End With Set MaFeuille = Excel_Application.ActiveWorkbook.Sheets(Nom_sheet) End Sub le Sub je le met ou dans le ThisWorkbook du fichier excel P3 ou de la feuille 3 ? Merci @+ .

Bonjour a tous, Je souhaiterai pourvoir exporter un tableau depuis une draw sur un fichier excel nommer P3 et ranger dans "C/temp/p3": le code que j'utilise est le suivant : Mon soucis est lorsqu'il ouvre le fichier excel il les ranges automatiquement dans la 1erfeuill du claseur ouvert Ce que je souhaiterai c'est pouvoir le ranger sur une autre feuille exemple feuil2 ou feuil3 du claseur excel la ligne qui me pose peut etre soucis est celle ci (myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j)) j'ai essayer plusieurs facon de tourner le Sheet mais sans succèes le deuxieme soucis c'est qu'avce ce code je ne peut que seletionner une tableau y at-il une facon de selectioner plusieurs tableau a la fois et de les exporter sur le fichier excel dit Sub catmain() Set odrawing = CATIA.ActiveDocument Set osel = odrawing.Selection Dim inpsel(0) inpsel(0) = "DrawingTable" osel.Clear st = osel.SelectElement2(inpsel, "Selectionnez un tableau",False) Set DrwTbl = osel.Item(1).Value Set myexcel = CreateObject("Excel.application" ) Set myexcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then ExcelWasNotRunning = True Err.Clear Set myexcel = GetObject("C:\Temp\P3.xls") myexcel.Application.Visible = True myexcel.Parent.Windows(1).Visible = True For i = 1 To DrwTbl.NumberOfRows For j = 1 To DrwTbl.NumberOfColumns myexcel.ActiveSheet.Cells(i, j) = DrwTbl.GetCellString(i, j) Next Next End Sub Merci d'avance pour votre aide