Résultats pour "convertir fichiers dossier word"

2'386 résultats pour cette recherche

Bonjour à tous,

J'aimerais faire une macro qui lit un répertoire inscrit dans une cellule, puis qu'il affiche le nom de tous les fichiers excel qui s'y trouvent ainsi que leur extension, incluant tous les sous-dossiers qu'il pourrait y avoir dans celui-ci. J'ai fouiller sur plusieurs forums et je n'ai trouer que des réponses spécifiques qui ne m'aident pas vraiment.

Ps: je suis sur vba-excel depuis 3 semaines, alors je me debrouille seulement.

Merci d'avance pour vos réponses.

Bonjour à tous,

Je suis novice en VBA et aujourd'hui je suis confronté à un problème que je n'arrive pas à résoudre depuis plus d'une semaine.

Je voudrais faire l'arborescence de mes dossiers, sous-dossiers et fichiers dans une feuille Excel. Après de longues heures de recherche, j'ai trouver des codes permettant de reprendre les noms des dossiers et/ou des fichiers mais je n'ai pas trouver comment faire l'arborescence.

Par exemple :

- Dans mon répertoire "C:\\" j'ai des dossiers, ensuite dans ces dossiers se trouve des sous-dossiers et ainsi de suite jusqu'à trouver des fichiers.

Je vous met ci-joint l’arborescence que j'aimerai obtenir avec une code qui répertorie tous mes dossiers, sous-dossiers...fichiers à l'intérieur d'un dossier choisi.

En rouge ce sont les fichiers (ils ne sont pas toujours au même niveau) et en noir les dossiers et sous dossiers correspondant.

Merci pour votre aide,

Cordialement Clément.L

Bonjour à tous,

tout les matins j'ai des enregistrements qui arrivent dans un dossier: "F:\Enregistrements_SOPHIA\"....

ce dossier contient un sous dossier nommé sous la forme XX_XX_XXXX

ce sous dossier contient 1 à 2 sous autre dossier dont le nom est soit "Appels_accompagnement"

soit "Appels_de_bienvenue"......... j'ai donc mes fichiers mp3 dans un chemin du style "F:\Enregistrements_SOPHIA\XX_XX_XXXX\Appels_accompagnement\"

je souhaite pouvoir copier et déplacer tous les fichiers mp3 dans un seul répertoire appelé "F:\services\Appels\serveur MANAGEMENT V2.2014\SUIVI CENTRE\APPELS\Classement des appels enregistrés\"

je pensais utiliser une macro du style.... mais je pense que c'est trop simple ....

Sub CopierFichier2()

'Copie le fichier dans un autre dossier:

'syntaxe : FileCopy "source", "destination"

FileCopy "F:\Enregistrements_SOPHIA\""\""\*.mp3", "F:\services\Appels\serveur MANAGEMENT V2.2014\SUIVI CENTRE\APPELS\Classement des appels enregistrés\"

End Sub

bonjour à tous ,

alors voilà ma question,

je cherche a imprimer tous les fichiers excel d'un répertoire et des sous répertoire.

pour cela je cherche une macro d'un fichier excel que je place dans le premier répertoire.

merci d'avance pour votre aide.

Bonjour à tous,

Tout est dans le titre, je veux ouvrir les 150 fichiers word d'un répertoire pour y changer deux mots.

Voilà le code

Sub remplacement()

Set wbdest = ActiveWorkbook 

Dim k As Object
Set k = CreateObject("Word.Application")
k.Visible = True

fichier = Dir("C:\Users\Francois\Desktop\essai importation\Macro\*.doc") 

Do While fichier <> "" 

k.Documents.Open ("C:\Users\Francois\Desktop\essai importation\Macro\*.doc") ERREUR

Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Blabla"
        .Replacement.Text = "Blibli"
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "Atchoum"
        .Replacement.Text = "A tes souhaits"
        .Forward = True
        .Wrap = wdFindContinue

    End With
    Selection.Find.Execute Replace:=wdReplaceAll

