Résultats pour "ouvrir tous fichiers"

1'882 résultats pour cette recherche

Salut !

Je suis tout nouveau sur le forum et je voudrais savoir comment pouvons nous ouvrir un par un tous les fichiers d'un répertoire :

je m'explique, je suis en stage L1 et je dois automatiser un fichier excel qui :

  • on doit ouvrir un fichier manuellement.
  • on ouvre un fichier (du repertoire en question)
  • on retourne sur le premier fichier et on actionne une macro qui prendra des données de l'autre fichier (du répertoire en question)
  • on ferme le fichier (du répertoire en question) et on ouvre le prochain pour faire la même chose un à un.

Je dois donc automatiser ça mais je suis pas vraiment expert en excel.

Je voudrais donc :

ouvrir le fichier mère manuellement puis en lançant la macro, qu'il puisse ouvrir chaque fichier du répertoire un à un tout en exécutant l'autre macro entre chaque ouverture de fichiers.

est ce possible ?

merci !

Léo.

Bonjour,

Je ne m'y connais pas en vba (Pas encore!) et j'ai un code trouvé un code sur le net. Mais selement ne marche donc si quelq'un m'aider ce serait super.

Public Sub OpenClose2_auto()

Dim wbSource, wbFichierUsager As Workbook
Dim strFileName, strPath, strSpec As String
Dim strFileList() As String
Dim i, FoundFiles As Integer   'Déclarer les variables de base
Set wbFichierUsager = ThisWorkbook

'On commence par identifier le chemin où les fichiers se trouvent
strPath = "D:\ST_du_2016-03-18_STAT\Test OpenClose\"
'Évidemment, ce chemin sera différent dans chaque cas

strSpec = strPath & "*.xlsx"   'Il faut spécifier l’extension des fichiers convoités

'On extrait le contenu du répertoire

strFileName = Dir(strSpec)

'Avons-nous des fichiers?

If strFileName <> " " Then

FoundFiles = 1

ReDim Preserve strFileList(1 To FoundFiles)

strFileList(FoundFiles) = strPath & strFileName

Else   'Le repertoire est vide, donc on annule tout!

MsgBox "Aucun fichier trouvé"

Exit Sub

End If

'Trouver tous les autres noms de fichiers

Do

strFileName = Dir(strSpec)

If strFileName = " " Then Exit Do

FoundFiles = FoundFiles + 1

ReDim Preserve strFileList(1 To FoundFiles)

strFileList(FoundFiles) = strPath & strFileName

Loop

'On fait les traitements requis pour chaque fichier

For i = 1 To FoundFiles

Workbooks.Open strFileName:=strFileList(i)

Set wbSource = ActiveWorkbook

'Ici, on retrouve le code VBA afin de faire les traitements de ce fichier. Ensuite, on le ferme, sans le sauvegarder

wbSource.Close SaveChanges:=False

Next i

End Sub

D'avance merci.

Cordialement.

Bonjour à tous,

J'ai une macro qui ouvre tous les fichiers contenus dans un répertoire précis:

Sub ouvrir_tout()

'l'instruction ChDir permet de se positionner
'sur un répertoire précis
ChDir "C:\Bulletins\" & Range("D13").Value & "\"
monfichier = Dir("*.*")
While monfichier <> ""
Workbooks.Open monfichier
monfichier = Dir()
Wend
End Sub

Je souhaite à présent réaliser une nouvelle macro qui aurait un peu la même fonction: l'idée serait d'ouvrir tous les fichiers contenus dans le répertoire du premier fichier ouvert.

En d'autres termes:

J'ouvre un fichier. Ce fichier me permettrait de lancer une macro qui ouvre tous les autres fichiers du même endroit.

Est-ce possible?

Bonjour à tous, j'ai un problème tout bête "je pense", mais je bute dessus

Ci dessous j'ai un code qui me permet d'ouvrir tous les fichiers xls ou xlsx d'un même dossier pour pouvoir leurs effectuer une action.

Par contre si mon dossier comporte que des fichiers xlsm la macro ne fonctionne plus.

Merci aux personnes qui voudront bien s'y pencher dessus.

Sub ouvrirfichiers()

