[Excel] Changer le chemin d'accès dans macro
Fermé
Badabo^O
-
Modifié par Badabo^O le 26/07/2012 à 15:13
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 juil. 2012 à 09:04
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 31 juil. 2012 à 09:04
A voir également:
- [Excel] Changer le chemin d'accès dans macro
- Changer dns - Guide
- Liste déroulante excel - Guide
- Piratage facebook changer mot de passe - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Changer clavier qwerty en azerty - Guide
3 réponses
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
26 juil. 2012 à 16:12
26 juil. 2012 à 16:12
Bonjour,
Oula!
Quel code!
Il y a certainement plus simple, mais voici ce que je te proposes.
En supposant que tes 17 fichiers aient le même nom sur chaque machine de ton réseau, tu peux :
1- choisir le répertoire ou sont enregistrés ces fichiers,
2- les ouvrir un par un
3- faire les modifs
4- enregistrer et fermer un par un
Regarde ce code :
Par contre, pour l'instant, il faut systématiquement relancer la macro pour faire les fichiers contenus ailleurs.
On verra cela par la suite.
Pour l'instant regarde et teste cette macro.
Oula!
Quel code!
Il y a certainement plus simple, mais voici ce que je te proposes.
En supposant que tes 17 fichiers aient le même nom sur chaque machine de ton réseau, tu peux :
1- choisir le répertoire ou sont enregistrés ces fichiers,
2- les ouvrir un par un
3- faire les modifs
4- enregistrer et fermer un par un
Regarde ce code :
Option Explicit
Sub MaProcedure()
Dim racine As String
Dim NomsFichiers(), i As Byte
'La variable NomsFichiers va stocker... les noms des fichiers à manipuler
NomsFichiers = Array("A2.2 - Quest éthique et comportement du dirigeant.xls", _
"A2.3 - Analyse matricielle des risques.xls", _
"B2.1 - Tests de procédures.xls", _
"A2.1 - Quest analyse risque ano significative CPE.xls", _
"B3.2 - Planification de la mission.xls", _
"B3.1 - Quest seuils signification.xls", _
"A4.1 - Feuilles des variations par cycles.xls", _
"B4.2.1 - Traitement confirmation des comptes fournisseurs.xls", _
"B4.2.2 - Traitement confirmation des comptes clients.xls", _
"B4.3 - Quest Inventaire physique.xls", _
"B4.4 - Feuilles de travail.xls", _
"B4.5 - Ratios clés.xls", _
"A5.1 - Quest de fin de mission.xls", _
"A5.3 - Note de synthese complementaire.xls", _
"B5.1 - Quest Controle de l'annexe.xls", _
"B5.3 - Quest preparation rapport comptes annuels.xls", _
"B5.7 - MAJ du dossier permanent.xls")
racine = ChoixDossier()
If racine = "" Then Exit Sub
'ICI ON VA BOUCLER SUR LES NOMS DES FICHIERS
For i = 0 To UBound(NomsFichiers)
'on ouvre un premier fichier
Workbooks.Open Filename:=racine & "\" & NomsFichiers
'--------------------------------------------------------------
'
'ICI TON CODE DE MODIFS DE CELLULES
'
'--------------------------------------------------------------
'enregistre et ferme
ActiveWorkbook.Save
ActiveWindow.Close
'fichier suivant
Next
End Sub
Function ChoixDossier()
'Sources :
'http://www.excel-downloads.com/forum/126930-vba-liste-dossiers-et-sous-dossiers-dun-dosssier.html
If Val(Application.Version) >= 10 Then
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = ActiveWorkbook.Path & "\"
.Show
If .SelectedItems.Count > 0 Then
ChoixDossier = .SelectedItems(1)
Else
ChoixDossier = ""
End If
End With
Else
ChoixDossier = InputBox("Répertoire?")
End If
End Function
Par contre, pour l'instant, il faut systématiquement relancer la macro pour faire les fichiers contenus ailleurs.
On verra cela par la suite.
Pour l'instant regarde et teste cette macro.
Déjà merci beaucoup de la réponse et du temps que tu as pu passé :)
J'ai un peu de mal à tout comprendre mais bon^^
Mon problème c'est que le répertoire change à chaque fois que je change de dossier (70 dossiers différents)
Donc ce que je me demandais, c'était s'il existait comme répertoire en VBA, un répertoire qui permette d'aller dans le dossier du dessus donc à la racine en gros de ce dossier : Par exemple j'ai un fichier Z:\\blabla\bla\fichier1.xls
et je voudrais aller dans Z:\\blabla\bla\fichier2.xls
C'est pour ça que j'avais pensé à utiliser la convention "..\" qui ne marche pas ici^^
Sinon j'ai pas tout compris dans ton code, à quel endroit choisit-on le répertoire où il va aller chercher les fichiers ?
Et on choisit le répertoire de chaque fichier? ou on relance la macro pour chaque fichier?^^
En tout cas merci beaucoup j'vais tester voir si j'arrive à mettre ça en place :)
PS: ce code je ne l'ai pas fait moi même, je l'ai récupéré de la macro que j'avais enregistrée en faisant les manips moi même donc c'est sûr qu'il n'est pas très beau :p
J'ai un peu de mal à tout comprendre mais bon^^
Mon problème c'est que le répertoire change à chaque fois que je change de dossier (70 dossiers différents)
Donc ce que je me demandais, c'était s'il existait comme répertoire en VBA, un répertoire qui permette d'aller dans le dossier du dessus donc à la racine en gros de ce dossier : Par exemple j'ai un fichier Z:\\blabla\bla\fichier1.xls
et je voudrais aller dans Z:\\blabla\bla\fichier2.xls
C'est pour ça que j'avais pensé à utiliser la convention "..\" qui ne marche pas ici^^
Sinon j'ai pas tout compris dans ton code, à quel endroit choisit-on le répertoire où il va aller chercher les fichiers ?
Et on choisit le répertoire de chaque fichier? ou on relance la macro pour chaque fichier?^^
En tout cas merci beaucoup j'vais tester voir si j'arrive à mettre ça en place :)
PS: ce code je ne l'ai pas fait moi même, je l'ai récupéré de la macro que j'avais enregistrée en faisant les manips moi même donc c'est sûr qu'il n'est pas très beau :p
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 744
31 juil. 2012 à 09:04
31 juil. 2012 à 09:04
Bonjour
Dis moi ou tu en es...
Dis moi ou tu en es...