ActiveDocument.Save
wbsource.Close 'close the current source file
fichier = Dir 'go to next file in the directory
Loop 'restart the process with next file
wbdest.Activate
End Sub

Ça bloque à la ligne ou il y a marqué ERREUR avec un message "Erreur 5151. le fichier peut être corrompu"

Or, quand j'ouvre le dit fichier manuellement, aucun soucis.

Quelqu'un voit il mon erreur, ou un moyen détournée d'arriver au même résultat?

Bonjour,

Le but est la création d'un fichier Word à partir d'autres fichiers Word et d'un tableur Excel.

En entrée j'ai :

  • Un word basique qui servira de support au document final (avec une page de garde et des styles de titre)
  • Plusieurs petits words (article 1, article 2, article 3...)
  • Un Excel qui regroupe :
    Les chemins d'accès aux plusieurs petits words en Feuil1
  • Des informations de base (Titre du document final, logo, adresse, date...) en Feuil2
  • Le sommaire du document final en Feuil3

En sortie je souhaite obtenir :

Un fichier word (le document final) construit sur la base du word support, qui suit le sommaire (en Feuil3 de l'excel) et qui intègre les petits words dans les parties qui leurs sont allouées.

Grosso modo je souhaite mettre en page toutes les informations que j'ai séparément pour que ça ne fasse qu'un seul document cohérent.

Je débute sous VBA mais j'ai envie d'apprendre donc let's go ! Merci pour l'aide que vous pourrez m'apporter.

Slash

1article-1.docx (13.14 Ko)
1article-2.docx (14.77 Ko)
0article-3.docx (20.17 Ko)
2classeur1.xlsx (10.79 Ko)
1doc1.docx (42.67 Ko)

Bonjour,

Je dois faire de la comparaison de rapports (plusieurs versions de rapports). Mes rapports initiaux sont des fichiers Excel. L' analyse des versions de ces rapports se fait en word car l'outil de comparaison est plus simple et efficace.

J'ai mis en place 2 scripts vba:

Un en Excel qui permet de convertir les rapports excel en word:

Sub export_workbook_to_word()
    Dim sheetName As String
    Set obj = CreateObject("Word.Application")
    obj.Visible = True
    Set newobj = obj.Documents.Add

    For Each ws In ActiveWorkbook.Sheets
        sheetName = ws.Name

        'Retrieve name of the Worksheet
        newobj.ActiveWindow.Selection.TypeText sheetName
        newobj.ActiveWindow.Selection.Style = ActiveDocument.Styles(-2)
        newobj.ActiveWindow.Selection.TypeParagraph

        ws.UsedRange.Copy
        newobj.ActiveWindow.Selection.PasteExcelTable False, False, False
        newobj.ActiveWindow.Selection.InsertBreak Type:=7

    Next
        newobj.ActiveWindow.Selection.TypeBackspace
        newobj.ActiveWindow.Selection.TypeBackspace

    obj.Activate
    newobj.SaveAs Filename:=Application.ActiveWorkbook.Path & "\" & Split(ActiveWorkbook.Name, ".")(0)

End Sub

Un en Word pour comparer les rapport et créer un 3 eme rapport qui montre les différences entre les rapports avec l'outil de track changes

Sub CompareAllFiles()
    Dim strFolderA As String
    Dim strFolderB As String
    Dim strFolderC As String
    Dim strFileSpec As String
    Dim strFileName As String
    Dim objDocA As Word.Document
    Dim objDocB As Word.Document
    Dim objDocC As Word.Document
    strFolderA = InputBox("Enter path to base documents:")
    strFolderB = InputBox("Enter path to new documents:")
    strFolderC = InputBox("Enter path for document comparisons to be saved:")
    strFileSpec = "*.doc"
    strFileName = Dir(strFolderA & strFileSpec)
    Do While strFileName <> vbNullString
        Set objDocA = Documents.Open(strFolderA & strFileName)
        Set objDocB = Documents.Open(strFolderB & strFileName)
        Application.CompareDocuments _
            OriginalDocument:=objDocA, _
            RevisedDocument:=objDocB, _
            Destination:=wdCompareDestinationNew
        objDocA.Close
        objDocB.Close
        Set objDocC = ActiveDocument
        objDocC.SaveAs FileName:=strFolderC & strFileName
        objDocC.Close SaveChanges:=False
        strFileName = Dir
    Loop
    Set objDocA = Nothing
    Set objDocB = Nothing
End Sub

Je voudrais réunir les 2 scripts en un seul script pour:

  • exporter tous les fichiers Excel d'un dossier en fichier Word avec le 1er script (sur base du 2eme script pour choisir les dossiers d'origine et de destination)
  • Comparer les documents Word (avec le 2eme script) et créer les fichiers de résultats