Dim Fichier As String, Chemin As String
Dim Wb As Workbook

Chemin = "C:\Users\Alexandre\Desktop\Nouveau dossier (4)\"
Fichier = Dir(Chemin & "*.xlsm")

Do While Fichier <> "0. IMPORT.xlsm"
Set Wb = Workbooks.Open(Chemin & Fichier)

         Call action

Wb.Close True
Set Wb = Nothing
Fichier = Dir
Loop
End Sub

Bonjour à tous,

Je me tourne vers vous car je suis débutante en VBA même si j'ai quelques notions de code, et là j'arrive au bout de mes forces.

Je souhaiterai créer une macro à laquelle je vais indiquer une chemin de dossiers (par ex : :C\Users\NouveauDossier) afin qu'elle ouvre tous les fichiers .csv contenus dans les dossiers et sous-dossiers et sous-sous-dossiers du dossier indiqué (:C\Users\NouveauDossier), et accessoirement qu'elle les enregistre au même endroit en .xlsx

Pourriez-vous me donner un coup de main svp ?

J'ai essayé de trouver des codes sur internet mais rien ne fonctionne et j'ai des erreurs que je ne comprends pas...

Merci d'avance !

Bonjour,

J'ai un fichier avec un millier d'urls en https pointant sur des pages avec une image jpg.

L'un d'entre vous connaitrait une macro pour me permettre soit d'enregistrer toutes images soit de les imprimer ?

J'ai tenté en vain de les ouvrir tous grace au module ci-dessous (mais la ligne HL.Flollow bug systématiquement). je pensais ensuite utiliser le module firefox Universal Print pour tout imprimer. Mais rien n'y fait, je n'y arrive pas

Sub ActiverLiens()

For Each HL In Sheets("Nom de la Feuille contenant les Liens").Hyperlinks

HL.Follow

Next

End Sub

Si vous avez la solution, vous ferez une heureuse !

Bonjour à tous,

Je m’explique, je suis Ostéopathe et toutes mes fiches patients sont faites sur excel.

Afin de créer un répertoire pour prévenir tous mes patients j’aimerais créer une fichier excel qui ai en première colonne le nom du patient (donc le nom du fichier excel) et en deuxième colonne le numéro de téléphone (soit la cellule B2 du premier onglet de chaque fichier)

Est-ce possible ?

Merci d’avance je suis loin d’être un expert avec Excel

Bonjour à tous,

je cherche une macro simple pour ouvrir tous les fichiers .xls contenus dans un dossier C:\Users\barth66\Desktop\Test commandes

Je vous assure que j'ai passer en revu pas mal de message issu de forum mais je ne trouve rien qui aille,

Merci pour votre aide,

Cdt,

Bonjour,

Je souhaiterais savoir s'il existe un code VBA qui, à partir d'une exécution sur un document word permettrait d'imprimer TOUS les fichiers du dossier où se trouve le document word ?

A savoir que les fichiers s'y trouvant possèdent diverses extensions (.pdf, .xlsx, .docx).

Je pensais passer par Shell32 mais je n'arrive pas à comprendre son fonctionnement.

Je vous remercie par avance !

PS : N'hésitez pas à me dire si ce n'est pas possible.

PS 2 : Je ne souhaite pas passer par du VBS (interdit sur mon serveur entreprise ..)

Cordialement,

Bonjour,

Je souhaite récupérer le nom de tous les fichiers et le contenu de la cellule "O3" de tous les fichiers d'un répertoire pour les enregistrer dans un classeur nommé "note". Dans ce fichier "destination" les noms des fichiers du répertoire seront dans la colonne A et le contenu de la cellule O3 dans la colonne B.

Je m'entête depuis trois jours à trouver une solution mais là il me faut de l'aide.... car toutes mes tentatives ont échoué.

Voici mon code VBA excel. Il me met bien le premier nom de fichier du répertoire en A1 de la feuille note mais après bug sur Cells(L_Ligne, 2).Select

Private Sub recupenote()

'annule alerte écran

Application.ScreenUpdating = False

Dim wbk2 As Workbook 'pour récupérer valeur cellule O3

Dim valeur As Object

