Macro Excel ouverture fichier

Macro Excel ouverture fichier - Logiciels - Windows & Software

Marsh Posté le 10-02-2011 à 11:32:21    

Bonjour,
 
j'ai un petit souci. Je souhaite ouvrir (à partir d'une macro) es fichiers Excel d'un répertoire et les formater ensuite. Je n'ai pas de problème à réaliser ceci lorsque j'ouvre des fichiers excel qui ne contiennent pas de macro, par contre mon problème, c'est que les fichiers que je veux ouvrir contiennent des macros.
 
Le code ci-dessous ouvre bien le premier Excel (qui contient des macros) qu'il trouve mais n'exécute pas la suite du code (formatage). Il passe sur la macro du fichier qu'il a ouvert.
 

Code :
  1. Sub formatage()
  2. Dim maxi As Integer
  3. Dim File_Is As String
  4.     File_Is = Dir("d:\Documents and Settings\T0061504\Bureau\Test\*.XLS" )
  5.     Do Until File_Is = ""
  6.         Workbooks.Open Filename:="d:\Documents and Settings\T0061504\Bureau\Test\" & File_Is
  7.    
  8.     Workbooks(File_Is).Sheets("ExportAccessOpe" ).Activate
  9. Columns("I:I" ).Select
  10.     Selection.Copy
  11.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  12.         :=False, Transpose:=False
  13.     Range("I2" ).Select
  14.     Application.CutCopyMode = False
  15. Columns("I:I" ).Select
  16.     Selection.TextToColumns Destination:=Range("I1" ), DataType:=xlDelimited, _
  17.         TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
  18.         :=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
  19.         2), TrailingMinusNumbers:=True
  20.                  
  21.             ActiveWorkbook.Save
  22.             ActiveWorkbook.Close
  23.              
  24. Fin:
  25.    
  26.         File_Is = Dir
  27.     Loop
  28. End Sub


 
Comment je peux faire pour qu'il reste sur macro que j'ai lancé au départ (pour qu'il execute la suite du code). Mise en arrière plan???

Reply

Marsh Posté le 10-02-2011 à 11:32:21   

Reply

Sujets relatifs:

Leave a Replay

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