Pourriez-vous m'aider à faire cela?

Merci d'avance pour votre aide

Bonjour, je suis trop léger en VBA pour le faire et le temps me presse ! voilà mon projet :

à la racine où se trouve mon fichier où je lance la macro je veux :

-tester si le dossier existe si non le créer avec nom de dossier :

& "\" & Range("C7").Value & " - " & Range("C16").Value & " - " & Range("C19").Value

  • si la valeur de Range("C29") est comprise entre 1 et 4 => création sous-dossier "toto" (ou sélection si existant)
  • si la valeur de Range("C29") est supérieur à 4 => création sous-dossier "titi" (ou sélection si existant)

- tester si le sous-dossier existe (dans toto ou titi) si non le créer avec nom de dossier : Range("C7").Value

- enregistrer le fichier avec le nom : "gaston " & Range("C7") & " - " & Range("C6") & ".xlsm"

merci aux passionnés-experts !

bonjour je cherche comment extraire juste le dossier sous-dossier fichier

actuellement j’utilise fichier.Path le problème c'est que sa récupère tout le chemin du fichier alors que je cherche juste la parti au niveau du dossier sélectionner pour pouvoir reconstruire arborescence ailleurs

Sub import_txt()
    Dim Repertoire As FileDialog, monRepertoire As String
    Set Repertoire = Application.FileDialog(msoFileDialogFolderPicker)
    Repertoire.Show
    If Repertoire.SelectedItems.Count > 0 Then
        monRepertoire = Repertoire.SelectedItems(1)
        aspirer monRepertoire
    Else
        MsgBox "Aucun Répertoire Sélectionné"
    End If
End Sub
Sub aspirer(ceRepertoire As String)
    Dim Fso, SourceFolder, SubFolder, fichier As Object
    Dim adoStream As ADODB.Stream
    Dim var_String As Variant
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set SourceFolder = Fso.GetFolder(ceRepertoire)

    ' boucle sur tous les fichiers du répertoire
    For Each fichier In SourceFolder.Files
        If Right(fichier.Name, 4) = ".txt" Then

        'variable*
        lr = Sheets("texte").Range("a" & Rows.Count).End(xlUp).Row
        ld = lr + 5

        'ecriture du fichier
            Set adoStream = New ADODB.Stream
            adoStream.Charset = "UTF-8"
            adoStream.Open
            adoStream.LoadFromFile fichier.Path
            var_String = Split(adoStream.ReadText, vbCrLf) 'split entire file into array - lines delimited by CRLF
            Range("a" & lr + 5).Resize(UBound(var_String) - LBound(var_String)).Value = Application.Transpose(var_String) 'output array to activesheet.
            lf = Sheets("texte").Range("a" & Rows.Count).End(xlUp).Row
            'ecriture info
            Sheets("texte").Cells(lr + 2, 1) = fichier.Path 'a changer
            Sheets("texte").Cells(lr + 3, 1) = ld
            Sheets("texte").Cells(lr + 4, 1) = lf

   'dos = file.Name + fichier.Name

        End If
    Next fichier

    ' appel récursif pour les sous-répertoires
    For Each SubFolder In SourceFolder.SubFolders
        aspirer SubFolder.Path
    Next SubFolder