Dim Chemin As String

Dim Fichier As String

Dim wb As Workbook 'fichier qui récupère les données des autres fichiers du dossier

Dim L_Ligne As Variant 'pour passer d'une ligne à la suivante

L_Ligne = L_Ligne + 1

'wb ouvre fichier note

Set wb = Workbooks.Open("C:\Users\Sabine\Documents\test\Note.xlsm")

'Définit le répertoire contenant les fichiers dans lesquelles récupérer la valeur O3

Chemin = "C:\Users\Sabine\Documents\test\fichiers\"

Fichier = Dir(Chemin & "*.*")

'Fais le code jusqu'à ce qu'il n'y ai plus de fichier à traiter

Do While Len(Fichier) > 0

'ouvre le fichier

Set wbk2 = Workbooks.Open(Chemin & Fichier)

Windows("Note.xlsm").Activate

Sheets("Note").Activate

Cells(L_Ligne, 1).Select

ActiveCell.FormulaR1C1 = Fichier

'récupère dans valeur le contenu de la cellule O3

Set valeur = wbk2.Sheets("Travail").Cells(3, 15)

'wbk2.Close

'met contenu de valeur dans A2

Windows("Note.xlsm").Activate

Sheets("Note").Activate

Cells(L_Ligne, 2).Select

ActiveCell = valeur

L_Ligne = L_Ligne + 1

Loop

End Sub

Merci d'avance pour votre aide précieuse.

Bonjour,

j'ai environ 1000 fichiers, chacun ayant 2 onglets, je voudrais des liens entre ces 2 feuilles mais comme les nom de fichiers sont tous différents, je ne trouve pas la formule qui dit :

cellule b2 de l'onglet "imprim" est la copie de la cellule R22 de l'onglet précédent (le nom change)...il y a 8 cellules .

ça a l'air simple et pourtant se rapporter à l'onglet précédent semble compliqué.

J'ai bien trouvé une formule, (voir dans fichier joint, onglet "IMPRIMER") mais elle ne se valide pas car il faut définir un nom.

Donc il faudrait soit une macro qui validerait cette formule, soit une macro qui crée les liens pour tous les fichiers du répertoire.

Pour info :

  • tous les fichiers ont la même structure, seules 8 cellules changent
  • lorsque je valide manuellement chaque fichier, ça marche sous Excel 2013, mais pas sous Excel 2007 !

dernier point, si cette macro pouvait définir l'impression à 1 page en hauteur et largeur, ça m'éviterait de le faire à chaque fois.

Pour mieux comprendre si je ne suis pas clair, ouvrez le fichiers en PJ, onglet "Imprimer", et j'ai marqué la procédure à faire valider par macro, vous verrez alors que ça fonctionne bien.

Merci pour votre aide

Salut chers

J ai un dossier qui comporte plusieurs fichiers et sous dossiers et j aimerais avoir une astuce pour les lister afin de pouvoir utiliser les différents chemins. Merci

Bonjour,

Tous les trimestre nous devons comparer des fichiers excel. A savoir on prend le dernier du fichier du trimestre précédent, le 1er fichier du trimestre en cours et on les compare. Ensuite on ferme le fichier du trimestre précédent. On ouvre le 2ème fichier du trimestre en cours et on le compare au 1er fichier du trimestre en cours. On ferme le 1er fichier du trimestre en cous et on ouvre le 3ème fichier du trimestre en cours et on le compare au 2ème. Etc

Sachant qu'il y a un fichier par jour même pour les week-end et les jours féries.

Mon problème n'est pas la comparaison des fichier en vba mais plutôt de coder le processus d'ouverture et de fermeture des fichiers.

Grossièrement mon code est :

Ouverture fichier trimestre précédent

Ouverture 1er fichier du trimestre

For

On compare toutes les lignes

Conditions

On ajoute une date

Next

Le problème c'est que je fais la 1ère comparaison de fichiers mais je ne sais pas comment faire ensuite pour les autres.

Je ne sais pas si c'est clair.

Ci-joint un exemple de fichier.

Merci d'avance pour votre aide

Bonjour à tous,

