Créer un fichier xls des que la modailté =rdv
Smashing Pumkins
-
Smashing Pumkins -
Smashing Pumkins -
Bonjour,
J'ai un petit problème en VBA. En fait,je dois créer un fiche de rendez vous dès que j'ai un rendez vous client. Mon programme fonctionne mais ne me créer qu'une seule feuille et je ne comprends pas pk!!!Si quelqu'un pouvait trouvé l'erreur ça m'aiderais.
Voila mon code merci d'avance!!
For i = 2 To 70
If UCase(Cells(i, 47).Value) = "RDV" Then
Alors je copie dans des variables l'information que je dois recopier dans ma fiche de rendez vous
workbooks.add
Je recopie alors l'information puis la mets en forme (pour la mise en forme j'ai utilisé l'enregistreur de macros)
end if
next i
Je ne comprends alors pas pourquoi il ne me génère qu'une feuille
Merci beaucoup
J'ai un petit problème en VBA. En fait,je dois créer un fiche de rendez vous dès que j'ai un rendez vous client. Mon programme fonctionne mais ne me créer qu'une seule feuille et je ne comprends pas pk!!!Si quelqu'un pouvait trouvé l'erreur ça m'aiderais.
Voila mon code merci d'avance!!
For i = 2 To 70
If UCase(Cells(i, 47).Value) = "RDV" Then
Alors je copie dans des variables l'information que je dois recopier dans ma fiche de rendez vous
workbooks.add
Je recopie alors l'information puis la mets en forme (pour la mise en forme j'ai utilisé l'enregistreur de macros)
end if
next i
Je ne comprends alors pas pourquoi il ne me génère qu'une feuille
Merci beaucoup
Configuration: Windows XP Internet Explorer 6.0
A voir également:
- Créer un fichier xls des que la modailté =rdv
- Comment ouvrir un fichier epub ? - Guide
- Creer un fichier .bat - Guide
- Comment créer un groupe whatsapp - Guide
- Créer un compte google - Guide
- Fichier bin - Guide
2 réponses
Salut Smash,
parce que quand tu crées un nouveau classeur (workbooks.add), c'est ce nouveau classeur qui devient actif et forcément, ton programme ne trouve plus l'occurence "RDV" dedans.
Il faut, à la fin de ta boucle (avant next i), revenir à ton classeur initial (Windows("ClasseurInitial").Activate) ou bien fermer le nouveau classseur.
I.
parce que quand tu crées un nouveau classeur (workbooks.add), c'est ce nouveau classeur qui devient actif et forcément, ton programme ne trouve plus l'occurence "RDV" dedans.
Il faut, à la fin de ta boucle (avant next i), revenir à ton classeur initial (Windows("ClasseurInitial").Activate) ou bien fermer le nouveau classseur.
I.