End Sub

Bonjour à tous,

je rencontre un petite difficulté à trouver sous VBA (sous forme de function) le chemin de l'avant dernier dossier créé, parmi une liste de dossier, eux même se trouvant dans un dossier.

J'ai réussi à trouver (sur internet ) un bout de code qui me permet de trouver le dernier dossier créé dans un dossier mais comme les variables enregistrent du texte je ne peux pas faire des calculs avec pour déterminer l'avant dernier...

Vous trouverez ci-dessus la fonction. Si vous disposez d'une meilleure approche ou d'un moyen d'obtenir une fonction qui renvoie le chemin de l'avant dernier dossier créé dans un dossier je suis preneur

Je vous remercie d'avance pour votre aide

Function GetLastFolder(Path As String)
    Dim FSO, FS, F, DtLast As Date, Result As String
    Set FSO = CreateObject("scripting.FileSystemObject")
    Set FS = FSO.GetFolder(Path).subfolders
    For Each F In FS
        If F.DateLastModified > DtLast Then
             DtLast = F.DateLastModified
             Result = F.Name
        End If
    Next
    GetLastFolder = Result
End Function

Bonjour

Le sujet a été traité de nombreuses fois mais n'y connaissant rien au VBA, je me rapproche de vous pour obtenir quelques lignes qui pour vous semble si évidentes et pour moi trop complexe.

Il s'agit de créer des dossiers , sous dossiers et sous sous dossiers à partir d'un document excel sur la base du document joint

une liste de clients avec chacun un nombre de machine en stock et avec à chaque fois les mêmes sous répertoires (carnet adresses, dcm, mdp, ......)

merci pour votre aide

ps: j'ai vu de nombreux postes mais n'arrive pas à l'adapter à ce tableau

Cordialement

17cient-mini.xlsx (339.41 Ko)

Salut le Forum !

Je dois créer un fichier permettant un gain de temps sur une tâche hebdomadaire mais je bute sur un code que je n'ai pas crée mais seulement modifié !

En effet, le fichier ci-joint permet de parcourir les dossiers et sous-dossiers de l'ordinateur, et de choisir un chemin pour lancer ensuite un traitement avec les fichiers qu'il contient.

Le problème étant que ma procédure va demander au minimum 20 fois de choisir un chemin et que la racine vers ces dossiers est toujours la même. Exemple :

Saisie 1 : N:\Paris\Compta\Compta_Sinistre\Compta_SinistreFacturation\Bordereaux\PDF\Cie_N°1

Saisie 2 : N:\Paris\Compta\Compta_Sinistre\Compta_SinistreFacturation\Bordereaux\PDF\Cie_N°2

Saisie 3 : N:\Paris\Compta\Compta_Sinistre\Compta_SinistreFacturation\Bordereaux\PDF\Cie_N°3

Ainsi, est-ce que vous savez comment modifier le code pour que le "choix du chemin" commence directement à "N:\Paris\Compta\Compta_Sinistre\Compta_SinistreFacturation\Bordereaux\PDF"

En espérant avoir été compréhensible :p

Merci d'avance pour vos retours !

Bonjour,

J'aimerai créer automatiquement un dossier qui a pour nom: le contenu de la cellule G3(qui est un nombre) + du texte.

Étant débutant en VBA, je n'arrive pas à utiliser la fonction MkDir

Répertoire : C:\- EtienneC\Mon dossier

Ensuite j'aimerai créer un sous dossier dans ce dernier qui à le même nom mais sans le texte.

Exemple :

Premier dossier : C:\- EtienneC\29test

Deuxième dossier : C:\- EtienneC\29test\29

J'espère que vous pourrez me guider

Merci d'avance

Bonjour,

après plusieur recherche et des centaines de sujets lu, je n'arrive pas à faire fonctionner un code vba pour crée des dossiers en fontion de la date (Année & Mois ) d'une cellule.

