Répétér une macro sur d'autres fichiers
Résolu/Fermé
A voir également:
- Répétér une macro sur d'autres fichiers
- Wetransfer gratuit fichiers lourd - Guide
- WeTransfer - Télécharger - Téléchargement & Transfert
- Macro logiciel - Télécharger - Organisation
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- Macro recorder - Télécharger - Confidentialité
5 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 16/09/2011 à 17:39
Modifié par michel_m le 16/09/2011 à 17:39
bonjour,
Une idée ?
Oui
ou plutôt une méthode! :o)
mais quelle version d'Excel?
et quel est le nom de la feuille des 50 fichiers ?
ou quel est le nom générique des 50 fichiers (par ex toto1 à toto50--> générique! toto) ?
Michel
Une idée ?
Oui
ou plutôt une méthode! :o)
mais quelle version d'Excel?
et quel est le nom de la feuille des 50 fichiers ?
ou quel est le nom générique des 50 fichiers (par ex toto1 à toto50--> générique! toto) ?
Michel
Bonjour Michel,
oui plutôt une méthode :-P
Alors j'ai la version Excel 2007 et concernant le nom des fichiers ca sera un nom générique, il s'appeleront tous Score + un chiffre/nombre donc ca fera : Score1, Score 2, Score 3...
oui plutôt une méthode :-P
Alors j'ai la version Excel 2007 et concernant le nom des fichiers ca sera un nom générique, il s'appeleront tous Score + un chiffre/nombre donc ca fera : Score1, Score 2, Score 3...
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
17 sept. 2011 à 11:22
17 sept. 2011 à 11:22
Bonjour,
rappel de ma demande:
Quel est le nom de la feuille dans les fichiers "scoreN..." ?
rappel de ma demande:
Quel est le nom de la feuille dans les fichiers "scoreN..." ?
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié par michel_m le 17/09/2011 à 16:20
Modifié par michel_m le 17/09/2011 à 16:20
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
18 sept. 2011 à 07:22
18 sept. 2011 à 07:22
bonjour
il faudra télécharger le pièce jointe puis ouvrir le zip et non l'ouvrir directement; pour le nom de feuille, c'est à changer dans les déclarations de constantes
il faudra télécharger le pièce jointe puis ouvrir le zip et non l'ouvrir directement; pour le nom de feuille, c'est à changer dans les déclarations de constantes
Hello Michel,
Punaise vous êtes un génie, ca marche super bien!! Je suis trop contente!! C'est incroyable!
Je vais juste essayer de récupérer aussi le nom des fichiers (score 1, score 2) pour les mettre en début des lignes extraites parce que sinon j'ai plein de données mais je ne sais pas à quoi elles correspondent.
Je vais essayer de m'inspirer du code que vous m'avez fourni.
Merci beaucoup!!
Bien cordialement,
Nathalie
Punaise vous êtes un génie, ca marche super bien!! Je suis trop contente!! C'est incroyable!
Je vais juste essayer de récupérer aussi le nom des fichiers (score 1, score 2) pour les mettre en début des lignes extraites parce que sinon j'ai plein de données mais je ne sais pas à quoi elles correspondent.
Je vais essayer de m'inspirer du code que vous m'avez fourni.
Merci beaucoup!!
Bien cordialement,
Nathalie
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Tout fonctionne. J'ai réussi à rajouter les noms comme souhaité.
par contre dans le classeurs final qui collecte les données j'obtiens des données que j'aimerais voir apparaitre en %.
J'ai marqué un code mais il ne fonctionne pas:
Sub ApplyPercentageFormat()
'Pour la plage sélectionnée : appliquer le format pourcentage
For Each Requete In Range("C4:O100")
With Requete
If Right(.Value, 1) = "%" Then
Fichier = Left(.Value, Len(.Value) - 1)
If IsNumeric(myValue) Then
'Format pourcentage* avec deux décimales
.NumberFormat = "#,##0.00%"
.Value = myValue / 100
End If
End If
End With
End Sub
End Sub
Je l'ai mis dans la page compilation à la suite du code que vous m'avez créé.
Vous voyez ce qui cloche? je pense que c'est le For each REQUETE
par contre dans le classeurs final qui collecte les données j'obtiens des données que j'aimerais voir apparaitre en %.
J'ai marqué un code mais il ne fonctionne pas:
Sub ApplyPercentageFormat()
'Pour la plage sélectionnée : appliquer le format pourcentage
For Each Requete In Range("C4:O100")
With Requete
If Right(.Value, 1) = "%" Then
Fichier = Left(.Value, Len(.Value) - 1)
If IsNumeric(myValue) Then
'Format pourcentage* avec deux décimales
.NumberFormat = "#,##0.00%"
.Value = myValue / 100
End If
End If
End With
End Sub
End Sub
Je l'ai mis dans la page compilation à la suite du code que vous m'avez créé.
Vous voyez ce qui cloche? je pense que c'est le For each REQUETE
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
19 sept. 2011 à 17:29
19 sept. 2011 à 17:29
effectivement car tu as maintenant un tableau excel.... requete est ambigu, utilise plutôt cellule
d'autre part quelle est cette variable "myvalue" ?
Mais travaille plutôt sur tes colonnes puisque normalement les données doivent être du m^me type dans chaque colonne
tu repères ces colonnes et tu appliques ton format
nota= si tu met au format "#,##0.00%" pour quoi divise tu par cent ?
ou tu pourrais t'inspirer de cà (si j'ai bien pigé tu as des données sous cette forme: 123,45% de type texte?)
si oui
With Cells(ligne, colonne)
.Value = CSng(.Value)
.NumberFormat = "#,##0.00%"
End With
d'autre part quelle est cette variable "myvalue" ?
Mais travaille plutôt sur tes colonnes puisque normalement les données doivent être du m^me type dans chaque colonne
tu repères ces colonnes et tu appliques ton format
nota= si tu met au format "#,##0.00%" pour quoi divise tu par cent ?
ou tu pourrais t'inspirer de cà (si j'ai bien pigé tu as des données sous cette forme: 123,45% de type texte?)
si oui
With Cells(ligne, colonne)
.Value = CSng(.Value)
.NumberFormat = "#,##0.00%"
End With
Punaise,
Bon aucun des deux code ne marche.
En fait il ne se passe rien comme si le code n'était pas relié à la feuille active de destination (celle qui collecte les données).
En fait mes données arrivent en format:
0.9311 et moi je voudrais 93,11%
Est ce qu'il faut placer le code à un endroit spécifique? moi je l'ai placé tout à la fin du code dans compilation
Bon aucun des deux code ne marche.
En fait il ne se passe rien comme si le code n'était pas relié à la feuille active de destination (celle qui collecte les données).
En fait mes données arrivent en format:
0.9311 et moi je voudrais 93,11%
Est ce qu'il faut placer le code à un endroit spécifique? moi je l'ai placé tout à la fin du code dans compilation
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
20 sept. 2011 à 12:36
20 sept. 2011 à 12:36
met un extrait de ta feuille de destination avec les arrivées (sans données confidentielles)
sur
https://www.cjoint.com/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
sur
https://www.cjoint.com/
et faire un clic droit sur le lien proposé puis "copier l'adresse du lien" et coller dans le message de réponse
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
20 sept. 2011 à 16:22
20 sept. 2011 à 16:22
Je n'ai pas vu de code dans le 2° onglet....
dans l'attente
dans l'attente