Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1544 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Macro Excel ouverture fichier

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Macro Excel ouverture fichier

n°2981325
asengs
Posté le 10-02-2011 à 11:32:21  profilanswer
 

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???

mood
Publicité
Posté le 10-02-2011 à 11:32:21  profilanswer
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Macro Excel ouverture fichier

 

Sujets relatifs
Ouverture des dossiers par défautLire un fichier DUMP .dmp (crash Windows)
Fichiers "bloqué" dans propriété (résolu)Le fichier du journal d'évènements est endommagé
[Résolu] Creation intempestive d'un fichier syncguid.dat sur USB[ HELP] Aide macro powerpoint
Ouvrir fichier .wpw ?Créer plusieurs DVD à partir d'un gros fichier.exe
image ouverture de sessionErreur Microsoft Framework à l'ouverture d'Outlook
Plus de sujets relatifs à : Macro Excel ouverture fichier


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR