[VBA] INCLUDETEXT : modifier chemin d'accès

Fermé

Anonymous38 Messages postés 18 Date d'inscription jeudi 19 avril 2012 Statut Membre Dernière intervention 24 mai 2012 - 25 avril 2012 à 11:22
Utilisateur anonyme - 25 avril 2012 à 16:27

Bonjour,

J'ai des documents comportant des champs INCLUDETEXT et j'aimerais pouvoir, via du code VBA, parcourir les fichiers et modifier le chemin d'accès présent dans ces INCLUDETEXT avec le nom et l'emplacement du fichier sélectionné.

D'avance merci.

PS: Si je n'ai pas été assez clair n'hésitez pas à me le dire.

A voir également:

[VBA] INCLUDETEXT : modifier chemin d'accès
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA
Vba autofill ✓ - Forum Excel

4 réponses

Réponse 1 / 4

f894009 Messages postés 17268 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 29 mars 2025 1 713
25 avril 2012 à 13:12

Bonjour,

https://www.developpez.net/forums/d1059916/logiciels/microsoft-office/word/vba-word/modifier-includetext-application/

Réponse 2 / 4

Anonymous38 Messages postés 18 Date d'inscription jeudi 19 avril 2012 Statut Membre Dernière intervention 24 mai 2012
25 avril 2012 à 13:21

Merci,

j'avais déjà vu ce topic mais :

1) Cela n'a pas l'air de permettre à l'utilisateur un parcours de fichier (j'aurai peut-être dût être plus précis)

2) Je ne comprend pas bien le 13 dans cette ligne de code :
If Left(ActiveDocument.Fields(1).Code, 13)

Pour préciser ma demande, j'aimerais qu'un bouton inclus dans un userform permette à l'utilisateur de choisir un fichier source qui serve à changer le chemin d'accès des INCLUDETEXT du document cible.

D'avance merci.

Réponse 3 / 4

Anonymous38 Messages postés 18 Date d'inscription jeudi 19 avril 2012 Statut Membre Dernière intervention 24 mai 2012
25 avril 2012 à 14:04

C'est bon, j'arrive à ouvrir la boîte de dialogue Windows pour sélectionner un fichier grâce à l'instruction :

Dialogs(wdDialogFileOpen).Show

Maintenant, j'aimerais juste arriver à récupérer le chemin d'accès du fichier sélectionné sous forme de chaîne de caractère.

Merci d'avance à celui qui serait capable de m'aider :)

Réponse 4 / 4

Utilisateur anonyme
25 avril 2012 à 16:27

Bonjour,

Exemple :

Sub Test()

    Dim NomFichier As String
    Dim Dossier As String
    Dim dlgOpen As FileDialog
    
    Set dlgOpen = Application.FileDialog(FileDialogType:=msoFileDialogOpen)

    With dlgOpen
        .AllowMultiSelect = False
        .Show
        Dossier = .InitialFileName
        NomFichier = .SelectedItems(1)
    End With

    MsgBox Dossier & vbCrLf & NomFichier

End Sub

Cdt

Lupin

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...