Me revoilà avec encore une question à propos de Mozilla Thunderbird. Je me rends compte que cette messagerie est difficile à piloter en VBA... mais bon pas le choix !

J'aimerai pourvoir joindre à mon message, tous les fichiers (5 ou 6) contenus dans un dossier spécifique. J'ai tenté avec ce code mais ça ne fonctionne pas :

Sub Envoyer_mail()

Dim destinataire, sujet, cc, chemin, monFichier, PJ As String

destinataire = Range("C6")
sujet = Range("C10")
cc = Range("c8")
body = Range("b13")

chemin = "C:\Users\user5\Desktop\Fichier\Envoi"
monFichier = Dir(chemin, vbNormal)

Do While monFichier <> ""
monFichier = Dir
PJ = monFichier
Loop

strcommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
strcommand = strcommand & " -compose " & "to='" & destinataire & "'"
strcommand = strcommand & "," & "subject=" & sujet & ","
strcommand = strcommand & "body='" & Chr(34) & body & Chr(34) & "'"
strcommand = strcommand & "," & "cc=" & cc
strcommand = strcommand & "," & "attachment='file:///" & PJ & "'"

Call Shell(strcommand, vbNormalFocus)

End Sub

Quelqu'un a une piste ?

Merci par avance,

Bonsoir à tous,

je fais appel à votre matière grise pour m'éviter un retour au stage photocopies...

J'ai effectivement un dossier à imprimer sur le bureau nommé "imprimer" qui contient une certaines arborescence de fichiers (dossiers, dossiers de dossiers ou fichiers).

Je ne suis peut être pas dans le bon forum mais je pensais qu'on pouvait lister l'ensemble des fichiers et dossiers contenus dans le répertoire principal puis, pour chaque fichier, créer une boucle qui imprimerait les fichiers ?

Si quelqu'un a une idée, je suis preneur.

Merci d'avance et belle soirée,

Maverick'

Bonjour

j'ai enregistré une macro pour ouvrir tous les fichiers d'un répertoire. Maintenant je souhaiterais faire sur chaque fichier un certain nombre de calcul identique (fonctions si, fonctions somme.si, données converties en amont etc..). et copier les résultats sur la feuille de synthèse où se trouvent la macro, en précisant sur une cellule le nom du fichier copié et le résultat dessous ou à côté etc.

Est ce possible ? je ne sais pas comment utiliser le langage de "boucle"

MERCIIIIIII

bonjour à tous

Voici mon problème,j'ai un répertoire: C:\Users\moi\Desktop\produits_TEMPORAIRES\Essai dans lequel j'ai quelques milliers de fichiers qui sont comme le document type "en pièce jointe".

Bien entendu ils sont tous renseignés de manière différente et porte tous un nom différent.

Dans ce répertoire je souhaiterais que tous mes fichiers (qui sont des fichiers excel .xlsx) me remplace le texte d'une cellule par un autre texte.

je vous synthétise ma démarche:

1- Ouvrir le répertoire C:\Users\moi\Desktop\produits_TEMPORAIRES\Essai si il n'est pas déja ouvert.

2- Ouvrir le premier fichier Excel.

3- Chercher dans la colonne D la valeur "Jacques"

4- Une fois la valeur "Jacques" trouvée, remplacer la valeur de la même ligne mais en colonne H, ici "40 ans" par la valeur "45ans"

5- enregistrer le fichier

6- Fermer le fichier

7- Ouvrir le fichier suivant

8- Répéter les étapes 3- à 7- jusqu'à que tout les fichier du répertoire soit modifiés.

9- M'ouvrir une boite de dialogue lorsque toutes les modifications ont été effectuées avec le message "Modifications effectuées"

