139 résultats trouvés

par ser-fab
17 mai 2019, 13:34
Forum : Excel - VBA
Sujet : Renommer un fichier Via Macro
Réponses : 8
Vues : 62

Re: Renommer un fichier Via Macro

la macro bloque sur
Set objFolder = objFSO.GetFolder(strPath)
par ser-fab
17 mai 2019, 10:18
Forum : Excel - VBA
Sujet : Renommer un fichier Via Macro
Réponses : 8
Vues : 62

Re: Renommer un fichier Via Macro

j'ai fais les deux colonnes mais je n'arrive pas à faire la gestion VBA du changement de fichiers?
:cry:
par ser-fab
17 mai 2019, 10:02
Forum : Excel - VBA
Sujet : Renommer un fichier Via Macro
Réponses : 8
Vues : 62

Re: Renommer un fichier Via Macro

j'ai réussi à liste mon répertoire mais comment faire pour changer uniquement les ficchier qui on "xxxxx" dans le nom du repertoire?

ci-joint le repertoire liste sur excel
par ser-fab
17 mai 2019, 09:52
Forum : Excel - VBA
Sujet : Renommer un fichier Via Macro
Réponses : 8
Vues : 62

Re: Renommer un fichier Via Macro

il faut juste changer les "xxxxx" en un numéro 55555
je ne peux pas avoir de fichier avec deux colonnes car les fichier en "xxxxx" sont fait aléatoirement par excel
par ser-fab
17 mai 2019, 09:28
Forum : Excel - VBA
Sujet : Renommer un fichier Via Macro
Réponses : 8
Vues : 62

Renommer un fichier Via Macro

Bonjour à tous, Je dois renommer plusieurs fichiers, j'ai fais cette partie de code mais comme j'ai plusieurs fichiers je ne sais pas comment mis prendre. Sub RenommerUnFichier() 'renommer un fichier Dim AncienNom As String Dim NouveauNom As String MonDossier = "C:\Temp\" AncienNom = MonDossier & "x...
par ser-fab
26 avril 2019, 14:02
Forum : Excel - VBA
Sujet : Code de répétition à simplifier?
Réponses : 2
Vues : 25

Re: Code de répétition à simplifier?

Merci
:)
par ser-fab
26 avril 2019, 10:30
Forum : Excel - VBA
Sujet : Code de répétition à simplifier?
Réponses : 2
Vues : 25

Code de répétition à simplifier?

Bonjour a tous, J'ai un code en VBA sous excel que j'aimerais simplifié mais je ne sais pas comment à l'heure actuelle j'ai 20 lignes mais je peux en rajouter. Ci-joint le code. If Sheets("BD_Reperoire3D").Range("E2") <> "\" Then Set Part = swApp.OpenDoc6(Sheets("BD_Reperoire3D").Range("E2"), 2, 2, ...
par ser-fab
17 avril 2019, 17:50
Forum : Excel - VBA
Sujet : Appeler un module dans un userform
Réponses : 2
Vues : 14

Re: Appeler un module dans un userform

ah ok c'est sur cela que je bloquais comment cela se sera mieux
Merci de ton aide :wink:
Classeur1.xlsm
(19.15 Kio) Téléchargé 3 fois
par ser-fab
17 avril 2019, 17:34
Forum : Excel - VBA
Sujet : Appeler un module dans un userform
Réponses : 2
Vues : 14

Appeler un module dans un userform

Bonjour a tous,
j'ai un petit problème je souhaite appeler un module à partir un Userform mais cela ne fonctionne pas.
J'ai fais une recherche sur internet et dans le forum mais mon code ne fonctionne pas.

Je vous joins un modèle de code.

Merci pour votre aide.

Classeur1.xlsm
(18.44 Kio) Téléchargé 2 fois
par ser-fab
12 avril 2019, 08:20
Forum : Excel - VBA
Sujet : Combobox sous condition
Réponses : 2
Vues : 35

Re: Combobox sous condition

oui de peu
Merci cela fonctionne