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
A voir également:
- Créer un fichier xls des que la modailté =rdv
- Comment réduire la taille d'un fichier - Guide
- Creer un fichier .bat - Guide
- Créer un lien pour partager des photos - Guide
- Comment créer un groupe whatsapp - 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.
