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

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  C/C et fermer un fichier

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

C/C et fermer un fichier

n°2230124
ooxzar
à chaque jour suffit sa peine
Posté le 06-06-2014 à 15:35:29  profilanswer
 

Bonjour, je veux créer un code ou j'ouvre un grande nombre de fichier excel pour C/C dans un fiche synthèse les mêmes cellules pour pouvoir faire un comparatif ensuite.  
 
J'ai deux problèmes, de 1 je n'arrive pas à copier les valeurs du fichier excel ouvert automatiquement pour le mettre dans la feuille contenant la macro et de 2 je n'arrive pas à refermer le fichier une fois ouvert pour passer au suivant..; Je vous montre ce que j'ai pour le moment !
 

Code :
  1. Option Explicit
  2. Dim F(), Col
  3. Dim Chemin, NomFichier, wb2, Fdép
  4. Sub SyntheseDesOutils()
  5.    
  6.     Application.ScreenUpdating = False
  7.     Application.EnableEvents = False
  8.    
  9.  
  10.    
  11.     Set Fdép = ActiveSheet
  12.     Chemin = ThisWorkbook.Path & "\"
  13.     NomFichier = Dir(Chemin & "*.xls*" ) 'ouvre tous les fichiers .xls*
  14.    With Fdép
  15.         Do While Len(NomFichier) > 0
  16.             If NomFichier <> ThisWorkbook.Name Then
  17.                 Set wb2 = Workbooks.Open(Chemin & NomFichier) 'Ouvre le fichier
  18.            End If
  19.            
  20.             Col = .Cells(3, Columns.Count).End(xlToLeft).Column + 1
  21.             .Range("B:B" ).Copy .Range(.Columns(Col), .Columns(Col + 1))
  22.            
  23.    
  24.                 wb2.Close False
  25.        Loop
  26.    
  27.    
  28.     Columns("B:B" ).Hidden = True
  29.    
  30.     End With
  31. End Sub


 
 
Ce que j'ai surligné est surligné en Jaune sur mon code quand j'execute ma macro !
Merci d'avance à ceux qui voudront bien m'aider ! :)

mood
Publicité
Posté le 06-06-2014 à 15:35:29  profilanswer
 

n°2230150
Marc L
Posté le 06-06-2014 à 18:04:01  profilanswer
 

 
           Bonjour,
 
           simple erreur de logique : déplacer la ligne n°21 entre la 27 et la 28 …
 


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  C/C et fermer un fichier

 

Sujets relatifs
string dans un fichier netcdf[C] Détails allocation mémoire
fichier xml corrompu balise absentemême fichier .htaccess en prod et developement
[PHP] probleme #Ressource #Fichier sur manip image[BATCH] Génerer un fichier texte et écrire dedans [...]
[Script Shell] utilisation de la commande tarSoiréee User Group C++ Francophone - En faire ++ avec C++
Base de données ou fichier de données ?C++ Fermer l'execution d'un fichier.
Plus de sujets relatifs à : C/C et fermer un fichier


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