Je viens pour la première fois de toucher à du VBA il y a 3 jours et j'ai beau chercher sur les forums les formules que j'applique ne semple pas fonctionner. ( sans nul d'autre de ma faute)

Pour les étapes 3 et 4 j'ai une macro plutôt simple qui semble fonctionner:

Columns("D:D").Select

Selection.Find(What:="Jacques", After:=ActiveCell, LookIn:= _

xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _

xlNext, MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Offset(0, 4).Select

ActiveCell.Replace What:="40 ans", Replacement:="45 ans", _

LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _

False, ReplaceFormat:=False

Pour la suite en revanche je sèche. j'ai vraiment un problème pour créer le reste de ma macro afin qu'elle ouvre un à un mes fichiers Excel pour y appliquer automatiquement mon bout de macro.

35test-masque.zip (9.99 Ko)

Bonjour,

J'ai dans un fichier"CalculBudget" une macro (V2export_feuil_renom) qui va collecter les données d'un fichier source, les transforme, réalise des calculs et copie une feuille de résultat vers un nouveau classeur "Budget total".

Pour exécuter ma macro, je vais chercher mon fichier source grâce à une liste déroulante.

Mon problème est que j'ai 30 fichiers sources. J'aimerais donc réaliser une macro qui pourrait appliquer ma macro (v2export_feuil_renom) sur mes 30 fichiers sources.

J'ai essayé le code suivant mais cela ne fonctionne pas :

Sub ouverture_en_boucle()

Dim Fichier As String, Chemin As String
Dim Wb As Workbook

'chemin à renseigner :

Chemin = "C:\Users\Nath&JB\Desktop\"
Fichier = Dir(Chemin & "*.xlsx")

Do While Fichier <> ""
Set Wb = Workbooks.Open(Chemin & Fichier)

'execution de la macro

Call V2export_feuil_renom

Set Wb = Nothing
Fichier = Dir
Loop

End Sub

Pouvez vous m'aider ?

En vous remerciant,

JBB

Bonjour à tous,

J'ai créé une macro permettant de créer un mail avec les destinataires, l'objet, le corps du mail etc.. J'arrive à mettre en pièce jointe un fichier pdf situé dans le même répertoire que mon fichier excel et qui par chance à le même nom.

Cependant, mon souhait et d'ajouter en pièce jointe de ce mail tous les fichiers "*.pdf" du répertoire contenant mon fichier excel.

Pourriez-vous m'aider à cela svp?

D'avance merci!

"

Sub Envoyer_Mail()

Dim Adresse, Nom As String

Dim Appli_Outlook, Mon_Mail As Object

Adresse = ActiveWorkbook.Path

Nom = Split(ActiveWorkbook.Name, ".")(0)

Set Appli_Outlook = CreateObject("Outlook.Application")

Set Mon_Mail = Appli_Outlook.CreateItem(0)

On Error Resume Next

Range("O5:R15").Select

Selection.Copy

Set Corps_du_mail = Mon_Mail.GetInspector.WordEditor

Mon_Mail = Corps_du_mail.Range.PasteAndFormat(Type:=wdFormatOriginalFormatting)

Mon_Mail.To = Range("aa10").Value

Mon_Mail.Subject = Range("O3").Value

Mon_Mail.Attachments.Add Adresse & "\" & "*.pdf"

Mon_Mail.Display

On Error GoTo 0

Set Mon_Mail = Nothing

Set Appli_Outlook = Nothing

End Sub

"

Bonjour à tous et toutes,

Je me permets de poster sur ce forum car après plusieurs jours de recherches, je n'arrive pas à solutionner mon problème qui est le suivant:

Je travaille actuellement sur un fichier xlsm. Mon problème est le suivant, je souhaiterais importer tous les fichiers "xlsx" dans le fichier xlsm sur lequel je travaille. Les "xlsx"sont contenus dans un dossier que je choisirais à l'aide d'une boite de dialogue.

Pour préciser, chaque fichier xlsx contient seulement une feuille.

Je sais actuellement importer un à un les fichiers contenus dans un dossier, sauf que si ce dernier comporte 30 fichiers ".xlsx", les ouvrir un à un est pénible, et on s'y perd facilement, d'où mon appel à l'aide.

Vous remerciant par avance de votre précieuse aide,

Recherches récentes

copier derniers caracteres cellulrsredimonedriveextraire tableau structuresenregistrer donnees tableau vba boucle forrapportrecherche multicriteres userformvba remplacer textemacro ralentirprocedure trop longue vbarapprochementtaille liste deroulanteconsolidation fichiers power queryconsolidation fichierscalculenregistrer imageliens word serveur424auto clickerrecherchev doublon