Je dirais que j'ai un niveau moyen en vba donc vous pouvez y aller

Je vous expose donc mon souhait pour la création des dossiers.

Je rentre une date dans la cellule J9 qui est formaté comme ceci:

DRsrv = Format(Sheets("Feuille1").Range("J9").Value, "YYYY-MM-DD")

Ensuite j'ai un bouton "enregistrer" qui fonctionne trés bien pour l'enregistrement de ma feuille.

Mais j'aimerai que avant l'enregistrement de mon fichier .xls Excel

1 - Vérification de l'existance du dossier (ex: C:\Dossier\2016\Janvier\

2 - Si le dossier existe, OK j'enregistre mon fichier dans le dossier.

Si le dossier n'existe pas, la création du dossier.

3 - Crée un dossier suivant l'année de ma cellulle J9 "YYYY" Ex: 2016

4 - Crée un sous-dossier suivant le mois de ma cellule J9 Ex: Janvier

J'espère avoir été claire.

Dans l'attente de vous lire.

Bonne journée.

Bonjour,

j'ai essayer de faire un macro mais ne fonctionne pas.

j'ai besoin d'aide.

Voilà je voudrais que je fichier "stations" soit importer dans le fichier planning.

et que quand quelqu'un fait un modification dans le fichier stations elle se fasse automatiquement dans l'autre.

Merci d'avance pour votre aide.

19planning-v005.xlsm (285.95 Ko)
20stations.xlsx (107.97 Ko)

Bonjour,

J'essaye de trouver un code qu'il me permette de trouver un fichier intitulé (Test.xls) dans un dossier avec ses sous dossiers.

Le code ci-après recherche le fichier "Test.xls" uniquement dans le dossier intitulé "A - Audits". Mais ce dossier "A - Audits" contient d'autres sous-dossiers, et j'aimerai que la recherche se fasse dans ces sous-dossiers sans modifier le chemin mentionné dans la macro à savoir : chemin = "G:\S - ISO\A - Audits\".

Est-ce possible ?

Private Sub CommandButton1_Click()
Dim Wb As Workbook
Feuil1.Select  'Feuil1(nom de gauche en projet)
chemin = "G:\S - ISO\A - Audits\"
fichier = TextBox1.Text & ".xls"
On Error Resume Next
Set Wb = GetObject(chemin & fichier)
If Err <> 0 Then MsgBox "Fichier Absent": Exit Sub

Bonjour à tous

J'ai un petit soucis à régler pour mon programme sur Excel.

Je reçois par des employés des classeurs EXCEL pour les journées de travail.

Mais certains ayant une version Excel antérieur à 2007 et je les reçois en XLS(il n'y a pas de macro dans ces classeurs), et mon programme les traitent en XLSX.

J'ai bien trouvé sur ce site un script qui gère le problème mais avec demande du dossier à traiter.

N'y aurait t'il pas un moyen de se priver de cette fonction, sachant que mes classeurs arrivent tous dans le même dossier (que je vais appeler "RECEPTION") .

Merci d'avance, le VBA pas si facile que cela quand on débute.

Convertir des données (convertir des vides).

Bonjour à tous,

Je dois simplement copier des données d’un logiciel pro vers Excel,

Je procède comme s’en suit :

- Copier dans le logiciel  coller dans une des cases puis convertir les données, ce qui me donne :

1 1 1 1 1 par exemple (un 1 dans chaque colonne) sauf que le soucis c’est que dans mon logiciel parfois il se peut qu’on assiste à ce cas de figure :

1 1 1 1 (des vides dans le logiciel qui représente des 0).

C’est là que ça devient compliqué, car je dois alors recopier manuellement les données (j’ai l’impression que la fonction convertir les données ne peut pas copier les vides.

J’espère qu’il existe une manœuvre, ça me sauverait bien du temps,

Vous êtes tops,

Merci à vous

Bonjour,

J'ai un soucis avec un programme que j'essaie de faire.

Je voudrais créer une fonction qui me permettrait de créer des nouveaux dossiers comportant

les mêmes noms que les valeurs d'une colonne. À cela, j'ai un gabarit en fichier Word dont

j'aimerais avoir une copie qui comporte le même nom que le dossier pour chaque dossier créé.

Pour la partie créer un nouveau dossier pour chaque valeur d'un colonne, j'utilise cette fonction:

Sub MakeFolders()
    Dim xdir As String
    Dim fso
    Dim lstrow As Long
    Dim i As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "B").End(xlUp).Row
    Application.ScreenUpdating = False
    For i = 2 To lstrow
        'change the path on the next line where you want to create the folders
        xdir = "C:\Users\misen\Desktop\Repertoire\" & Range("B" & i).Value
        If Not fso.FolderExists(xdir) Then
            fso.CreateFolder (xdir)
        End If
    Next
    Application.ScreenUpdating = True
End Sub

Cependant, j'ai un problème en ce qui à trait au copier coller du fichier Word dans les dossiers.

Quelqu'un aurait-il (elle) une solution?

Cordialement.

exemple
34donnees.xlsm (12.73 Ko)
32gabarit.docx (122.40 Ko)

Bonjour a tous,

Je me permets de réécrire un sujet que je trouvais trop vague.

Tout d'abord je débute depuis 2-3 jours à utiliser VBA pour mon stage, malheureusement mon accès à des documents et à internet est très limité. J'ai donc grandement besoin de conseil pour avancer;

Mon but est d'écrire une macro qui :

- Ouvre un dossier qui contient des documents Words

- Effectuer un bouclage dans ce dossier pour effectuer une tâche unique dans chaque Word une seul fois.

- La tâche est de copier coller un tableau dans une feuille excel. (les tableaux peuvent être réunis sur une seule feuille à la suite ou disposés sur plusieurs.

Mon avancement :

Ce programme marche pour un seul document.

Sub transfer() Dim WordApp As Word.Application Dim WordDoc As Word.Document Dim Fichier As String Fichier = Application.GetOpenFilename("Text Files (*.doc*), *.doc*") Set WordApp = CreateObject("Word.Application") 'creation session Word WordApp.Visible = False 'pour que word reste masqué pendant l'opération Set WordDoc = WordApp.Documents.Open(Fichier) 'ouverture du fichier Word WordDoc.Tables(5).Range.Copy 'copie du tableau Word 'dans Word chaque tableau est indexé 'ici l'index est à 5 car il correspond au numero du tableau 'qui ne change pas suivant les dossiers stress Range("A1").Select ActiveSheet.Paste 'collage des données dans Excel WordDoc.Close False 'ferme le document Word sans sauvegarde WordApp.Quit 'ferme l'application Word End Sub

J'ai réussis à réaliser un bouclage (assez moyen) :

Option Explicit Sub test() Dim Fso As Object, MonRepertoire As String Dim f1 As Object, f2 As Object, wb As Workbook Set Fso = CreateObject("Scripting.FileSystemObject") MonRepertoire = "C:\Users\NG83466\Documents\SD_STEP6_CERTIF_NATHAN\SD_STEP6_CERTIF_NATHAN" For Each f1 In Fso.GetFolder(MonRepertoire).SubFolders For Each f2 In f1.Files Set wb = Workbooks.Open(f2) 'MA TACHE A ACCOMPLIR wb.Close Next f2 Next f1 End Sub

Ma question est : Comment assembler les deux programmes et comment les optimiser ?

J'ai essayé d'être le plus clair possible, je reste connecté très souvent pour pouvoir suivre le cours de ce sujet.

J'ai vraiment besoin d'aide....

Merci d'avance.

Cordialement

Recherches récentes

copier vide apparaissesuite tabulationtarget address plageformulaire ordre tabulation6068congecalcul conge payegraphesclassement tableauclassementremplacer passage ligneuserformsap guifiltre multicriterefiltre multicritere vbasalairesusfformulaire salairescondition datesomme date ligne